VB能连接EXCEL吗?

Question

VB里能连接EXCEL吗?

Answer 1

VB可引用Microsoft Excel Object Library 组件与Excel进行交互

Answer 2

http://node01.fds.kdn.kingsoft.com/pub/wps/wps2c/apihelp.rar
是金山的API开发文档，同样适用于微软的OFFICE！

Answer 3

在 VB社区中搜索 Excel，你会找到你想要的答案。
我第一次连接 Excel,就是搜索到的。

Answer 4

你是想利用VB直接操作EXCEL还是把一个工作簿当作数据源来操作呢？如果用VB操作EXCEL，可以引用EXCEL库；
如果当作数据源，则用ADO。相关的代码，网上都可以找到。

Answer 5

Private Sub Command1_Click()
    '引用 Microsoft Excel 11.0 Object Library
    Dim xlsApp As Excel.Application
    Dim eworkbook As Workbook
    Dim eworksheet As Worksheet
    
    Set xlsApp = New Excel.Application
    Set eworkbook = xlsApp.Workbooks.Open("G:\2005.xls")
    Set eworksheet = eworkbook.Sheets("Sheet1")
    
    With eworksheet
        '1
        .Cells(1, 1) = "1"
        .Cells(1, 2) = "2"
        .Cells(1, 3) = "3"
        '2
        .Cells(2, 1) = "11"
        .Cells(2, 2) = "22"
        .Cells(2, 3) = "33"
        '3
        .Cells(3, 1) = "111"
        .Cells(3, 2) = "222"
        .Cells(3, 3) = "333"
    End With
    
    eworkbook.Save
    eworkbook.Close
    xlsApp.Quit
End Sub

Answer 6

Screen.MousePointer = vbHourglass    On Error GoTo ErrPath    Set Xl = GetObject("", "Excel.Application")
    If ERR.Number = 429 Then 'not exist Excel instance
        Set Xl = CreateObject("Excel.Application")
    End If'Open Excel Sheet
    Xl.Workbooks.Open (App.Path & "\Report\GC020R.xls")
    Set Ws = Xl.Worksheets("Sheet1")    Rows = vaSpread1.MaxRows
    ReDim Ary_Char(0 To Rows, 1 To vaSpread1.MaxCols)
    For IDr = 0 To Rows
        j = 0
        vaSpread1.Row = IDr
        For i = 1 To vaSpread1.MaxCols
            vaSpread1.COL = i
            If vaSpread1.ColHidden = False Then
                j = j + 1
                Ary_Char(IDr, j) = vaSpread1.Text & ""
            End If
        Next i
    Next IDr
    DestRange = Rows + 4
    Ws.Range("A4:" & Chr(vaSpread1.MaxCols + 64) & DestRange).Value = Ary_Char  'FILL DATA    Ws.Range("B3").Value = Format(Date, "YYYY-MM-DD")
    Ws.Range("P3").Value = oLbl_RecordCount.Caption
    Ws.Range("R3").Value = oLbl_Count.Caption    Screen.MousePointer = vbDefault    frmPrint.Show 1    Exit Sub

Answer 7

用ado，我是这样连，提供串是这样写
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\f\study\book1.xls;Extended Properties=""Excel 8.0;HDR=YES;IMEX=1"""，其他跟连接其他数据库一样
就是要select时不清楚怎么select，除非select *