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



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

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

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

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2014/08/22 11:57:42
  • 終了:2014/08/24 21:56:30

ベストアンサー

id:Mook No.1

Mook回答回数1312ベストアンサー獲得回数3912014/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
id:tyyyu2005

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

2014/08/24 21:56:13

コメントはまだありません

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

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません