小编Nia*_*rah的帖子

试图在Excel工作表中写入信息但是有一些奇怪的问题;)我在Google上查看了信息但没有结果..所以请帮助)

我添加引用Microsoft.excel 14.0对象库,并导入Microsoft.Office.interop

我需要从特定单元格中获取值,因此我使用命令Checker = shXL.cells(1,1).在这里我没有价值....我只有这个(Equal/GetHashCode/GetType/toString)所以问题是为什么我没有(.Value).cells和哪里是一个错误

        Dim appXL As Excel.Application
        Dim wbXL As Excel.Workbook
        Dim wbsXL As Excel.Workbooks
        Dim shXL As Excel.Worksheet
        Dim Checker As Integer

        appXL = CreateObject("excel.application")
        appXL.Visible = True

        wbsXL = appXL.Workbooks
        wbXL = wbsXL.Open("D:\???????????? ????????????\Base.xlsx", , , , 12121)
        shXL = wbXL.ActiveSheet
        Checker = shXL.Cells(1, 1).value()

最诚挚的问候和THX!