エクセルのVBAでサーバーへファイルを転送する際のエラーについて 削除
| 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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
