エクセルのVBAでサーバーへファイルを転送する際のエラーについて

最近の書き込み件数：今日 0件、昨日 0件
未読分：3件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#3 2015年2月6日(金)00時43分
From: jyjaa

返事削除変更

ご指導ありがとうございます！

早速回答どおりに試してみたいと思います。

取り急ぎお礼まで。

Message#2 2015年2月6日(金)00時42分
From: OSOS

返事削除変更

うーむ。
どうやらOSの挙動が不安定ということみたいですね。
基本的にはほぼOKな感じですが、filesystemのひとつ手前のところで、wshのnetworkを利用すればよいかと思います。
また、仮想ドライブ設定をしてみて、今回のコードパスがどのようにアクセスされるのか調整してみてください。
スクリプトコードの段階ではないので、どうしようもない部分ではありますね。

Message#1 2015年2月5日(木)23時07分
From: jyjaa

返事削除変更

エクセルのVBAでサーバへテキストファイルを転送処理を行っています。

基本的にはテキストファイルを作成できるのですが、たまにファイル作成ができないことがあります。
以下はサンプルコードですが、どこか間違っている部分があるでしょうか？

よろしくお願いします。

Sub Sample()

Dim MySavePath As String
Dim MyOutPutComment As String
Dim myFSO As FileSystemObject
Dim myTextFile As textstream

MySavePath="\\***.***.***.***\Data\test.txt"

Set myFSO = New FileSystemObject

If myFSO.FileExists(MySavePath) = False Then
myFSO.CreateTextFile Filename:=MySavePath
End If

Set myTextFile = myFSO.OpenTextFile(MySavePath, ForAppending)
myTextFile.WriteLine Text:=Now() & "_" & MyOutPutComment
myTextFile.Close

Set myTextFile = Nothing
Set myFSO = Nothing

End Sub