|
かみちゃんさん
早速ありがとうございます。
先ほどの記録を添付いたします。
Sub 一括表示()
'
' 一括表示 Macro
' マクロ記録日 : 2006/8/1 ユーザー名 :
'
ChDir "\\Tky-001\土日報告\8月"
Workbooks.Open Filename:= _
"\\Tky-001\土日報告\8月\横浜.xls", _
UpdateLinks:=0
Workbooks.Open Filename:= _
"\\Tky-001\土日報告\8月\さいたま.xls", _
UpdateLinks:=0
Workbooks.Open Filename:= _
"\\Tky-001\土日報告\8月\名古屋.xls", _
UpdateLinks:=0
Workbooks.Open Filename:= _
"\\Tky-001\土日報告\8月\福岡.xls", _
UpdateLinks:=0
Windows("マーケ.xls").Activate
Range("G9").Select
End Sub
上記の様に、当然かもしれませんが8月を指定してしまうため、8月が表示されてしまいます。
次月は、9月というフォルダを作成しそのフォルダに保存するように作りたいのです。
毎月毎月増やしていく様にしたいと考えています。
|
|