- 帖子
- 97
- 主題
- 26
- 精華
- 0
- 積分
- 158
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- taichung
- 註冊時間
- 2010-9-12
- 最後登錄
- 2019-8-29
|
各位大哥好
我碰到下列問題請問是否哪寫錯,我要以存成prn類型的txt檔。- Private Sub CommandButton1_Click()
- Dim mypath, myfile, myback
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- mypath = "=D:\abc\bbb\LIST"
- myfile = mypath & "\" & ThisWorkbook.Sheets("a").Cells(1, 9).Value & ".TXT"
- Sheets("b").Select
- ActiveWorkbook.SaveAs FileName:=myfile, FileFormat:=xlTextPrinter, CreateBackup:=False
- Application.ScreenUpdating = True
- Application.DisplayAlerts = True
- End Sub
會出現這錯誤 |
|
發表於 2015-7-9 09:51
| 
