vba - 範囲を選択してメモ帳にコピー/貼り付け - ほぼ完了

Question

多くの作業とテストの後 (非常に哀れです)、最終的にワークシートで範囲を選択し、メモ帳にコピー/貼り付けすることができました。その後、ファイルは別のアプリによって読み取られます。残念ながら、アプリはファイルを拒否し、その理由をデバッグする方法はありません。私が持っている唯一のメッセージは、最後の行でエラーが発生したことです。

驚いたことに、メモ帳に手でコピペするとうまくいきます。私の目に見える限り、両方の txt ファイル (私のsub()で書かれたものと手動で CP からのもの) はまったく同じです。目がおかしいのかな。最後の行の終わりまたは最後の行の下に、見えない空白があると思われます。私が完全に理解していないコードの唯一の部分は、私によると、現在の問題の場所です。

私のコードの下の部分を見つけてください：

[code]
' RngSelect is a Variant and effectively a range of cells 
' Txt is a Variant
' LastRow is a Long equal to last row number of my range

With RngSelect
For Lg1 = 1 To LastRow
    Txt = Txt & vbCrLf & Join$(Application.Transpose(Application.Transpose(.Rows(Lg1).Value)),vbTab)   ' copy each row    
Next
End With

Open FilePath For Output As #1
Print #1, Mid$(Txt, Len(vbCrLf) + 1)
Close #1

RngSelect = Null
Txt = Null

End Sub

それが役立つ場合、他のアプリによってインポートされる私のファイルは csv 形式にすることができます。現在、区切り文字はTabです。

ご協力ありがとう御座います。