|
▼kanabun さん:
>▼亜矢 さん:
>こんにちは。
>
>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)
>> 途中省略
>で実行すればいけると思います。
ありがとうございました。Pathを再確認したら実行できました。
お手数をお掛けしました。
|
|