我怎样才能删除“标记从TXT文件我从Excel导出？

我使用这个macros导出txt文件：

Sub txtfile() Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j As Integer myFile = Application.DefaultFilePath & "\Tax Exemption Check Template.txt" Set rng = Selection 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 Write #1, cellValue Else Write #1, cellValue, End If Next j Next i Close #1 End Sub 

例如，如果我select的单元格包含：

1234，该文件包含“1234”如何删除这些“”？

谢谢，

阿龙

Answer 1

这是在遇到string值时的write行为。

改变print ，例如

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