Open For Output As #nで、

質問

エクセルで
Open For Output As #nで、
自身のファイルに文字を書き込むことはできないのでしょうか？

Sub test1()
Dim MyFileName As String
Dim n As Long
Dim i As Long, LastRow As Long

MyFileName = ActiveWorkbook.FullName

n = FreeFile
Open MyFileName For Output As #n　‘(1)
Print #n, "test"
Close #n

End Sub
を行うと、(1)の部分で、
書き込みできません。(Error 70)になります。

エクセルに書き込む方法はいくつかありますがこの方法では書き込めないのですか？

エクセルの現在のブックのシート１のセルＡ１に書き込みたいです。

回答No.1

noname#189141 · ベストアンサー

自信のファイルは、既に開いていますので、さらに開くことはできません。
また、Open As で開いて、Print で書き込めるのは、テキストファイル（メモ帳で開けるファイル）です。
またまた、これでは、どこのシート、セルと言った位置情報がなく、"test"と言う文字列を書くことだけしか分かりません。

現在のブックのシート１のセルA１に書き込みたいのであれば、
Worksheets("シート１").Range("A1") = "test"
でしょうか。（未テスト）

Open As は、
・Excelのデータをもとに、テキストデーターへの書き出し(CSV等も)
・外部テキストデーターの読み込み
・動作時のログ出力
などの要件で利用します。

お礼

やはりエクセルファイルに書き込むことは無理という事ですね。
Open As
の使い方の説明ありがとうございます。