ExcelのVBA で実行エラー5

質問

ExcelのVBA　で実行時エラー5のプロシージャの呼び出し、または引数が不正です。
と出るのですが、何が悪いのでしょうか？

引っかかる部分は下のコードの「tf.Writeline (Wl)」のところです。
'On Error GoTo ErrorHandler
tf.Writeline (Wl)
On Error GoTo 0
Wl = ""
C = C + 1
End If

回答よろしくお願いします。

回答No.2

imogasi

ExcelのVBA　となっているが、ＦＳＯの質問でもあります。
全般にエラーの原因解明の質問として説明不足です。
うまく動く下記例をＷＥＢで見つけたので実行してみました。うまく動きます（参考）。
パターン的にはおかしいところはないと思います。
残るは「（Wl)」の変数の子の瞬間の中身です。
簡便なのは、tf.Writeline (Wl）の行の前に
Msgbox WI
を直前行に入れて実行して、変数ＷＩに何（文字列）が入っているか見てください。
（正しくは、ＶＢＡのデバッグ・トレース法に従ってやってください）
また
Ｃ＝Ｃ＋１という行が見えますが、ＷＩの値を決定する（Ｃを使った）エクセルＶＢＡのコード行があるはずです。それぐらい書かないと原因がわからない。
読者に、手がかりを与えなさすぎる。
ーー
ＦＳＯのWriteLineを使った例
Sub CreateFile()
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("C:\Users\XXX\Documents\テスト用.txt", True)
'改行文字を付けて 1 行書き込みます。
tf.WriteLine ("1、2、3 をテストしています。")
' ファイルに改行文字を 3 つ書き込みます。
tf.WriteBlankLines (3)
'1 行書き込みます。
tf.Write ("これはテストです。")
tf.Close
End Sub
例を挙げます。

回答No.1

ushi2015

こんにちは
情報が少ないですね。
試しに
tf.Writeline (Wl)
を
tf.Writeline Wl
にしてみるとか。