エクセルのVBAでサーバーへファイルを転送する際のエラーについて
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| 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 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
