Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

40635 / 76735

←次へ　｜　前へ→


	【41195】Re:フォルダの表示

りんた - 06/8/1(火) 17:34 -


	引用なし

	パスワード

かみちゃんさん
早速ありがとうございます。

先ほどの記録を添付いたします。

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

上記の様に、当然かもしれませんが８月を指定してしまうため、８月が表示されてしまいます。

次月は、９月というフォルダを作成しそのフォルダに保存するように作りたいのです。

毎月毎月増やしていく様にしたいと考えています。

0 hits

▼

【41186】フォルダの表示 りんた 06/8/1(火) 16:48