|
▼亜矢 さん:
こんにちは。
mypathの部分はネットワーク(サーバー)に変わりました
>mypathを"\\・・・以下のサーバーのPathにしましたが、
>データが読めませんでした。
>mypath = "C:\Users\aya\SEIBAN\"
>myfilename = Dir(mypath, 0)
>Do While Len(myfilename) > 0
> myFF = mypath & myfilename
> myfilename = Dir()
>Loop
ローカルのときは そのコードで実行可能だったんですか?
それであれば、
> "\\・・・以下のサーバーのPath
の設定が何かちがっていたということは 考えられませんか?
>また、参照設定は何を参照設定にすればいいのかも
CreateObject関数でマクロが走り出してから、オブジェクトを作成する
のであれば、参照設定は不要です。
Dim MyFso As Object
Dim myTxt
のように、ぼんやりと(^^)総称オブジェクトで変数を宣言しておいて、
> Set MyFso = CreateObject("scripting.filesystemobject")
> Set myTxt = MyFso.OpenTextFile(Filename:=myFF, IOMode:=ForReading)
> 途中省略
で実行すればいけると思います。
|
|