5

私はの初心者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
4

1 に答える 1

12

仕様に合わせて変更するか、必要に応じてより一般的なものにします。

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
于 2013-10-11T20:11:14.297 に答える