[英]Excel VBA Copy a Range into a New Workbook
I am a newbie to Excel VBA
. 我是Excel VBA
的新手。
I am trying to copy a range of data from worksheet output into a new excel workbook and save the new workbook with the the value in E3. 我正在尝试将工作表输出中的一系列数据复制到新的Excel工作簿中,并使用E3中的值保存新工作簿。
As a bonus, I would love to be able to also copy the data into wordpad
and save as E3.xml 作为奖励,我希望能够将数据复制到wordpad
并保存为E3.xml
Here is the VBA
I have thus far: 这是我到目前为止的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
Modify to suit your specifics, or make more generic as needed: 根据您的具体情况进行修改,或根据需要进行更通用:
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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.