返回列表 上一主題 發帖

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

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
複製代碼
aaa.JPG
會出現這錯誤
收藏 分享
lionliu

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
2#
發表於 2015-7-9 10:03 | 顯示全部帖子
回復 1# lionliu
我的這一支excel是一個未存檔的檔案也就是"活頁簿1.xls"，不知問題是否出在這。
但是又必須要在這樣環境操作。
lionliu

TOP

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
3#
發表於 2015-7-9 16:21 | 顯示全部帖子
回復 3# GBKEE
謝謝GB大哥提醒已處理好了，將=號去掉就可以了
lionliu

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題