高分求教：如何将SQLSERVER2000中数据导出，格式：EXCEL和TXT

Question

高分求教：如何将SQLSERVER2000中数据按EXCEL和TXT形式输出，语句如何编写（不是通过DTS方式）？

Answer 1

别人的例子：你自己参考吧！将下文加入到一个模块中,屏幕中调用如下ExporToExcel("select * from table")则实现将其导出到EXCEL中Public Function ExporToExcel(strOpen As String)
'*********************************************************
'* 名称：ExporToExcel
'* 功能：导出数据到EXCEL
'* 用法：ExporToExcel(sql查询字符串)
'*********************************************************
Dim Rs_Data As New ADODB.Recordset
Dim Irowcount As Integer
Dim Icolcount As Integer
    
    Dim xlApp As New Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim xlQuery As Excel.QueryTable
    
    With Rs_Data
        If .State = adStateOpen Then
            .Close
        End If
        .ActiveConnection = Cn
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Source = strOpen
        .Open
    End With
    With Rs_Data
        If .RecordCount < 1 Then
            MsgBox ("没有记录!")
            Exit Function
        End If
        '记录总数
        Irowcount = .RecordCount
        '字段总数
        Icolcount = .Fields.Count
    End With
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = Nothing
    Set xlSheet = Nothing
    Set xlBook = xlApp.Workbooks().Add
    Set xlSheet = xlBook.Worksheets("sheet1")
    xlApp.Visible = True
    
    '添加查询语句，导入EXCEL数据
    Set xlQuery = xlSheet.QueryTables.Add(Rs_Data, xlSheet.Range("a1"))
    
    With xlQuery
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
    End With
    
    xlQuery.FieldNames = True '显示字段名
    xlQuery.Refresh
    
    With xlSheet
        .Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Name = "黑体"
        '设标题为黑体字
        .Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Bold = True
        '标题字体加粗
        .Range(.Cells(1, 1), .Cells(Irowcount + 1, Icolcount)).Borders.LineStyle = xlContinuous
        '设表格边框样式
    End With
    
    With xlSheet.PageSetup
        .LeftHeader = "" & Chr(10) & "&""楷体_GB2312,常规""&10公司名称："   ' & Gsmc
        .CenterHeader = "&""楷体_GB2312,常规""公司人员情况表&""宋体,常规""" & Chr(10) & "&""楷体_GB2312,常规""&10日 期："
        .RightHeader = "" & Chr(10) & "&""楷体_GB2312,常规""&10单位："
        .LeftFooter = "&""楷体_GB2312,常规""&10制表人："
        .CenterFooter = "&""楷体_GB2312,常规""&10制表日期："
        .RightFooter = "&""楷体_GB2312,常规""&10第&P页 共&N页"
    End With
    
    xlApp.Application.Visible = True
    Set xlApp = Nothing  '"交还控制给Excel
    Set xlBook = Nothing
    Set xlSheet = NothingEnd Function
注:须在程序中引用'Microsoft Excel 9.0 Object Library'和ADO对象,机器必装Excel 2000

Answer 2

你用向导就可以了，右击你要导出的表就可以看到啦！
不然就用EXCEL的.CELL（0，0）一个一个的写，不然就用上面的ExporToExcel("select * from table")方法！

Answer 3

SQL Server与Access、Excel的数据转换 
 熟悉SQL SERVER 2000的数据库管理员都知道，其DTS可以进行数据的导入导出，其实，我们也可以使用Transact-SQL语句进行导入导出操作。在Transact-SQL语句中，我们主要使用OpenDataSource函数、OPENROWSET 函数，关于函数的详细说明，请参考SQL联机帮助。 利用下述方法，可以十分容易地实现SQL SERVER、ACCESS、EXCEL数据转换，详细说明如下： 　　一、SQL SERVER 和ACCESS的数据导入导出　　常规的数据导入导出：　　使用DTS向导迁移你的Access数据到SQL Server，你可以使用这些步骤: 　　1在SQL SERVER企业管理器中的Tools（工具）菜单上，选择Data Transformation 　　2Services（数据转换服务），然后选择 czdImport Data（导入数据）。 　　3在Choose a Data Source（选择数据源）对话框中选择Microsoft Access as the Source，然后键入你的.mdb数据库（.mdb文件扩展名）的文件名或通过浏览寻找该文件。 　　4在Choose a Destination（选择目标）对话框中，选择Microsoft OLE　DB Prov ider for SQL　Server，选择数据库服务器，然后单击必要的验证方式。 　　5在Specify Table Copy（指定表格复制）或Query（查询）对话框中，单击Copy tables（复制表格）。 　　6在Select Source Tables（选择源表格）对话框中，单击Select All（全部选定）。下一步，完成。
　　Transact-SQL语句进行导入导出：　　1. 在SQL SERVER里查询access数据:SELECT * FROM OpenDataSource（ 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\DB.mdb";User ID=Admin;Password='）...表名
　　2. 将access导入SQL server 在SQL SERVER 里运行:SELECT *INTO newtableFROM OPENDATASOURCE （'Microsoft.Jet.OLEDB.4.0', 'Data Source="c:\DB.mdb";User ID=Admin;Password=' ）...表名
　　3. 将SQL SERVER表里的数据插入到Access表中　　在SQL SERVER 里运行：insert into OpenDataSource（ 'Microsoft.Jet.OLEDB.4.0','Data Source=" c:\DB.mdb";User ID=Admin;Password='）...表名 （列名1,列名2）select 列名1,列名2 from sql表
实例：insert into OPENROWSET（'Microsoft.Jet.OLEDB.4.0', 'C:\db.mdb';'admin';'', Test） select id,name from Test
INSERT INTO OPENROWSET（'Microsoft.Jet.OLEDB.4.0', 'c:\trade.mdb'; 'admin'; '', 表名）SELECT *FROM sqltablename二、 SQL SERVER 和EXCEL的数据导入导出
　　1、在SQL SERVER里查询Excel数据:SELECT * FROM OpenDataSource（ 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0'）...[Sheet1$]
下面是个查询的示例，它通过用于 Jet 的 OLE DB 提供程序查询 Excel 电子表格。SELECT * 
FROM OpenDataSource （ 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0'）...xactions
　　2、将Excel的数据导入SQL server :SELECT * into newtableFROM OpenDataSource（ 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0'）...[Sheet1$]
实例:SELECT * into newtableFROM OpenDataSource（ 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0'）...xactions
　　3、将SQL SERVER中查询到的数据导成一个Excel文件T-SQL代码：EXEC master..xp_cmdshell 'bcp 库名.dbo.表名out c:\Temp.xls -c -q -S"servername" -U"sa" -P""'参数：S 是SQL服务器名；U是用户；P是密码说明：还可以导出文本文件等多种格式
实例:EXEC master..xp_cmdshell 'bcp saletesttmp.dbo.CusAccount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"'
EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout C:\ authors.xls -c -Sservername -Usa -Ppassword'
在VB6中应用ADO导出EXCEL文件代码： Dim cn As New ADODB.Connectioncn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"
　　4、在SQL SERVER里往Excel插入数据:insert into OpenDataSource（ 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0'）...table1 （A1,A2,A3） values （1,2,3）
T-SQL代码：INSERT INTO OPENDATASOURCE（'Microsoft.JET.OLEDB.4.0', 'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls'）...[Filiale1$] （bestand, produkt） VALUES （20, 'Test'）
 

Answer 4

http://www.csdn.net/develop/author/netauthor/lihonggen0/http://www.csdn.net/develop/read_article.asp?id=14952
http://www.csdn.net/develop/read_article.asp?id=18623