Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13161 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【6728】サーバのファイルを開きたい airi 03/7/29(火) 10:57 質問
【6729】Re:サーバのファイルを開きたい Jaka 03/7/29(火) 12:43 回答
【6732】Re:サーバのファイルを開きたい airi 03/7/29(火) 13:44 質問
【6736】Re:サーバのファイルを開きたい Jaka 03/7/30(水) 12:18 回答
【6735】Re:サーバのファイルを開きたい ウィッキー 03/7/30(水) 11:46 発言
【6739】Re:サーバのファイルを開きたい airi 03/7/30(水) 13:10 お礼
【6744】Re:サーバのファイルを開きたい airi 03/7/30(水) 17:16 お礼
【6728】サーバのファイルを開きたい
質問  airi  - 03/7/29(火) 10:57 -
引用なし
パスワード
   ネットワークｺﾝﾋﾟｭｰﾀの中の「Com」というｺﾝﾋﾟｭｰﾀの「fold」というﾌｫﾙﾀﾞの中にある
File.xlsというファイルを開きたいのですが、
Open \\Com\fold & "\File.xls" For Append As #1 'ファイルが無い場合は作成する
Close #1
とするとエラーが返ってきます。
書き方が間違っているのでしょうか？
知っている方がいましたらよろしくおねがいします。
【6729】Re:サーバのファイルを開きたい
回答  Jaka  - 03/7/29(火) 12:43 -
引用なし
パスワード
   こんにちは。
多分こんな感じになるじゃないかと．．．。

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
【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があるかどうか確認もしました。ちゃんとあるのですが・・・

エクスプローラでファイルを確認した後プログラムを実行すると
ファイルを正常に開くことが出来ました^^;
パソコンを再起動してもう一度実行してみると
またエラーがでます・・・
エクスプローラで毎回確認するしかないのでしょうか？
【6735】Re:サーバのファイルを開きたい
発言  ウィッキー  - 03/7/30(水) 11:46 -
引用なし
パスワード
   マルチです！
http://www2.moug.net/app/bbs/message.php?cat=exvba&id=20030730-000011

ここはマルチOKですが
ほとんどのサイトがマルチ禁止です。
あちらを閉じてください。
【6736】Re:サーバのファイルを開きたい
回答  Jaka  - 03/7/30(水) 12:18 -
引用なし
パスワード
   すみません。
昨日、間違っているので再度アップしようとしたんですが、ここが落ちちゃったみたいでアクセスできませんでした。
しかも、今日は私用のため休む予定だったんで、訂正できないストレスというか罪悪感に見舞われて、「胃がぁ〜胃がぁ〜、また穴があくぅ〜」と昨夜苦しみましたので、堪忍してください。
因みに今日は、のこのこ兄貴の家にやってきて、そこからです。（家のパソコンは、外部とつなげてない。）
多分これでいけると思います。

On Error Resume Next
If Dir("\\Com\fold" & "\File.xls") = "" Then
　 MsgBox "ありません。"
　 End
End If
On Error GoTo 0
【6739】Re:サーバのファイルを開きたい
お礼  airi  - 03/7/30(水) 13:10 -
引用なし
パスワード
   すみません。申し訳無いです。
そしてＪａｋａさんありがとうございました＾＾
↓と書いて実行してみましたが、やはり「ありません」とでます^^;
On Error Resume Next
If Dir("\\Com\fold" & "\File.xls") = "" Then
　 MsgBox "ありません。"
　 End
End If
On Error GoTo 0

パソコンがおかしいのかな・・・
いろいろ調べてみます。

ありがとうございました＾＾
【6744】Re:サーバのファイルを開きたい
お礼  airi  - 03/7/30(水) 17:16 -
引用なし
パスワード
   こんにちは。
Openステートメントではどうもうまく行かないので
AddﾒｿｯﾄﾞとOpenﾒｿｯﾄﾞを使うことで解決しました。
On Error Resume Next
　If Dir("\\Com\fold" & "\File.xls") = "" Then 'ファイルがなかった時
　　 Set NewBook = Workbooks.Add 'ブックを作成
　　 NewBook.SaveAs Filename:="\\Com\fold\File.xls"
　End If
On Error GoTo 0
Workbooks.Open Filename:="\\Com\fold\File.xls"

Ｊａｋａさんありがとうございました＾＾
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13161 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free