VBAで新規ファイル名
VBAであるテンプレートのファイルを開いて、ファイル名をB3セルに入力された名前で保存したいのです。まず、下にマクロを示します。
Sub 新規_試作マスタ作成()
ChDir "C:\Users\H1250-201\Desktop"
Workbooks.Open Filename:="C:\Users\H1250-201\Desktop\試作マスター.xlsm"
ChDir "D:\A\" & Format(Date, "yyyy年") & "\" & Format(Date, "yyyy年m月") & ""
ActiveWorkbook.SaveAs Filename:="D:\A\" & Format(Date, "yyyy年") & "\" & Format(Date, "yyyy年m月") & "\" & Format(Date, "yyyymmdd") & " " & ThisWorkbook.Sheet1.Range("B3").Value & " 試作.xlsm", FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Dドライブの中のAというフォルダがあり、その中に、2014年→2014年1月の順にフォルダがあります。ただし、Aの中には2013年～2020年、2014年の中には、2014年1月～2014年12月のフォルダがあるのです。そこで、今日の日付を参照してそれに応じたフォルダ分けを行い、ファイルの頭に「日付」、その後に「B3セルに入力された名前」、「試作」の順に
「日付」 「B3セルに入力された名前」 「試作」という名前で保存されるマクロを作成したいのです。
上のマクロでは、ThisWorkbook.Sheet1.Range("B3").Valueの部分がおかしくてうまく行きません。個々の部分をただ文字列として"○○"とするとうまくいきました。
つまり、マクロのある自身のファイルのセルを参照したいのです。差し支えなければご回答願います。
お礼
リンク先の内容その通りです。リンク先の内容はエクセルようなのでGoogle シートように作りたいのです。