vc6.0调用excel xp,word 2k

原创 2003年10月27日 02:09:00

#include <ole2.h>
#include <stdio.h>
#pragma warning (disable:4146 4192 4786 4081)
#define USE_OFFICEXP 1

#ifdef USE_OFFICEXP
#import "C:/Program Files/Common Files/Microsoft Shared/Office10/MSO.DLL"
#import "c://Program Files//Common Files/Microsoft Shared/VBA/VBA6/VBE6EXT.olb"
#import "c:/Program Files/Microsoft Office/Office10/MSWORD.olb" rename("ExitWindows","ExitWindowsEx")
#import "c:/Program Files/Microsoft Office/Office10/excel.exe" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") /
         rename("DocumentProperties", "DocumentPropertiesXL") exclude("IFont","IPicture")
#else
#import "c:/Program Files/Microsoft Office/Office/MSO9.dll"
#import "C:/Program Files/Common Files/Microsoft Shared/VBA/VBA6/VBE6EXT.OLB" no_namespace
#import "c:/Program Files/Microsoft Office/Office/MSWORD9.OLB" rename("ExitWindows","_ExitWindows")
#import "c:/Program Files/Microsoft Office/Office/excel9.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::SelectionPtr 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/n",iColCnt);
 int iRowCnt = pRange ->GetRows() ->GetCount();
 printf("used rows  is %d/n",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的问题。于是写了一下。写完了再保存。顺便发一下。这可是原创的哈。好想有三颗星星了。

word与excel的结合使用

近日为打印一些
  • u011432773
  • u011432773
  • 2014年05月16日 17:50
  • 783

记录VC 6.0操作Excel记录

其实这个功能在度娘一搜大把的代码,其实文中的代码大部分都是出自度娘,只是为了便于自己的记忆与查询,我在这里重复的记录一下代买。我自己定义了一个CExcelOper  的类,该类封装了基本的函数,也没什...
  • hafoxiaowanzi
  • hafoxiaowanzi
  • 2015年11月12日 08:22
  • 755

从EXCEL中自动产生WORD文件

昨天帮同事做了一道“作业”,具体应用的场景不能详细地透露,大体上就是如题。用的 Office 是 2010 版本,解决步骤是: EXCEL用几列存储规定的内容。比如B列存负责输出,把几个参数写入...
  • mrtorney
  • mrtorney
  • 2013年07月05日 16:07
  • 4706

用Python将Word中的内容写入Excel

下载Python和依赖的库 python-docx读取Word的库 官网:http://python-docx.readthedocs.io/en/latest/ 读取Excel的库:xlrd ...
  • zzti_erlie
  • zzti_erlie
  • 2017年08月27日 13:06
  • 832

使用VC++6.0操作EXCEL

本文档适用于: ·                       Microsoft Foundation Classes (MFC), Microsoft Visual C++, 32-bit Ed...
  • liucherish
  • liucherish
  • 2016年11月16日 11:48
  • 2517

把Excel数据填充word模板生成多份word文档

有些事情,你想记得的就会记得。有些事情,你想忘记的就会忘记,如果忘记不了,那就不要忘记了,因为忘记是不需要努力的。Model_Car.cs代码 public class Model_Car ...
  • WuLex
  • WuLex
  • 2017年05月04日 21:46
  • 901

C# 如何将Excel表格复制到Word中并保留格式

在以前的文章中,我分享了如何使用免费控件将word表格中的数据导入到excel中,在本篇文章中我将介绍如何将Excel表格复制到Word表格中,并同时保留原Excel表格的格式。...
  • Eiceblue
  • Eiceblue
  • 2016年12月20日 14:54
  • 2300

【OFFICE自动化】如何用VC6.0绘制Excel和Word

如何使用VC6.0来写EXCEL和WORD文件呢?
  • u013580497
  • u013580497
  • 2015年09月30日 18:04
  • 800

Qt使用COM操作Excel文件

 #include "mainwidget.h" #include #include MainWidget::MainWidget(QWidget *parent) :...
  • Zhangchen9091
  • Zhangchen9091
  • 2014年10月14日 22:57
  • 610

Word中试卷各选项提取到Excel对应列

Word中试卷各选项提取到Excel对应列   工作中遇到问题,Word形式的试卷,其中包括选择题和简答题,需要将选择题的题干及选项分别提取到Excel对应列中,如下图:     图二:提取到Ex...
  • gaoqiwang
  • gaoqiwang
  • 2017年07月20日 18:32
  • 242
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vc6.0调用excel xp,word 2k
举报原因:
原因补充:

(最多只允许输入30个字)