Excel to Text VBAが疑問符で始まる - 修正方法？

Question

私はExcelのVBAの新機能です。私は、テキストファイルにExcelでセルの列を変換するオンラインスニペットの例から、私は一緒に石畳、このコードを使用しています：

Private Sub CommandButton1_Click() 
Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j As Integer 
Dim FName As String 
Dim FPath As String 

Set fsT = CreateObject("ADODB.Stream"): 'Create Stream object 
fsT.Type = 2: 'Specify stream type – we want To save text/string data. 
fsT.Charset = "utf-8": 'Specify charset For the source text data. 

FPath = "C:\WHIT\ParamGen" 
FName = Sheets("Sheet1").Range("b49").Text 

myFile = FPath & "\" & FName 

Set rng = Range("B2: B42 ") 

Open myFile For Output As #1 

For i = 1 To rng.Rows.Count 
    For j = 1 To rng.Columns.Count 

cellValue = rng.Cells(i, j).Value 

If j = rng.Columns.Count Then 
    Print #1, cellValue 
Else 
    Print #1, cellValue, 
End If 

    Next j 
Next i 

Close #1 

End Sub 

問題は、私のExcelファイルの最初のセルは、このテキストが含まれていることである。

@ = 1

...そしてそれは、このような生成されたテキストファイルに表示：！？！

@ = 1

Excelファイル内のその他のものは問題なくテキストファイルに書き込まれますが、この疑問符はこのファイルが生成されているソフトウェアのインポート機能を駄目にします。

この疑問符が表示されなくなるためのアイデアはありますか？

Answer 1

「？」を削除しようとしましたか？など、ファイル内のコード、と：！

If left(cellvalue,1)="?" then 
    application.substitute(cellvalue,"?","") 
end if 

Answer 2

私は最初のセルは、@ = 1を含むと、このコードを実行し、それをテキストファイルに正しく書い@ = 1（無添加？）！。セルB2に印刷できない文字が含まれているかどうか確認しましたか？

Answer 3

解決策が見つかりました。 Excelは最初のセルの@！= 1を関数として扱っていましたが、関数関数ではありませんでした。私の最高の推測では、それがテキストファイルに解析されるので、そこに目に見えない文字を投げていたということです。問題のセルを'@！= 1に上書きすると、このトリックが実行されました。