Trying to write information in Excel worksheet But have some strange problems ;) i looked info on Google but no result.. So plz help )
I Add reference Microsoft.excel 14.0 Object Library and also Import Microsoft.Office.interop
I need to get Value from specific cell so i use command Checker = shXL.cells(1,1). And here i don't have Value.... i only got this (Equal / GetHashCode / GetType / toString) So question is WHY i don't have (.Value) for .cells and where is an Error
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()
Best Regards and THX!
That's because .Cells()
returns an object.
You can try converting it to a Excel Cell
object in another step, or you can try this (for example):
shXL.Range("A2").Value
With conversion will be:
Dim xRng As Excel.Range = CType(shXL.Cells(3,3), Excel.Range)
Dim val As Object = xRng.Value()