高人指点，如何实现sql server数据库中某个表查出的数据导出
发布网友
发布时间：2022-04-09 16:13
共5个回答
热心网友
时间：2022-04-09 17:43
中类似。但
要注意以下几点：
对于对象的属性值的读取或赋值，需要用GetProperty()或SetProperty(NewValue)函数，不
能象VB中直接
通过属性名称取值或赋值。例如：Worksheet.GetCount(), Worksheet.SetName(“Sheet1”
)。
对集合对象中的成员对象的引用，必须使用集合对象的GetItem()函数。例如：Worksheets.
GetItem
(ColeVariant((long)1))或Worksheets.GetItem(ColeVariant(“Sheet1”))取得第一个工作
表。
在COM接口中，时常用到Variant，BSTR，SafeArray数据类型。Variant数据类型是一个联合
，可表示几
乎所有的类型的数据，具体用法见MSDN中的相关介绍，类_variant_t是对VARIANT数据类型的
封装。在
Excel 2000的VB编程帮助中，如果提到某函数或属性需要一个值，该值的数据类型通常是Va
riant，在
封装Excel 2000对象的类定义中，说明了具体需要的数据类型。BSTR是一个包括了字符串和
字符串长度
的数据结构，类_bstr_t是对BSTR数据类型的封装。在Excel 2000的VB编程帮助中提到的字符
串通常指
BSTR。具体函数参数或属性的数据类型，见封装该对象的类的定义。SafeArray是一个包括数
组和数组边
界的结构，数组边界外的内容不允许访问。在Excel 2000的VB编程帮助中提到的数组是指Sa
feArray。关
于SafeArray的处理，请见MSDN的相关帮助。
对于缺省参数和缺省值。在VB中，函数的参数可以空缺，在VC++中不允许，必须将所有的参
数填写完全。
如果你希望指定某个参数为缺省值，根据参数数据类型的不同，可指定不同的缺省值。当参
数数据类型为
字符串时，可以用长度为0的字符串。如果参数是Variant类型，可用常量vtMissing，该常量
在comdef.h
中定义。也可用_variant_t(DISP_E_PARAMNOTFOUND, VT_ERROR)产生一个Variant对象。
Excel对象中的集合对象有时包括的子对象是不一定的，例如：Range对象，可以表示Cell的
集合，也可以
表示Column的集合或Row的集合，Range.GetItem(1)可以返回Cell或Column或Row对象。
对对象的引用或传递对象，使用IDispatch类对象，有时利用Variant对IDispatch进行包装。
以下是一段源程序，演示如何启动Excel 2000，利用一个模板文件产生一个新文档，在该文
档的”Sheet1”
工作表的第一个单元中填写一段文字，设置第一列的列宽，然后调用一个模板中的宏，执行
一段程序，最
后打印预览该Excel文档。模板文件名称：MyTemplate.xlt。程序在Visual C++ 6.0 sp4，W
indows 2000
Professional sp-1下调试通过。
首先利用Visual C++ 6.0，建立一个MFC基于对话框的工程项目，共享DLL，Win32平台。工程
名称
ExcelTest。在主对话框中加入一个按钮，
ID IDC_EXCELTEST
Caption Test Excel
双击该按钮，增加成员函数void CExcelTestDlg::OnExceltest()。
在BOOL CExcelTestApp::InitInstance()中，dlg.DoModal();之前增加代码：
if (CoInitialize(NULL)!=0)
{
AfxMessageBox( "初始化COM支持库失败! ");
exit(1);
}
在return FALSE; 语句前，加入：
CoUninitialize();
选择Menu-> View-> ClassWizade，打开ClassWizade窗口，选择Add Class-> From a type lib
rary，
选择D:\Program Files\Microsoft Office\office\Excel9.OLB(D:\Program Files\Microso
ft Office
是本机上Microsoft Office 2000的安装目录，可根据个人机器上的实际安装目录修改)。选
择
_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，加入新类，分别
为
_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，头文件Excel9.
h，
源文件Excel9.cpp。
在ExcelTestDlg.cpp文件的头部，#include "ExcelTestDlg.h "语句之下，增加 ：
#include "comdef.h "
#include "Excel9.h "
在void CExcelTestDlg::OnExceltest() 函数中增加如下代码：
void CExcelTestDlg::OnExceltest()
{
_Application ExcelApp;
Workbooks wbsMyBooks;
_Workbook wbMyBook;
Worksheets wssMysheets;
_Worksheet wsMysheet;
Range rgMyRge;
//创建Excel 2000服务器(启动Excel)
if (!ExcelApp.CreateDispatch( "Excel.Application ",NULL))
{
AfxMessageBox( "创建Excel服务失败! ");
exit(1);
}
//利用模板文件建立新文档
wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);
wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t( "g:\\exceltest\\MyTemplate.xlt
")));
//得到Worksheets
wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);
//得到sheet1
wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t( "sheet1 ")),true);
//得到全部Cells，此时,rgMyRge是cells的集合
rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);
//设置1行1列的单元的值
rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)1),_variant_t( "This Is A Ex
cel Test Program! "));
//得到所有的列
rgMyRge.AttachDispatch(wsMysheet.GetColumns(),true);
//得到第一列
rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)1),vtMissing).pdispVal,t
rue);
//设置列宽
rgMyRge.SetColumnWidth(_variant_t((long)200));
//调用模板中预先存放的宏
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);
//打印预览
wbMyBook.SetSaved(true);
ExcelApp.SetVisible(true);
wbMyBook.PrintPreview(_variant_t(false));
//释放对象
rgMyRge.ReleaseDispatch();
wsMysheet.ReleaseDispatch();
wssMysheets.ReleaseDispatch();
wbMyBook.ReleaseDispatch();
wbsMyBooks.ReleaseDispatch();
ExcelApp.ReleaseDispatch();
}
热心网友
时间：2022-04-09 19:01
下面代码是SQL语句查询出来的数据导入excel的语句：
T-SQL代码：
INSERT INTO
OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',
'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]
select ...你的查询语句
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/feixianxxx/archive/2010/04/17/5497354.aspx
热心网友
时间：2022-04-09 20:35
或许就这个问题 我们可以聊聊
热心网友
时间：2022-04-09 22:27
可以联系我
热心网友
时间：2022-04-10 00:35
