こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

テキストファイルへの書き出し

ExcelVBAについて教えてください。

Dim path As String
Dim FullPath As String
Path ="C:\"
Dim FN As String
FN ="abc.txt"
Dim intFF As Integer
intFF = FreeFile

FullPath = Path & "\" & FN

Open FullPath For Output As #intFF
Print #intFF, FullPath
Close #intFF

とやると、Open FullPathのところで、実行時エラー 76、パスが見つかりませんと表示されてしまいます。
やりたいことは、Excel VBAでテキストファイルを新規につくり、そこへ書き出し、保存したいです。ファイル名はFullPathで指定したファイル名を新規で作り出し、それに対して書き出し、保存をしたいです。
何が間違っているのでこのようなエラーが表示されてしまうのでしょうか?回避方法がありましたらご教授お願いいたします。

投稿日時 - 2009-03-27 07:02:49

QNo.4830414

困ってます

質問者が選んだベストアンサー

>Path ="C:\"
>FN ="abc.txt"
>FullPath = Path & "\" & FN
FullPath = "C:\\abc.txt" と"\"が並んでいるのでは?

FullPath = Path & FN
かと。

投稿日時 - 2009-03-27 07:56:36

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問