windows 读写Excel

#import "C:\\Program Files\\Common Files\\microsoft shared\\OFFICE15\\MSO.DLL" \
rename("RGB", "MsoRGB")\
rename("SearchPath", "MsoSearchPath")

#import "C:\\Program Files (x86)\Common Files\\Microsoft Shared\\VBA\VBA6\\VBE6EXT.OLB"

#import "D:\\bin\\systool\\Office\\Office15\\EXCEL.EXE" \
rename("DialogBox", "ExcelDialogBox")\
rename("RGB", "ExcelRGB")\
rename("CopyFile", "ExcelCopyFile")\
rename("ReplaceText", "ExcelReplaceText")\
exclude("IFont", "IPicture") no_dual_interfaces

int main()
{
	::CoInitialize(NULL);
	try
	{
		Excel::_ApplicationPtr pexcalApp;
		HRESULT hr = pexcalApp.CreateInstance("Excel.Application");
		pexcalApp->Visible = true;
		Excel::_WorkbookPtr pWorkbook = pexcalApp->Workbooks->Open("F:/b.xlsx");  // open excel file
		Excel::_WorksheetPtr pWorksheet = pWorkbook->ActiveSheet;
		Excel::RangePtr	prange = pWorksheet->Cells;
		prange->Item[1][1] = 123456;
		prange->Item[1][2] = "ok";
		prange->Clear();
		for (int i = 1; i < 100; i++)
		{
			prange->Item[i][1] = i;

		}
		pWorkbook->Close(VARIANT_TRUE);  
		pexcalApp->Quit();
	}
	catch (_com_error& e)
	{
		cout << e.ErrorMessage();
	}

	::CoUninitialize();
	getchar();

	return 0;
}

 

转载于:https://my.oschina.net/pirtt/blog/894310