我是的新手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
进行修改以适合您的具体要求,或者根据需要进行更通用的描述:
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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句