excel マクロ ファイル名の取得

質問

excelのSheet上にボタンをつけクリックすると範囲内をコピーして、名前をつけCSV形式で保存させる方法で名前の取得が分からず困っています。教えてください。
名前はSheetのR1セルとA1セルと現在の年をつけたいのですが・・・

'ファイル名を取得
Set OldWkbook = ActiveWorkbook

AkName = OldWkbook.Sheets(StName1).Range("R1").Value
Ak1Name = OldWkbook.Sheets(StName1).Range("A1").Value
Filename = Ak1Name & AkName & Format(Now, "ｙｙｙｙ") & ".CSV"

Open "C:\仕事\Filename.csv" For Output As #1

For i = 10 To 44
a = Application.Transpose(Range(Cells(i, "A"), Cells(i, "AF")).Value)
res = Join(Application.Transpose(a), ",")
Print #1, res
Next i
Close #1

回答No.1

keithin · ベストアンサー

sub macro1()
　dim a,res,i
　dim myfile as string

　’具体的なファイル名の付け方
　myfile = worksheets("不明").range("A1").value & worksheets("不明").range("R1").value & format(date, "yyyy") & ".csv"

　open "c:\仕事\" & myfile for output as #1
　for i = 10 to 44
　　a = application.transpose(range(cells(i, "A"), cells(i, "AF")).value)
　　res = join(application.transpose(a), ",")
　　print #1, res
　next i
　close #1
end sub
みたいな。

お礼

ありがとうございます。上手くいきました。