[[20050328142927]]　『VBA：ネットのファイルへアクセスするとエラー』（忘れた）　ページの最後に飛ぶ

『VBA：ネットのファイルへアクセスするとエラー』（忘れた）

[マクロでネットワークのエクセルファイルへアクセスするとエラー]

マクロでネットワーク(ＬＡＮ)のエクセルファイルへアクセスするとエラー。
なぜでしょか？

一度、ネットワークコンピューター等にて、該当ファイルがあるパソコンの
フォルダ等を開いてからだとエラーにならない。

共有設定しているパソコンはＸＰ Proです。

Workbooks.Open Filename:="\\KETPC005\日報\○○\○○○.xls", ReadOnly:=True
上記でエラーが発生します(忘れた)

 何エラーでしょうか？
 そのパソコンへのアクセス権限（共有）設定はどうなっていますか？
  (INA)

　実行時エラー　1004
　ファイルが見つかりません

　アクセス権限は　ＮＴＦＳでeveryone　←　フリー

となっております。(忘れた)

 '標準モジュール
 Declare Function SetCurrentDirectory _
 Lib "kernel32" _
 Alias "SetCurrentDirectoryA" ( _
 ByVal CurrentDir As String) As Long

 Sub sample()
    SetCurrentDirectory ("\\KETPC005\日報\○○")
    Workbooks.Open Filename:="\\KETPC005\日報\○○\○○○.xls", ReadOnly:=True
 End Sub

   (INA)

　教えていただいたように
Subの外側に４行、内側のWorkbooks.Openの前に１行を追加したのですが
同じエラーになってしまいました。(忘れた)

  Sub sample()
    SetCurrentDirectory ("\\KETPC005\日報\○○")
    application.getopenfilename("") '←ここで↑のフォルダがカレントとして開かれますか？
    Workbooks.Open Filename:="\\KETPC005\日報\○○\○○○.xls", ReadOnly:=True
 End Sub

  (INA)

　ローカルのマイドキュメントフォルダが開きました。

マクロを動かしているＰＣのＯＳは９８です。(忘れた)

 Excelのバージョンは？　ＯＳは、Win98 SE？
 (INA)

今テストをしているパソコンの
　Excelのバージョンは2000 SR-1
　ＯＳは、Win98 SEです。(忘れた)

 SetCurrentDirectory関数が動いていないようですが、
 パス名が正しいか確認して下さい。
 エクスプローラーからコピペして下さい。 　
  (INA)

 このようなことでしょうか。
 [XL98:再実行されるとき、 Web 上のブックを開く記録されたマクロが失敗します。]
http://support.microsoft.com/default.aspx?scid=kb;ja;188033

 名前かパスがチョット違ってるような気がします。 　　（jun53）

 合っているんですけど、ダメですね？

 最初にも書きましたが、
一度、ネットワークコンピューター等にて、該当ファイルがあるパソコンの
共有フォルダを開いてからだとエラーになりません。
ゆえに、接続してから今回のテストをすると
    SetCurrentDirectory ("\\KETPC005\日報\○○")で指定したフォルダが
きちんと開かれました。
起動した直後だとダメです。(忘れた)

 やはりここに顔を出す身分では無かった、私。
[INA]さん、すみませんでした。 　　（jun53）

 私もよく分からないから･･･(^_^;)

 Shell "EXPLORER \\KETPC005\日報\○○", vbNormalFocus

 だと、どうでしょうか？

 あとネットワークはワークグループですか？ドメインですか？ 　
  (INA)

 Shellでやってみたところ、ローカルのＣドライブのエクスプローラーが起動しました。ダメでした。

 共有フォルダのアクセス権はフリーですが、
 参照されるＰＣはxpですので、接続したいパソコンの名前は
ユーザーアカウントに登録し、パスワードを設定してあります。
接続ＰＣは、パスワードを記憶しておりますので、ネットワークコンピューターで
アクセスする際は、起動直後でも毎回パスワードを求められることはないようです。(忘れた)

 ネットワークドライブの割り当てをしておくことはできないのでしょうか？

 APIでドライブの割り当てをON/OFFするか･･･(-_-;)
  (INA)

 常時、ネットワークドライブの割り当てをしておくというのは
避けたいです。
 APIは良くわかりません。どのようなコードを記載すればよいのか
教えていただけると助かります。でも、最初のON設定のＶＢＡの時に
エラーになってしまうような気もします。
 先にコネクションの確立が出来るようなＶＢＡがないでしょうか？(忘れた)

 どうぞ。
http://galliver.co.jp/writing/vbm_tokushu/api9031/
http://www.vbvbvb.com/jp/gtips/0851/gWNetAddConnection2NoDriveLetter.html

  (INA)

 難かしすぎて、何回読んでもわかりません。
ネットワークリソースに接続する操作の最低部分だけ
だと、どういうコードになるのでしょうか。(忘れた)

コメント返信：

[ 一覧(最新更新順) ]

[[20050328142927]] 『VBA：ネットのファイルへアクセスするとエラー』（忘れた） ページの最後に飛ぶ

[[20050328142927]]　『VBA：ネットのファイルへアクセスするとエラー』（忘れた）　ページの最後に飛ぶ