vb6.0 excel连接的创建，内容的读取

一     连接的创建：

Public Sub OpenXLSConn(strFile As String)
Const ProcName = "OpenXLSConn"
On Error GoTo ErrHandler
Dim strConn As String
1           strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
2           Set objXLSConn = New ADODB.Connection
3           objXLSConn.Open strConn
Exit Sub
ErrHandler:
    ErrLog Erl, Err.Number, Err.Description, ProcName, True, True
End Sub

 

 

二  内容的读取：

 CommonDialog1.ShowOpen
                strFilePath = CommonDialog1.FileName
7               strPKLineData = ""
8               strFillLine = ""
9               Set objXLSRS = New ADODB.Recordset
'10              CreateSQLConn
11              OpenXLSConn strFilePath
12              strXLSSQL = "Select * From [Items$]"
13              objXLSRS.CursorLocation = adUseClient
14              objXLSRS.Open strXLSSQL, objXLSConn, adOpenStatic
16              While Not objXLSRS.EOF
50                          For j = 0 To 30
51                              strArray(j) = NullToValue(objXLSRS(j), "")
52                              strFillLine = strFillLine & strArray(j) & "|"
53                          Next j
72                  objXLSRS.MoveNext
73              Wend
87              Set objXLSRS = Nothing
88              CloseXLSConn