こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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, "yyyy") & ".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

投稿日時 - 2012-09-09 14:20:52

QNo.7688775

すぐに回答ほしいです

質問者が選んだベストアンサー

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
みたいな。

投稿日時 - 2012-09-09 14:47:39

お礼

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

投稿日時 - 2012-09-09 15:16:25

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問