Dim VBExcel As Excel.Application
Set VBExcel=CreateObject ("Excel.Application")
或打開壹個EXCEl工作薄
Set AppExcel=GetObject("SAMP.XLS")
使用EXCEL公式：
answer=Application.WorksheetFunction.Min(myRange)
在調用的宏應該是全局的Public
ActiveWorkbook.PublicMacro
具體的妳可以看看：360文檔VB中操作Excel
360doc.com/content/11/1215/16/7531335_172476092.shtml
寫得簡單明了。
保持良好習慣，及時采納喲。