[發問] excel vba 令存新檔問題

lionliu

各位大哥好
我碰到下列問題請問是否哪寫錯,我要以存成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

複製代碼

下載 (9.69 KB)

2015-7-9 09:50

會出現這錯誤

lionliu

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

GBKEE

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

lionliu

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