如题所述
Sub SaveFile()
Open ActiveWorkbook.Path & "\A.txt" For Output As #1
Print #1, Sheets("Sheet1").Range("A1")
Close #1
End Sub
'ä¿åå·¥ä½è¡¨Sheet1ä¸A1åå æ ¼çå 容å°å½åç®å½ä¸A.txtæ件ä¸
Open ActiveWorkbook.Path & "\A.txt" For Output As #1
Print #1, Sheets("Sheet1").Range("A1")
Close #1
End Sub
'ä¿åå·¥ä½è¡¨Sheet1ä¸A1åå æ ¼çå 容å°å½åç®å½ä¸A.txtæ件ä¸
温馨提示:答案为网友推荐,仅供参考