我有一個宏,目前我們下載一個電子表格更新:它會自動開啟(並且不會儲存)--從我們定制的內部網路介面。電子表格名稱每次都會更改。目前的使用說明是開啟VBA編輯器,將巨集複製到新模組中,然後執行巨集。
我想製作一個獨立的文件來製作類似這樣的說明,打開工作簿,然後雙擊文件。
我的想法是,他們只能打開有問題的工作簿,而獨立文件代碼將類似於use open workbook
(非常通用)。
我讀過有關 vbs 的內容,但我所做的只是將巨集從 .txt 更改為 vbs ,顯然它還不起作用。有人能指出我正確的方向嗎?
答案1
雖然我能夠讓它工作,但我沒有使用這種方法,因為它涉及在 Office 中啟用「信任 VBA 專案」設置,而且對我來說這聽起來並不安全。
但它的工作原理如下:
Dim xlApp, xlBook
Set xlApp = getObject( , "Excel.Application")
Set xlBook = xlApp.ActiveWorkbook
xlBook.VBProject.VBComponents.Import "\\PATH\Module1.bas"
xlApp.Run "Sub_Name"
'objExcel.ActiveWorkbook.Close
xlApp.Application.Quit
WScript.Echo "Finished."
WScript.Quit
我最終做的是透過 --> 分發自訂“OfficeUI”https://www.freesoftwareservers.com/display/FREES/Distributing+Macro+via+Add-In+-+Customized+Ribbon+-+Via+Batch
由於某種原因,透過我們的 Web 介面中的連結載入 Excel 時,XLSTART 和 Personal.xlsb 中的檔案均未載入。但是,OfficeUI 自訂功能區已載入。我仍然將 AddIn.xlam 放入 XLSTART 中,因為 Excel 不會警告有關“宏”的信息,但它在啟動時並未加載。但這並不重要,因為 OfficeUI 直接呼叫了 file!Sub。