Question

Excel VBA，输出为txt文档，一个很简单的问题。

sheet1的A1单元格 内容 为"1987"，以下代码执行后，将生成一个txt文档，内容为"1987"。我的问题是，我想让txt的内容为“87”，而不是“1987”，该如何修改以下代码：

Sub CommandButton1_Click()

Open "D:\new.txt" For Output As #1
Print #1, Sheets(1).Cells(1, 1).Value
Close #1

End Sub

Answer 1

您好，代码改成这样

Sub CommandButton1_Click()

Open "D:\new.txt" For Output As #1
Print #1, Right(Sheets(1).Cells(1, 1).Value, 2)
Close #1

End Sub

Answer 2

Print #1, Right(Sheets(1).Cells(1, 1).Value, 2)