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