Excel VBA質問箱 IV

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

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


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

74466 / 76732

←次へ　｜　前へ→


	【6732】Re:サーバのファイルを開きたい

airi - 03/7/29(火) 13:44 -


	引用なし

	パスワード

こんにちは。返信していただいきありがとうござます～
↓のように実行すると
On Error Resume Next
trfl = Dir("\\Com\fold" & "\File.xls")
If Err <> 0 Or trfl = "" Then
　 MsgBox "ありません。"
　 End
End If
On Error GoTo 0
Open "\\Com\fold\File.xls" For Append As #1 'ファイルが無い場合は作成する
Close #1
あるはずのファイルが検索にひっかからず、
「ありません」というメッセージボックスが表示されました。
エクスプローラ-ﾈｯﾄﾜｰｸｺﾝﾋﾟｭｰﾀ-Ｃｏｍ-ｆｏｌｄの中に
File.xlsがあるかどうか確認もしました。ちゃんとあるのですが・・・

エクスプローラでファイルを確認した後プログラムを実行すると
ファイルを正常に開くことが出来ました^^;
パソコンを再起動してもう一度実行してみると
またエラーがでます・・・
エクスプローラで毎回確認するしかないのでしょうか？

2 hits

▼

【6728】サーバのファイルを開きたい airi 03/7/29(火) 10:57