Excel VBA質問箱 IV

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

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


63041 / 76732 ←次へ | 前へ→

【18290】ファイルが開けなくなりました
質問  蒙虎襲来  - 04/9/20(月) 19:55 -

引用なし
パスワード
   Sub ファイル開く()
  '午前プロ あるいは午後プロを開く
  Dim zengo, pt, As String
  pt = ThisWorkbook.Path
  ChDir pt & "\program\"
  
  For i = 1 To 2
  zengo = ThisWorkbook.Worksheets("リスト").Cells(1, i).Value
  Workbooks.Open ("プロ" & zengo & ".xls")
  Next i

このように、このブックがあるフォルダに 「program」というフォルダがあり、その中のブックを開くようにしたいのです。
先日まではこれでできていたのですが、XPおよび、OFFICE2003を再インストールしてから、ファイルを開くことができなくなってしまいました。こういうことってあるのでしょうか?
0 hits

【18290】ファイルが開けなくなりました 蒙虎襲来 04/9/20(月) 19:55 質問
【18291】Re:ファイルが開けなくなりました ちゃっぴ 04/9/20(月) 20:33 回答
【18292】Re:ファイルが開けなくなりました 蒙虎襲来 04/9/20(月) 20:53 お礼

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