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

alex_wu

目前小弟在書寫初階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
===============以下省略==================

lalalada

回復 1# alex_wu

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

kimbal

看看放檔案的文件夾是否存在 或錯位置