vb中怎样调用并执行EXCEL中的宏？

[netmuse]

在vb中后台调用并执行Excel中的宏，并能传参数？怎么做?Help!

[netmuse]

还有呢？小弟没做过，还请多多指教

[chen780831]

我做过VC的，不知对你有没有帮助：
_Application ExcelApp;
Workbooks wbsMyBooks;
_Workbook wbMyBook;
Worksheets wssMysheets;
_Worksheet wsMysheet;
Range rgMyRge;
if (!ExcelApp.CreateDispatch("Excel.Application",NULL))
{ MessageBox("创建Excel服务失败!","错",MB_OK|MB_ICONERROR);
return;}
wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);
wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(filename)));
//filename 是自己定义的一个模板文件，如Template.xlt，宏也在其中定
//义，此文件可用excel创建
wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(filename)));
//得到Worksheets
wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);
//得到sheet1
wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);
//得到全部Cells，此时,rgMyRge是cells的集合
ExcelApp.Run(_variant_t("Fontformat"),vtMissing,vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);//其中Fontformat为宏名
rgMyRge.ReleaseDispatch();
wsMysheet.ReleaseDispatch();
wssMysheets.ReleaseDispatch();
wbMyBook.ReleaseDispatch();
wbsMyBooks.ReleaseDispatch();
ExcelApp.ReleaseDispatch();

[lishush]

引用Excel9库