|
よろしくお願いします。
今までは下記のプログラムの通り自分のパソコン内でデータを処理していましたが、mypathの部分はネットワーク(サーバー)に変わりました
mypathを"\\・・・以下のサーバーのPathにしましたが、
データが読めませんでした。解決方法を教えて頂きたいと思います。
また、参照設定は何を参照設定にすればいいのかも教えて頂きたいと
思います。
Sub データ読み込み()
Dim MyFso As Scripting.FileSystemObject
Dim myTxt As Scripting.TextStream
Dim Mat() As String
Dim mystr As String
Dim mypath As String
Dim myfilename As String
Dim myFF
Erase MMat
XX = 0
mypath = "C:\Users\aya\SEIBAN\"
myfilename = Dir(mypath, 0)
Do While Len(myfilename) > 0
myFF = mypath & myfilename
myfilename = Dir()
Set MyFso = CreateObject("scripting.filesystemobject")
Set myTxt = MyFso.OpenTextFile(Filename:=myFF, IOMode:=ForReading)
途中省略
Loop
end sub
|
|