標題: 請問檔名存檔問題 [打印本頁]

---

作者: gglan9    時間: 2011-8-11 23:42     標題: 請問檔名存檔問題

本帖最後由 gglan9 於 2011-8-12 12:24 編輯

請問檔名存檔問題
如要以工作表中的資料複製到新的工作薄後
要以原工作表中的某個儲存格裡的文字為檔案名稱並存成副檔名為prn檔

例:sheet1  儲存格為A1
目錄:c\
檔名為A1
副檔名為prn

謝謝

---

作者: oobird    時間: 2011-8-13 19:57

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

---

作者: kimbal    時間: 2011-8-14 00:39

如果內容是文字格式
ActiveWorkbook.SaveAs Filename:="C:\" & [a1] & ".prn", FileFormat:=xlText

---

作者: gglan9    時間: 2011-8-14 05:00

謝謝兩位 解決了問題

---

作者: jimmyhk    時間: 2011-8-29 09:42

日前學了用下面的方法, 原來有更簡單的語法, 長知識了~~~

'Set MyBook = ThisWorkbook
'    Application.Workbooks.Add
'    Set NewBook = ActiveWorkbook
'    MyBook.Sheets(Ex).Copy Before:=NewBook.Sheets(1)
'    Application.DisplayAlerts = False
'    NewBook.SaveAs Filename:=fname3
'    NewBook.Close SaveChanges:=False

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)