vba - Excel VBA 将范围复制到新工作簿中

Question

我是 Excel VBA 的新手。

我正在尝试将工作表输出中的一系列数据复制到新的 Excel 工作簿中，并使用 E3 中的值保存新工作簿。

作为奖励，我希望能够将数据复制到 写字板 并另存为 E3.xml

这是我迄今为止的VBA:

Sub CopyOutput()
Dim myname As String
mystring = E3
Dim myselection As Range

myselection = Sheets("Output").Columns("F").Select
Set NewBook = Workbooks.Add
    With NewBook
        .SaveAs Filename:="C:\Program Files\White Plume\Scenarios\" & myname & ".xls", FileFormat:= _
             xlsx, CreateBackup:=False
    End With
myselection.Paste
End Sub

Answer 1

修改以适合您的具体情况，或根据需要变得更通用:

Private Sub CopyItOver()
  Set NewBook = Workbooks.Add
  Workbooks("Whatever.xlsx").Worksheets("output").Range("A1:K10").Copy
  NewBook.Worksheets("Sheet1").Range("A1").PasteSpecial (xlPasteValues)
  NewBook.SaveAs FileName:=NewBook.Worksheets("Sheet1").Range("E3").Value
End Sub