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

我是Excel VBA的新手。

我试图从工作表输出复制一个范围的数据到一个新的Excel工作簿，并保存新的工作簿的价值在E3。

作为奖励，我希望能够将数据复制到wordpad并保存为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