[英]Trying to copy Range from worksheet into a new workbook. Excel VBA
[英]Excel VBA Copy a Range into a New Workbook
我是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
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.