前提・実現したいこと
①Eexcel VBAで、ブック1でボタンを押すと、ブックが作成され、さらにそのファイル名がbook1などではなく、
テストyyyymmddとなるようにしたい。
②①をもとに、条件を指定し貼付データを処理し、それを加工したものをシートに登録させるようにしたい。
発生している問題・エラーメッセージ
①debugすると、値は取れていますが ファイル名がbook1のまま ②データ加工し、それを別ブックのシート毎に処理させることはできるのでしょうか。
該当のソースコード
Excel
1① 2Sub 新規作成() 3 4 Dim newFilename As Workbook 5 6 Workbooks.Add 7 Workbooks(1).Activate 8 newFilename = Activebook 9 10 newFilename = "テスト" & Format(Now, "yyyymmdd") 11 12 'イミディエイトには「テストyyyymmdd」が出力される。 13 Debug.Print newFilename 14 15End Sub 16 17② 18Sub シートを作成する() 19 20 Dim sheet1 As Worksheet 21 Dim sheet2 As Worksheet 22 Dim Sheet3 As Worksheet 23 Dim Sheet4 As Worksheet 24 Dim Sheet5 As Worksheet 25 26 Sheets(1).Name = "01 あ" ' 1 番目のシートの名前を変更 27 Range("A1").Select 28 ActiveCell.FormulaR1C1 = "あいうえお" 29 Range("B1").Select 30 ActiveCell.FormulaR1C1 = "かきくけこ" 31 Range("C1").Select 32 ActiveCell.FormulaR1C1 = "さしすせそ" 33 Range("D1").Select 34 ActiveCell.FormulaR1C1 = "たちつてと" 35 36End Sub 37 38③ 39②で加工したデータを、別ブックのシートに転記したい 40 41### 補足情報(FW/ツールのバージョンなど) 42 43Windows10, Excel 2016 44 45よろしくお願いいたします。
回答2件
あなたの回答
tips
プレビュー