VB中怎么连接Execel呢？

Question

VB中怎么连接Execel呢？并读取里面的内容，并打印出来。谢谢～

Answer 1

这里 http://www.mndsoft.com
有一些关于Excel的示例。
你可以在搜索中输入“Excel”进行查找！

Answer 2

Project->Reference,添加excel object libaray引用，就可以直接操作excel文件了，相关函数msdn里都有详细介绍。

Answer 3

Dim objexcel As Excel.Application 
     Set objexcel = New Excel.Application 
     objexcel.Visible = True 
     With objexcel.ActiveSheet 
     '此处放置控制EXCEL的代码 
     End with

Answer 4

http://www.connectionstrings.com/  方法甲，连接excel，把excel当数据库方法乙：用vba，可以参考楼上的代码，如果vba有什么不懂的，方法乙。1：找到office文件夹里office10这个文件夹，找2052文件夹，里面的chm文件有个是vbaexcel的介绍方法乙。2：录制宏，看里边的代码

Answer 5

Set ex = CreateObject("Excel.Application")
ex.ActiveWindow.SelectedSheets
在引用中添加EXCEL1.0就可以了

Answer 6

Dim newxls As Excel.Application
    Dim newbook As Excel.Workbook
    Dim newsheet As Excel.Worksheet
    Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
    newxls.Visible = True
    Set newbook = newxls.Workbooks.add   '创建工作簿
    Set newsheet = newbook.Worksheets(1) '创建工作表

Answer 7

加 microsoft excel x object libraryPrivate MyExcel As New Excel.Application
    MyExcel.Workbooks.Open App.Path & "\Book1.xls"
    eRows = MyExcel.Sheets(1).UsedRange.Rows.Count  'excel 的行數
    eCols = MyExcel.Sheets(1).UsedRange.Columns.Count 'excel 的列數    ReDim c1(eRows) As String
    For i = 1 To eRows
        c1(i) = Trim(MyExcel.Worksheets(1).Cells(i, 1))
    Next i