標題: [發問] excel vba 令存新檔問題 [打印本頁]

---

作者: lionliu    時間: 2015-7-9 09:51     標題: excel vba 令存新檔問題

各位大哥好
我碰到下列問題請問是否哪寫錯,我要以存成prn類型的txt檔。

1. Private Sub CommandButton1_Click()
   
2.   Dim mypath, myfile, myback
   
3.    Application.ScreenUpdating = False
   
4.    Application.DisplayAlerts = False
   
5.    mypath = "=D:\abc\bbb\LIST"
   
6.    myfile = mypath & "\" & ThisWorkbook.Sheets("a").Cells(1, 9).Value & ".TXT"
   
7.    Sheets("b").Select
   
8.      ActiveWorkbook.SaveAs FileName:=myfile, FileFormat:=xlTextPrinter, CreateBackup:=False
   
9.    Application.ScreenUpdating = True
   
10.    Application.DisplayAlerts = True
    
11. End Sub

複製代碼

[attach]21352[/attach]
會出現這錯誤

---

作者: lionliu    時間: 2015-7-9 10:03

回復 1# lionliu
我的這一支excel是一個未存檔的檔案也就是"活頁簿1.xls"，不知問題是否出在這。
但是又必須要在這樣環境操作。

---

作者: GBKEE    時間: 2015-7-9 10:53

回復 2# lionliu
mypath = "=D:\abc\bbb\LIST"  多了 =   
myfile = mypath & "\" & ThisWorkbook.Sheets("a").Cells(1, 9).Value & ".TXT"
.Sheets("a")        檢查工作表名稱?
.Cells(1, 9).Value 檢查有無不符合檔案命名的字串?

---

作者: lionliu    時間: 2015-7-9 16:21

回復 3# GBKEE
謝謝GB大哥提醒已處理好了，將=號去掉就可以了

---

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