Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

19772 / 76735

←次へ　｜　前へ→


	【62389】サーバーからの読み込み

亜矢 - 09/7/16(木) 11:24 -


	引用なし

	パスワード

よろしくお願いします。
今までは下記のプログラムの通り自分のパソコン内でデータを処理していましたが、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

0 hits

▼

【62389】サーバーからの読み込み 亜矢 09/7/16(木) 11:24

≪