excel VBA編程如何把單元格的值保存到目錄或文件名中

Open ActiveWorkbook.Path & "\A.txt" For Output As #1

Print #1, Sheets("Sheet1").Range("A1")

Close #1

End Sub

'保存工作表Sheet1中A1單元格的內容到當前目錄下A.txt文件中