Excel VBA質問箱 IV

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

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


11078 / 13644 ツリー ←次へ | 前へ→

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

【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を再インストールしてから、ファイルを開くことができなくなってしまいました。こういうことってあるのでしょうか?

【18291】Re:ファイルが開けなくなりました
回答  ちゃっぴ  - 04/9/20(月) 20:33 -

引用なし
パスワード
   >  ChDir pt & "\program\"

ChDirステートメントは対象をネットワークにすると
正常に実行されませんので

>  Workbooks.Open ("プロ" & zengo & ".xls")

Workbooks.Open pt & "\program\" & "プロ" & zengo & ".xls"
のようにフルパス指定したほうがいいです。

あと、「pt & "\program\" & "プロ" & zengo & ".xls"」という
ファイルは存在していますか?

MsgBox CreateObject("Scripting.FileSystemObject").FileExists( _
  pt & "\program\" & "プロ" & zengo & ".xls")

で存在しているか、確認しましょう。

なの、ファイルがオープンできないときのエラーメッセージは
どのように表示れますか?

【18292】Re:ファイルが開けなくなりました
お礼  蒙虎襲来  - 04/9/20(月) 20:53 -

引用なし
パスワード
   ▼ちゃっぴ さん:
ありがとうございます。

おっしゃるようにフルパス指定したらできました。

ちなみに、エラーメッセージは「ファイルが見つかりません」でした。
ほんとうにありがとうございます。

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