人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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


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

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

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

●質問者: tyyyu2005
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● Mook
●200ポイント ベストアンサー

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

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

tyyyu2005さんのコメント
ありがとうございます。 動作確認致しました。
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ