none
EXCL マクロ 別のブックを開いた後フォーマットへコピー RRS feed

  • 質問

  • マクロ初心者の為、ご教示頂けると助かります。

    フォルダ指定にてその中のファイル名を指定してファイルを開くマクロを第一段階として作成したいです。

    第二段階で、その後開いたデータを、違うファイルのフォーマットへデータの貼付けをしたいです。

    一段階

    Sub Macro1()
    '
    ' Macro1 Macro
    '

    '
        ChDir "C:"
        Workbooks.Open Filename:= _
            "" _
         & Range("B1").Value & ".xlsx"

       
       
    End Sub

    その後上記マクロを含みで下記にて記録致しましたが、

    ファイル名をあいまいにしたいのと、参照先データーを直接フォーマットへコピーをしたいです。

    Sub Macro6()
    '
    ' Macro6 Macro
    '

    '
        Range("B1").Select
        Application.Run "Book1.xlsm!Macro1"
        Range("E29:H37,L29:M37").Select
        Range("L29").Activate
        Selection.Copy
        Windows("Book1.xlsm").Activate
        Range("K1").Select
       
        Range("L4").Select
        Windows("_____.xlsx").Activate

    最後に参照先のブックもcloseしたいです。

    良い方法がありましたらご教示宜しくお願い致します。

    2020年9月14日 5:19