1.引用 Microsoft Excel 12.0 object library 和 ActiceX Data Objects 2.8 library.

alks_wnit

于 2015-11-30 10:14:02 发布

阅读量4.4k

点赞数

分类专栏： VB MSSQL 文章标签： vb sql

本文链接：https://blog.csdn.net/alks_wnit/article/details/50108729

版权

这篇博客展示了如何在VB中引用Microsoft Excel 12.0 Object Library和ActiveX Data Objects 2.8 Library，以执行SQL命令并操作Excel数据。通过建立数据库连接，执行存储过程获取值，并将Excel数据插入到SQL数据库的特定表中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1.引用 Microsoft Excel 12.0 object library 和 ActiceX Data Objects 2.8 library.
现贴上代码：
cn.ConnectionString = “Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=AIS20121023174212;Data Source=K3-05A808C6E724”
cn.CursorLocation = adUseClient
cn.Open

Set RS = New ADODB.Recordset
Set RS = Conn.Execute(“exec Pro_NewID”)
RS.MoveFirst
m = RS.Fields(“A”).Value ‘取记录集中某一个特定的值
RS.Close
Set RS = Nothing

Dim XlsAPP As Excel.Application
Dim XlsBook As Excel.Workbook
Dim XlsSheet As Excel.Worksheet
Dim NewName As String
Dim Name As String
Dim i As Integer, j As Long
Dim CmdText1 As String
’ XlsAPP.Visible = True
Set XlsAPP = New Excel.Application
Set XlsBook = XlsAPP.Workbooks.Open(ExcelFile)
Set XlsSheet = XlsBook.Worksheets(1)
If XlsSheet.U

最低0.47元/天解锁文章