Excel2007 VBAについて質問です。 現在マクロでExcelデータを毎朝8時に保存フォルダに自動保存しているのですが、今回保存フォルダの中に年別フォルダ、月別フォルダを作成しその中に保存していきたいと思っています。 例 2013年フォルダの中に1月～12月のフォルダ 2013年2月25日の保存データは2013年フォルダ内の2月フォルダ内に保存。 ちなみに年度別フォルダは、2030年ぐらい迄作る予定です。 以下現在のマクロです。 Sub 自動保存（） Dim 年 As String Dim 月 As String Dim 日 As String 年 ＝ Year（Now（）） 月 ＝ Month（Now（）） 日 ＝ Day （Now（）） With Workbooks （″サンプル．xlsm″） WorkSheets（″Sheet3″）．Range（″B6：B205″）．Value ＝ Worksheets（″メインモニタ″）．Range（″F13：F212″）．Value End With Worksheets（″Sheet3″）．Select Worksheets（″Sheet3″）．Copy Application．DisplayAlerts ＝ False Const mypath As String ＝ ″C：￥保存データ￥″ With ActiveWorkbook．SaveAs″C：￥保存データ￥″＿＆年＆″年″＆月＆″月″＆日＆″日″＆″．xlsx″．Close End With Application．DisplayAlerts ＝ True Application．Ontime DeteValue（Dete ＋1）＋TimeValue（″8:00:00″），″自動保存″ Worksheets（″メインモニタ″）．Activate End Sub すいませんがご指導願います。
↧