- ベストアンサー
VBAでネットワークコンピュータのファイルにアクセスできない(XL2000)
Wendy02の回答
- Wendy02
- ベストアンサー率57% (3570/6232)
こんばんは。 コードをみないと、なんともコメントしがたいのですが、私は、状況をあまり把握していません。 コードの最初に MyPath = "\\サーバー名 \○○\" If Dir(MyPath & Fname) <> "" Then '-実行 End If とするか、 Set objFSO = CreateObject("Scripting.FileSystemObject") With objFSO If Not .DriveExists(myPath) Then Exit Sub With .GetDrive(myPath) If Not .IsReady Then Exit Sub End With End With '-実行 なんていう、オプションをつければよいのではないでしょうか?
関連するQ&A
- ネットワークコンピュータにファイルをコピーする
ローカルドライブにあるファイルを、ネットワークコンピュータの所定のフォルダにコピーしたいのですが、FileCopyではコンピュータ名から始まるフォルダ名若しくはファイル名を使えません。 FileCopy("C:\a.txt","\\Other\C\Data\a.txt") これができるようなAPIとかはないでしょうか? OSは双方ともWindows2000、言語はVisualBasic6.0SP5です。 よろしくお願いいたします。
- 締切済み
- Visual Basic
- VBAでファイルのシートをコピーしたい。
VBAでファイルのシートをコピーしたい。 現在、FileCopyでEXCELファイルをコピーしていますが、特定のシートだけコピーしたいのですが、、 (現在の一部です) FileCopy fs.FoundFiles(i), "C:\集計" どのように書き換えればよいのでしょうか? 宜しくお願いします。
- ベストアンサー
- その他(プログラミング・開発)
- VB6でのファイルコピーの終了検知について
FileCopyステートメントがありますが、FileCopyステートメントで大きなファイルをコピーしたり、ネットワーク上の別のPCにコピーしたりするとします。 コピーされた後のファイルをさらにコピーしたいのですが、コピーが完全に終了していないせいか、うまく動作しません。 ファイルのコピーが完全に終わったと検知する方法があるのでしょうか? また、ファイルの削除に関しても同様に、完全に削除し終えたと検知する方法があるのでしょうか? どなたか知っておられる方がおられましたらよろしくお願い致します。 FileCopyやKillなどのステートメントにはこだわっていません。 APIなどでもかまいませんのでよろしくお願い致します。
- ベストアンサー
- Visual Basic
- ネットワークドライブのファイルをFileCopyできない
ネットワークドライブにあるLZHファイルをローカルドライブにコピーするために、VB6.0のFileCopy関数を使っています。 Windows2000までは特に問題なかったのですが、XPで「パス名が無効です」の実行時エラーが出ます。 FileCopy "\\He\共有フォルダ\a.txt", "c:\Data\a11.txt" Heには指定のファイルがあり、cドライブにコピー先となるファイルはないので問題ないはずなのですが、コピーできないのです。 OSの問題なのか何なのか見当もつかない状態です。 (ちなみにDosプロンプトで>dir "\\He\共有フォルダ\a.txt"とするとちゃんと見えています。またドライブ接続してG:\とかに変えても同じです。) このような経験がおありの方、小さなことでも構いませんので教えていただけないでしょうか?
- 締切済み
- Visual Basic
- VBA ネットワーク上のファイルでカレントフォルダを取得するには?
VBA ネットワーク上のファイルでカレントフォルダを取得するには? VBA超初心者でネットで色々調べて、ところどころコピーしながらプログラムを作っています。 ローカルのPCでは問題なく動くまでになったのですが、実際にはネットワーク上の共有サーバで実行したいのですが、ネットワーク上ではカレントパスがうまく設定できていないようで、動きません。 CreateObject("WScript.Shell").CurrentDirectory = ThisWorkbook.Path というコードでVBAが置いてあるフォルダをカレントディレクトリに設定するようにしています。 どのようにしたらネットワークサーバで動くようになりますか?
- ベストアンサー
- Visual Basic
- ネットワーク上のコンピュータにファイルをコピーできない
社内にWEBサーバーを置いています。 同じネットワークにいるので、自分のPCから公開しているフォルダを開いて(公開しているフォルダにはパスワードの設定がしてあります。ユーザー名とパスワードを入力するとフォルダは開けます。) 直接ファイルをコピーしようとしたら、 「ファイルまたはフォルダのコピーエラー」が出て、エラーメッセージは、「・・・をコピーできません。アクセスできません。ディスクがいっぱいでないか、書き込み禁止になってないかまたはファイルが使用中でないか確認してください」と書かれています。 しかし、この方法でコピーできた時もあります。 WEBサーバーはWinNTServer,自分のPCはWinXPProです。 アップロードをこのやり方でやろうとするのが間違っているのでしょうか? 教えて下さい。
- ベストアンサー
- その他(インターネット接続・通信)
- Access VBAでファイルのインポートについて
あるディレクトリにAccessのmdbファイルを置き、「インポート」フォルダを隣に置きます。 このフォルダ内にCSVファイルを置き、それをVBAでテーブル「tbl_import」にインポートさせたいのです。 ちなみにインポート後はディレクトリ「インポート」下層のディレクトリ「インポート済」に移動させたいのです。 下記例文では「file.csv」と書いていますが、このファイル名はインポートの都度、常に変わります。 インポートさせるファイルは常に一つです。 「*」を用いれば出来ると思っていたのですが、うまくいきません。 良い方法を教示いただけませんか。 DoCmd.RunSQL "DELETE * FROM tbl_import" DoCmd.TransferText acImportDelim, "インポート定義", "tbl_import", CurrentProject.Path & "\インポート\file.csv", True FileCopy CurrentProject.Path & "\インポート\file.csv", CurrentProject.Path & "\インポート\インポート済\file.csv" Kill CurrentProject.Path & "\インポート\file.csv"
- ベストアンサー
- その他(データベース)
- ネットワーク上のファイルのコピー
ネットワーク上のファイルをローカルにコピーする為に FileCopy("\\cp1\D$\aaa\a.txt", "d:\b.txt") を実行したところ ファイル名または番号が不正です(エラー52) が出てしまいます ネットワーク上のPCとユーザとパスワードが違うのでログインでエラーになっているのですが ネットワーク上のPCにユーザを登録するのではなく ユーザ名とパスワードを指定してログインしてから ファイルをコピーする方法はありますでしょうか?
- ベストアンサー
- Visual Basic
- エクセルVBA、ネットワーク上のフォルダーに保存
エクセル2000VBAの記述で教えてください。 ネットワーク上のフォルダーにVBAファイルを開いて、使用後に年月日をファイルの頭に付けて名前を変えて、ネットワーク上の同じフォルダーに保存したいのですが、ネットワークドライブを使用しないで記述するにはどうすればよいでしょうか?ネットワークドライブを使用しないのは、VBAファイルを複数のパソコンで使用するためです。
- ベストアンサー
- Visual Basic
- ACCESS、VBAでEXCELファイルをコピーはできますか
ACCESS、VBAでEXCELファイルをコピーはできますか。 同じフォルダーにあるEXCELファイル:Aファイルを削除してA_BACKファイルをAファイルとしてコピーしたい。 宜しくお願いします。
- ベストアンサー
- その他(データベース)
補足
アドバイスありがとうございます。 ”コードをみないと”という程、大それたものではありません。Auto_Closeの中で、コピー元、先共にファイル名までフルパスを指定して、 FileCopy sourceFile, destFile とやっているだけです。 アドバイスいただいた内容に関しては、下記の通りのコードを、FileCopy sourceFile, destFileに先駆けてやってみましたが変化無しです。 Dim myPath As String Dim objFSO As Object myPath = "\\○○\××" Set objFSO = CreateObject("Scripting.FileSystemObject") With objFSO If Not .DriveExists(myPath) Then Exit Sub With .GetDrive(myPath) If Not .IsReady Then Exit Sub End With End With 帰宅間際に少しいじっただけなので、吟味は出来ていませんが、 上のような理解で良いのでしょうか?次に試行できるのは月曜になりますが、よろしくお願いします。