Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11080 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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および、OFFICE２００３を再インストールしてから、ファイルを開くことができなくなってしまいました。こういうことってあるのでしょうか？
【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 -
引用なし
パスワード
   ▼ちゃっぴ さん：
ありがとうございます。

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

ちなみに、エラーメッセージは「ファイルが見つかりません」でした。
ほんとうにありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11080 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free