Question

求一段Excel转txt 文档的VBA代码，很简单的。

Excel中，单元格 A1的内容是“刘丽”，B1的内容是“161”。

要求：转为txt后，txt文件名为“刘丽161”，内容为“我叫刘丽，身高161cm。”注意，要用上A1和B1的值。

用尽量简洁的代码，只需实现以上功能即可，无需其他功能。

Answer 1

Private Sub CommandButton1_Click()

Dim filename As String

Dim text As String

filename = Sheets(1).Cells(1, 1).Value & Sheets(1).Cells(1, 2).Value

Open "D:\" & filename & ".txt" For Output As #1

Print #1, "我叫" & Sheets(1).Cells(1, 1).Value & ",身高" & Sheets(1).Cells(1, 2).Value & "cm"

Close #1

End Sub