Я использую JACOB API для вызова некоторого макроса Sub из VB. Я хотел бы заблокировать MsgBox, созданный этим макросом.
Это мой код для открытия макроса XXXX.xls и запуска подпрограммы OT, которая содержит некоторый MsgBox.
`private static void callExcelMacro(File file, String macroName) {
ComThread.InitSTA();
final ActiveXComponent excel = new ActiveXComponent("Excel.Application");
try {
// This will open the excel if the property is set to true
excel.setProperty("Visible", new Variant(true));
final Dispatch workbooks = excel.getProperty("Workbooks").toDispatch();
//String eventSink = null ;
Dispatch.call(workbooks,"Add");
Dispatch workBook = Dispatch.call(workbooks,"Open", file.getAbsolutePath()).toDispatch();
ExcelEventHandler w = new ExcelEventHandler();
Variant V1=new Variant(file.getName() + macroName);
// Calls the macro
final Variant result = Dispatch.call(excel, "Run", V1 );
// Saves and closes
//Dispatch.call(workBook, "Save");
com.jacob.com.Variant f = new com.jacob.com.Variant(true);
// Dispatch.call(workBook, "Close", f);
} catch (Exception e) {
e.printStackTrace();
} finally {
excel.invoke("Quit", new Variant[0]);
ComThread.Release();
}
}
public static void main(String[] args) {
ExcelMacroTest emt = null;
try {
final File file = new File("D:XXXXXXXX.xls");
final String macroName = "!TraiteOT";
callExcelMacro(file, macroName);
} finally {
if (emt != null) {
emt.quit();
}
}
}
}
`