tyyyu2005回答ポイント 200pt

エクセルVBAでマクロ作成をお願い致します。

macrobookファイル(ここにマクロを格納したい)のsheet1、A1にテスト1、A2にテスト2、A3にテスト3と入力されています。

アクティブブック(macrobookとは別のファイル)上にはそれぞれテスト1、テスト2、テスト3というシートがあります。
アクティブブック上でマクロ実行するとデスクトップ上にあああ.xls(中にテスト1のシート)、いいい.xls(中にテスト2のシート)、ううう.xls(中にテスト3のシート)というブックを新規で作成出来るマクロをお願い致します。

環境はオフィス2007　win7です。

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

ログインして回答する

ベストアンサー

Mook2014/08/23 01:05:52
満足200pt

こんな感じのことでしょうか。

Sub Sample()
    Dim デスクトップ As String
    デスクトップ = CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\"
    
    Dim srcWB As Workbook
    Set srcWB = ActiveWorkbook

    srcWB.Worksheets(ThisWorkbook.Worksheets("Sheet1").Range("A1").Value).Copy
    ActiveWorkbook.SaveAs デスクトップ & "あああ.xls", FileFormat:=xlExcel8

    srcWB.Worksheets(ThisWorkbook.Worksheets("Sheet1").Range("A2").Value).Copy
    ActiveWorkbook.SaveAs デスクトップ & "いいい.xls", FileFormat:=xlExcel8

    srcWB.Worksheets(ThisWorkbook.Worksheets("Sheet1").Range("A3").Value).Copy
    ActiveWorkbook.SaveAs デスクトップ & "ううう.xls", FileFormat:=xlExcel8
End Sub

スター

1件のコメントを見る
tyyyu2005 2014/08/24 21:56:13

ありがとうございます。
動作確認致しました。

スター

その他の回答

この質問へのコメント

コメントはありません

この質問への反応（ブックマークコメント）

質問の情報

登録日時: 2014-08-22 11:57:42
終了日時: 2014-08-24 21:56:30
回答条件: 1人5回まで

この質問のカテゴリ

コンピュータ

エクセルVBAでマクロ作成をお願い致します。

ベストアンサー

Mook2014/08/23 01:05:52
満足200pt

tyyyu2005 2014/08/24 21:56:13

その他の回答

この質問へのコメント

この質問への反応（ブックマークコメント）

質問の情報

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問

メニュー

PC版

エクセルVBAでマクロ作成をお願い致します。

ベストアンサー

Mook2014/08/23 01:05:52 満足200pt

tyyyu2005 2014/08/24 21:56:13

その他の回答

この質問へのコメント

この質問への反応（ブックマークコメント）

質問の情報

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問

メニュー

PC版

Mook2014/08/23 01:05:52
満足200pt