终于找到知音了。大哥,我的这段函数怎么能切换sheet?
COleVariant
covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); _Application oApp;
_Workbook oBook;
Workbooks oBooks;
_Workbook oHTML;
Worksheets oSheets;
_Worksheet oSheet;
Range oRange;
AddIns oAddIns;
AddIn oAddIn;. //Launch Excel and make it visible.
oApp.CreateDispatch("Excel.Application");
oApp.SetVisible(FALSE);
//Get the Workbooks collection.
oBooks = oApp.GetWorkbooks();
// Excel 2000 takes 13 arguments
//Open the test workbook.
oBook = oBooks.Open("C:\\Book1.xls", // This is a test workbook.
covOptional,
covOptional,
covOptional,
covOptional,
covOptional,
covOptional,
covOptional,
covOptional,
covOptional,
covOptional,
covOptional,
covOptional); // Open for Excel 2000 has 13 parameters
oSheets = oBook.GetWorksheets();
int a=oSheets.GetCount(); //这里能看到sheet的数量。
oBook.SaveAs(COleVariant("c:\\2002.txt"),
COleVariant((long)-4158), //txt格式
covFalse, covOptional, covTrue, covOptional,
0, covFalse, covFalse, covFalse, covTrue);
oBook.Close(COleVariant((short)false), covOptional, covOptional);
oApp.Quit();上面代码只能存储第一个sheet xls2txt怎么把其他的sheet也存下来啊
COleVariant
covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); _Application oApp;
_Workbook oBook;
Workbooks oBooks;
_Workbook oHTML;
Worksheets oSheets;
_Worksheet oSheet;
Range oRange;
AddIns oAddIns;
AddIn oAddIn;. //Launch Excel and make it visible.
oApp.CreateDispatch("Excel.Application");
oApp.SetVisible(FALSE);
//Get the Workbooks collection.
oBooks = oApp.GetWorkbooks();
// Excel 2000 takes 13 arguments
//Open the test workbook.
oBook = oBooks.Open("C:\\Book1.xls", // This is a test workbook.
covOptional,
covOptional,
covOptional,
covOptional,
covOptional,
covOptional,
covOptional,
covOptional,
covOptional,
covOptional,
covOptional,
covOptional); // Open for Excel 2000 has 13 parameters
oSheets = oBook.GetWorksheets();
int a=oSheets.GetCount(); //这里能看到sheet的数量。
oBook.SaveAs(COleVariant("c:\\2002.txt"),
COleVariant((long)-4158), //txt格式
covFalse, covOptional, covTrue, covOptional,
0, covFalse, covFalse, covFalse, covTrue);
oBook.Close(COleVariant((short)false), covOptional, covOptional);
oApp.Quit();上面代码只能存储第一个sheet xls2txt怎么把其他的sheet也存下来啊
可怜我花了重金买的正版msdn,和vs啊,还有Office Developer CD啊。555
ExcelApp.Run(_variant_t("CopyRow"),_variant_t((long)10),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);
"模板中预先存放的宏"是指存在那里???