VB如何用diaog打开任何EXCEL,并输出到DATAGRID1中，谢谢

Question

如题所述

Answer 1

这个问题涉及到对excel对象的控制和ADODB（ADO）对象的使用。

如果不熟悉excel中的vba可以百度一下，主要思路就是循环读取表格数据到数据控件。

以下示例介绍如何添加记录到Recordset 对象。

'VB6选择“工程”菜单的“引用”，然后添加对 Microsoft ActiveX Data Objects 2.0 Library çš„引用。
' åˆ›å»º Recordset çš„一个实例。
Set rs = New ADODB.Recordset
' è®¾ç½® Recordset çš„属性（这里是两个字段）。
With rs
.Fields.Append "DirID", adInteger
.Fields.Append "Directory", adBSTR, 255
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open
End With
' åœ¨å„目录中循环，并充填Recordset
strPath = "C:\"
strName = Dir(strPath, vbDirectory)
i = 0
Do While strName <> ""
If strName <> "." And strName <> ".." Then
If (GetAttr(strPath & strName) And _
vbDirectory) = vbDirectory Then
i = i + 1
With rs
.AddNew    '添加新的记录
.Fields.Item("DirID") = i 
.Fields.Item("Directory") = strName
.Update
End With
End If
End If
strName = Dir
Loop
' è¿”回到第一个记录。
rs.MoveFirst来自：求助得到的回答

Answer 2

要用到，ado控件或者对象。