エクセルのシートをコピーするには？ (ID:81362)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > はい、今回既存のファイルを開いて、編集後、別名で保存しようとしているのですが、 > この場合も CreateObject を使えるのでしょうか？ 例えば、こんな感じです。 Dim XL As Object 'As Excel.Application Dim WB As Object 'As Excel.Workbook Dim WS As Object 'As Excel.Worksheet '新規にExcelを起動 Set XL = CreateObject("Excel.Application") XL.Visible = True '既存ファイルを開く Set WB = XL.Workbooks.Open(ファイル名) '操作したいシートを取得 Set WS = WB.Worksheets(シート名) 'シートをコピー WS.Copy After:=WS 'シートを別名保存 WB.SaveAs 別のファイル名 '変数の解放とExcelの終了 Set WS = Nothing WB.Close Set WS = Nothing XL.Quit Set XL = Nothing