Dim MyWord As Word.Application
Set MyWord = CreateObject("Word.Application")
MyWord.Visible = False
End Sub
除錯狀態下運行成功，但生成EXE后就報錯：
Run-time error'-2147352577(8001ffff)
Automation error An internal error occurred
已經搞好幾天了沒搞定，請有經驗的人幫助我，謝謝了。
uj5u.com熱心網友回復：
通常是權限問題或殺毒軟體的問題。用管理員權限運行、關閉殺毒軟體。
uj5u.com熱心網友回復：
你用一段最簡單的代碼測驗一下（我有現成的excel代碼），如果一切ok，說明是你的代碼的問題，如果不能通過，有可能是權限等問題：Dim MyExcel As Excel.Application
Set MyExcel = CreateObject("Excel.Application")
MyExcel.Visible = False
Dim mBook As Excel.Workbook, Sht As Excel.Worksheet
Set mBook = MyExcel.Workbooks.Add
Set Sht = mBook.Worksheets.Add
Sht.Range("a1").Value = "這是測驗代碼...."
mBook.SaveAs "d:\test.xls"
mBook.Close True
Set Sht = Nothing
Set mBook = Nothing
MyExcel.Quit
Set MyExcel = Nothing
新建一個工程，參考microsft excel 11.0 ....
復制上述代碼編譯成一個exe檔案然后測驗那個exe檔案
uj5u.com熱心網友回復：
你給的代碼是excel的，excel沒有問題，我試過了，但是WORD就有問題，我的程式就我寫的那幾行，沒有別的代碼，生成EXE就出錯，除錯不出錯。uj5u.com熱心網友回復：
哦，那就弄個word的：Sub Test()
Dim MyWord As Word.Application, Doc As Word.Document
Set MyWord = New Word.Application
MyWord.Visible = False
Set Doc = MyWord.Documents.Add
Doc.ActiveWindow.Selection.TypeText Text:="這是一次無聊的測驗...."
Doc.SaveAs "d:\test.doc"
Doc.Close
Set Doc = Nothing
MyWord.Quit
Set MyWord = Nothing
End Sub
...
uj5u.com熱心網友回復：
Dim MyWord As Word.Application改為
Dim MyWord As Object
再試試看。
uj5u.com熱心網友回復：
Set MyWord = New Word.ApplicationDim MyWord As Object
都不行。。。。
uj5u.com熱心網友回復：
Dim MyWord As Word.Application, Doc As Word.DocumentSet MyWord = New Word.Application
===>
Dim MyWord As Object, Doc As Object
on error resume next
Set MyWord = CreateObject("Word.Application")
if err<>0 then
Set MyWord = GetObject("Word.Application")
end if
這樣試試看看，好久沒寫了有點生疏了。呼叫word\execel時盡量不要用顯式宣告，另外CreateObject一個已經存在于記憶體中的外部程式可能會產生運行時錯誤
uj5u.com熱心網友回復：
Dim MyWord As Word.Application'這是啥意思？Set MyWord = CreateObject("Word.Application") '這又是啥意思，咋感覺這么重復呢？去掉第一句不行嗎？
MyWord.Visible = False
End Sub
uj5u.com熱心網友回復：
改為Set MyWord = CreateObject("Word.Application")
MyWord.Visible = False
End Sub
生成EXE后，我這里測驗沒問題。（本機裝有VB,WORD2003）
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/103744.html
標籤：VBA
上一篇：急求大神幫助，VB網路編程中運行至winsock.connect就出現錯誤40020
下一篇：VB 輸入CMD命令