Question

EXCEL中VBA 输出到TXT文件中的问题!

Private Sub CommandButton1_Click()
Dim c As Range
Kill ThisWorkbook.Path & "\data.DXF"
Open ThisWorkbook.Path & "\data.DXF" For Append As #1
For Each c In Worksheets("DXF").Range("H2:H213")
Print #1, c.Value
Next
For Each c In Worksheets("DXF").Range("I2:I11")
Print #1, c.Value
Next
Close #1
End Sub
在H2:H213单元格中有数字和汉字，其中输出到TXT文件中，数字前后有空格，如何去掉数学的前后空格？

Answer 1

For Each c In Worksheets("DXF").Range("H2:H213")
Print #1, trim(c.Value)
Next