請問檔名存檔問題

　頭銜: 街友一族

論壇貢獻勳章

1^# 跳轉到 »

發表於 2011-8-13 19:57 | 顯示全部帖子

Sub yy()
ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\" & [a1] & ".prn"
ActiveWorkbook.Close True
End Sub

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。