投稿/コメントを表示します。

エクセルマクロ・VBA基礎編フォローアップ アドバンスド
転記先ファイルを生成してデータを流し込む。

受講生さんの投稿

(投稿ID: 2762)

お世話になっております。
転記先のファイル名について一つ教えてください。
変数にするまでは「sample.xls」と、.xlsが付いていますが、最終的にfnameの変数に置き換え、「n,t,b」などのファイル名の言葉が入ってくるようになると思います。
その際文末に「&".xls"」は着ける必要はないのでしょうか。
ActiveWorkbook.SaveAs Filename:="D:\ks201-205\ks204\ks204_mondai\" & fname _
ActiveWorkbook.SaveAs Filename:="D:\ks201-205\ks204\ks204_mondai\" & fname&".xls" _
Sub ks204_02()
    Dim fname
    Dim moto
    Dim saki
    Dim slist
    For slist = 4 To 7
        fname = Workbooks("ks204.xls").Worksheets("List").Range("C" & slist).Value
        Workbooks.Open Filename:="D:\ks201-205\ks204\ks204_mondai\template.xls"
        ActiveWorkbook.SaveAs Filename:="D:\ks201-205\ks204\ks204_mondai\" & fname _'ここです。
            , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
            ReadOnlyRecommended:=False, CreateBackup:=False

2017/01/02 01:34