尝试在 Excel 工作表中写入信息
但有一些奇怪的问题;)我在谷歌上查看了信息,但没有结果..
所以请帮忙)
我添加引用Microsoft.excel 14.0对象库
并导入 Microsoft.Office.interop
我需要从特定单元格获取值
所以我使用命令 Checker = shXL.cells(1,1)。在这里我没有价值......
我只得到这个(Equal / GetHashCode / GetType / toString)
所以问题是为什么我没有 .cells 的 (.Value) 以及错误在哪里
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()
致以最诚挚的问候和感谢!
那是因为.Cells()
返回一个对象。
您可以尝试将其转换为ExcelCell
在另一步骤中对象,或者您可以尝试此操作(例如):
shXL.Range("A2").Value
转换后将是:
Dim xRng As Excel.Range = CType(shXL.Cells(3,3), Excel.Range)
Dim val As Object = xRng.Value()
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)