| |
▼亜矢 さん：
こんにちは。
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)
> 途中省略
で実行すればいけると思います。
|
|
kanabun
- 09/7/16(木) 11:52 -
