Excel VBA質問箱 IV

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

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


13163 / 13646 ツリー ←次へ | 前へ→

【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
あるはずのファイルが検索にひっかからず、
「ありません」というメッセージボックスが表示されました。
エクスプローラ-ネットワークコンピュータ-Com-foldの中に
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 -

引用なし
パスワード
   すみません。申し訳無いです。
そしてJakaさんありがとうございました^^
↓と書いて実行してみましたが、やはり「ありません」とでます^^;
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"

Jakaさんありがとうございました^^

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