查看: 215  |  回复: 0
  VB6 得到打开的Excel表格的值
楼主
发表于 2024年5月12日 20:45

无需其它引用,新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private Sub Command1_Click()
    Dim objEA As Object
    Dim var As Variant
    Dim n As Long
    
    Set objEA = GetObject(, "Excel.Application")
    If objEA Is Nothing Then MsgBox "Error": Exit Sub
    Set var = objEA.ActiveSheet.range("A1:B4")
    For i = 1 To 4
        Debug.Print var(i, 1), var(i, 2)
    Next
End Sub

运行结果:

 100          red
 101          yellow
 102          bule
 103          green

此Excel表格:A、B列如下。


AB
1100red
2
101yellow
3102bule
4103green
您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com