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

Question

tyyyu2005

7

6もっと見る

200pt

コンピュータ

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

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

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

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

回答の条件

1人5回まで

登録：2014/08/22 11:57:42
終了：2014/08/24 21:56:30

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

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

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

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

リクエスト送信済

回答リクエストを送信したユーザーはいません

Mook · Accepted Answer · 2014-08-23T01:05:52+09:00

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

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

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

ベストアンサー

Mook13143932014/08/23 01:05:52

コメント（0件)

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