Excel VBA Скопируйте диапазон в новую рабочую книгу

Question

Я новичок до 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