我要用VB6直接连EXCEL，这样就可以省去数据导出这一步骤，请问有什么方法可以实现？最好有段代码。

Question

我要用VB6直接连EXCEL，这样就可以省去数据导出这一步骤，请问有什么方法可以实现？最好有段代码。

Answer 1

把exlel当作数据库来读
定义函数如下：
Public Function Read_Excel(ByVal sFile As String) As ADODB.Recordset      On Error GoTo fix_err
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim sconn As String      rs.CursorLocation = adUseClient
      rs.CursorType = adOpenKeyset
      rs.LockType = adLockBatchOptimistic      sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
      rs.Open "SELECT * FROM [sheet1$]", sconn
      Set Read_Excel = rs
      Set rs = Nothing
      Exit Function
fix_err:
      Debug.Print Err.Description + " " + _
                  Err.Source, vbCritical, "Import"
      Err.Clear
End Function只要调用此含数即可：
Private Sub Command5_Click()
 
 Set rsyl = Read_Excel("d:\a.xls")
  Set TDBGrid2.DataSource = rsyl
End Sub