返回列表 上一主題 發帖

請問為何會出現以下訊息呢?

alex_wu

帖子
60 
主題
18 
精華
0 
積分
83 
點名
0  
作業系統
NT 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2010-7-9 
最後登錄
2022-1-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-8-3 18:32 | 只看該作者

請問為何會出現以下訊息呢?

目前小弟在書寫初階VBA程式時,用了一些錄製的功能.
寫了一個將EXCEL內的資料, 另存成文字檔的功能.
但是當我將VBA程式加密時,卻秀出附件之訊息.
但是解密時卻又正常 , 想問一下真的是加密造成嗎?
若是的話 , 有辦法解決嗎?

=============以上省略============
Output


End Sub
___________以上為另一個巨集___________
Sub output()

OUTPUT_Folder2 = Sheet1.Range("F5")
PN2 = Sheet1.Range("F3")

    Sheets("CO GERBER").Select
    ActiveWorkbook.SaveAs Filename:=OUTPUT_Folder2 & PN2 & "-CO GERBER.prn", FileFormat _
        :=xlTextPrinter, CreateBackup:=False
===============以下省略==================

error message.PNG (7.75 KB)

error message.PNG

收藏 分享

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2012-8-4 17:04 | 只看該作者
看看放檔案的文件夾是否存在 或錯位置
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

lalalada

帖子
102 
主題
17 
精華
0 
積分
129 
點名
0  
作業系統
windows 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-5-16 
最後登錄
2020-9-2 
3#
發表於 2012-8-5 01:04 | 只看該作者
回復 1# alex_wu

也有可能是已經有同名文件存在
此時也會發生錯誤~
如果想要讓同名文件存在時直接覆蓋
可以使用
on error resume next
另外如果不想要他一直問是否覆蓋
就再加上 application.displayalerts = false
以上希望對你有幫助!

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題