vc6.0呼叫excel xp,word 2k (轉)
#include
#include
#pragma warning (disable:4146 4192 4786 4081)
#define USE_1
#ifdef USE_OFFICEXP
#import "C:Program FilesCommon Files SharedOffice10MSO.DLL"
#import "c:Program FilesCommon FilesMicrosoft SharedVBAVBA6VBE6EXT.olb"
#import "c:Program FilesMicrosoft OfficeOffice10MS.olb" rename("Exit","ExitWindowsEx")
#import "c:Program FilesMicrosoft OfficeOffice10.exe" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL")
rename("DocumentProperties", "DocumentPropertiesXL") exclude("IFont","IPicture")
#else
#import "c:Program FilesMicrosoft OfficeOfficeMSO9.dll"
#import "C:Program FilesCommon FilesMicrosoft SharedVBAVBA6VBE6EXT.OLB" no_namespace
#import "c:Program FilesMicrosoft OfficeOfficeMSWORD9.OLB" rename("ExitWindows","_ExitWindows")
#import "c:Program FilesMicrosoft OfficeOfficeexcel9.olb" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL")
rename("DocumentProperties", "DocumentPropertiesXL") exclude("IFont","IPicture")
#endif
int main(int argc, char* argv[])
{
VARIANT varItem;
varItem.vt = VT_I4;
varItem.intVal = 1;
::CoInitialize(NULL);
CLSID clsid;
#if 0
CLSIDFromProgID(L"Word.Application", &clsid);
Word::_ApplicationPtr pApp;
pApp.CreateInstance (clsid,NULL);
pApp ->PutVisible (VARIANT_TRUE);
pApp ->GetDocuments() ->Add();
Word::_DocumentPtr pWordDocument =pApp-> GetActiveDocument();
Word::ionPtr pSelection = pApp ->GetSelection();
pSelection ->TypeText("badguy");
#endif
#if 1
CLSIDFromProgID(L"Excel.Application", &clsid);
Excel::_ApplicationPtr pApp;
pApp .CreateInstance (clsid,NULL);
pApp ->PutVisible (0,VARIANT_TRUE);
Excel::_WorkbookPtr pWorkbook = pApp ->GetWorkbooks () ->Add ();
Excel::_WorksheetPtr pSheet = pWorkbook ->GetWorksheets () ->GetItem (varItem);
Excel::RangePtr pRange = pSheet ->GetUsedRange(0);
int iColCnt = pRange ->GetColumns() ->GetCount();
printf("used columns is %d
",iColCnt);
int iRowCnt = pRange ->GetRows() ->GetCount();
printf("used rows is %d
",iRowCnt);
pRange = pSheet ->GetRange(OLESTR("A1"));
pRange ->Value2 = OLESTR("SOME");
Excel::InteriorPtr pInterior= pRange ->GetInterior ();
varItem.intVal = 0xff0000;
pInterior ->PutColor (varItem);
pSheet ->PrintPreview ();
#endif
::CoUninitialize();
return 0;
}
好久沒回復貼子,今天看到一個excel的問題。於是寫了一下。寫完了再儲存。順便發一下。這可是原創的哈。好想有三顆星星了。
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-963035/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- word與excel轉pdf方法Excel
- 如何將Word文件轉成Excel表格?Excel
- Word轉PPT\Excel的技巧方法,辦公更高效Excel
- vc6.0(完整綠色版)(支援XP、Win7、Win8、Win10)Win7Win10
- excel表格怎麼轉換成word文件 表格資料轉換到文件Excel
- 實用辦公小技巧:Word、Excel、PPT任意轉換教程Excel
- word放不下excel表格怎麼辦 word放不下excel表格的方法Excel
- pdf 轉 word
- pdf轉word格式PDF to word for MacMac
- 如何將excel表格匯入word並保持格式不變 如何把excel的表格弄到word文件Excel
- 【PY】Word 轉 PDF
- PDF to Word Document Converter Mac(PDF轉Word檔案轉換器)Mac
- Excel轉PDF怎麼轉?Excel轉PDF方法有哪些Excel
- 用Aspose-Java免費實現 PDF、Word、Excel、Word互相轉換並將轉換過得檔案上傳OSS,返回轉換後的檔案路徑JavaExcel
- excel如何複製到word不變形Excel
- PDF轉Word?PDF轉換工具推薦:PDF to Word Document Converter for MacMac
- JSON轉ExcelJSONExcel
- Java PDF 轉 Word 教程Java
- java Word 轉 PDF格式Java
- axmath 轉換latex 再轉 word公式公式
- pdf轉word如何線上轉換?
- NPOI匯出和匯入Excel,Word和PDFExcel
- [PY] Word 處理, 技術選型, Word 轉 PDF
- excel列轉行怎麼做 excel如何轉置行列Excel
- ppt轉換word文件怎麼操作 把ppt轉換成word純文字
- caj如何轉化為word檔案 caj免費轉換成word方法
- 右鍵新建裡面沒有word和excel 右鍵新建word不見了Excel
- Python 玩轉 ExcelPythonExcel
- python pdf轉ExcelPythonExcel
- html轉Excel表格HTMLExcel
- excel轉json操作ExcelJSON
- pdf轉換成word文件
- word轉化為markdown格式
- Java 將Word轉為OFDJava
- Java 將HTML轉為WordJavaHTML
- pdf轉換成word,免費轉換
- 怎麼把ppt轉成word?讓你快速實現ppt轉word的教程
- pdf轉word工具推薦 PDF to word 最新啟用版
- Flyingbee PDF to word for Mac(飛蜂pdf轉word轉換器) v2.8啟用版Mac