返回列表 上一主題 發帖

[發問] 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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 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 檢查有無不符合檔案命名的字串?
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

lionliu

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

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題