在VB中用<em>ADO</em>连接<em>EXCEL</em>文件&

1、导入office11或12类
2、创建EXCEL程序对象，新建或打开一个EXCEL工作簿，指定一个对象变量为Sheet1。

3、把List1中各列的值分别放入数组内，并分别赋值给e799bee5baa6e997aee7ad94e59b9ee7ad94338上面打开的Excel薄的当前工作表的单元格(cell)－－一维数组可以整个赋值给工作表的一列。
4、保存后关闭
5、释放资源。相关对象关闭后设为nothing
看看下面两个链接，应该对你有所帮助：
360doc.com/content/11/1215/16/7531335_172476092.shtml

http://zhidao.baidu.com/link?url=ak7ggv-gH29JVz5WehfVAmNWsNBvzxFMMY5CBiL4TLvlXkZvozWjDCYrETRPy8L_sl7gn9KzZYs3jLL_eI-j3q

addoc1.recordset.movefirst '移到第一条zhidao记录
while not addoc1.recordset.eof
a=addoc1.recordset.fields(0)
b=addoc1.recordset.fields(1)
'程序处回理答
addoc1.recordset.movenext '下一条记录
wend
Provider=Microsoft.ACE.OLEDB.12.0;Password="";Data Source=C:\Users\Administrator\Desktop\9.12source\9_12库存.xlsx
;Extended Properties=''Excel 12.0;IMEX=1;HDR=YES'';Persist Security Info=True;

Public Function ExporToExcel(strOpen As String)
'*********************************************************
'* 名称：ExporToExcel
'* 功能：导出数据到EXCEL
'* 用法：ExporToExcel(sql查询字符串)
'*********************************************************
Dim cn As New ADODB.Connection
Dim Rs_Data As New ADODB.Recordset
Dim Irowcount As Integer
Dim Icolcount As Integer

Dim xlApp As New Excel.Application 'Application对象处于Excel对象层次结构的顶层，表示Excel自身的运行环境．
Dim xlBook As Excel.Workbook 'Workbook对象直接地处于Application对象的下层，表示一个Excel工作薄文件．
Dim xlSheet As Excel.Worksheet 'Worksheet对象包含于Workbook对象，表示一个Excel工作表
Dim xlQuery As Excel.QueryTable 'QueryTable 对象代表了一个表，该表是用从外部数据源返回的数据生成的。
'当您自动运行 Excel 时，可以通过提供指向 OLE DB 或 ODBC 数据源的连接字符串和 SQL 字符串来创建 QueryTable。
'Excel 将生成记录集并将该记录集插入到工作表中您所指定的位置
'您可以利用 QueryTable 对象保存查询，并在以后刷新它以获取更新的记录集。
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sysdata.mdb;Persist Security Info=False"
'此语句定义了与ACCESS数据库的连接,现改为与SQL数据的连接为cn.ConnectionString = "driver={SQL SERVER};server=sql服务器名或者服务器的IP地址;uid=用户名;pwd=密码;database=数据库名"

cn.Open
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
'记录总数e79fa5e98193e78988e69d83339
Irowcount = .RecordCount
'字段总数
Icolcount = .Fields.Count
End With

Set xlApp = CreateObject("Excel.Application")
Set xlBook = Nothing
Set xlSheet = Nothing
Set xlBook = xlApp.Workbooks.Open("d:\1.xls")
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对象包含于Worksheet对象，表示Excel工作表中的一个或多个单元格．
.Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Bold = True
'标题字体加粗
.Range(.Cells(1, 1), .Cells(Irowcount + 1, Icolcount)).Borders.LineStyle = xlContinuous
'设表格边框样式
End With

xlApp.Application.Visible = True
Set xlApp = Nothing '"交还控制给Excel
Set xlBook = Nothing
Set xlSheet = Nothing
End Function

注意要在工程中点应用然后选择Microsoft Excel X.0