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
Excel VBA，输出为txt文档，一个很简单的问题。
答案:2 悬赏:50
解决时间 2021-02-18 15:58
- 提问者网友：刪除丶後
- 2021-02-17 19:11
最佳答案
- 二级知识专家网友：何以畏孤独
- 2021-02-17 19:38
您好，代码改成这样
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
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
全部回答
- 1楼网友：糜废丧逼
- 2021-02-17 20:31
print #1, "哈哈";
print #1, "呵呵"
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯