返回列表下一主題上一主題發帖

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

alex_wu

中學生 Rank: 2

帖子: 60
主題: 18
精華: 0
積分: 83
點名: 0
作業系統: NT
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-7-9
最後登錄: 2024-12-13

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

樓主熱帖

lalalada

中學生 Rank: 2

帖子: 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

kimbal