Excel VBA質問箱 IV

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

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


40632 / 76732 ←次へ | 前へ→

【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


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

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

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

【41186】フォルダの表示 りんた 06/8/1(火) 16:48 質問
【41191】Re:フォルダの表示 かみちゃん 06/8/1(火) 17:09 発言
【41195】Re:フォルダの表示 りんた 06/8/1(火) 17:34 質問
【41199】Re:フォルダの表示 かみちゃん 06/8/1(火) 18:07 発言
【41193】Re:フォルダの表示 かみちゃん 06/8/1(火) 17:15 発言
【41194】Re:フォルダの表示 Kein 06/8/1(火) 17:33 回答
【41202】Re:フォルダの表示 りんた 06/8/1(火) 18:21 お礼

40632 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free