IT Guy VS World

Na dzisiaj coś z innej beczki – podpinanie się przez własną aplikację w Visual Basic’u do pliku excel.

Na wstępie robimy drobny import:

Imports Excel = Microsoft.Office.Interop.Excel

Reszta idzie w ten sposób:

Dim ExcelApp As Excel.Application
Dim ExcelWorkBook As Excel.Workbook
Dim ExcelWorkSheet As Excel.Worksheet
ExcelApp = New Excel.Application()

OpenFileDialog1.ShowDialog()

ExcelWorkBook = ExcelApp.Workbooks.Open(OpenFileDialog1.FileName)
ExcelWorkSheet = ExcelWorkBook.Worksheets(1)

'Pokaz zawartosc komorki B2
MsgBox(ExcelWorkSheet.Cells(2, 2).value)

'Nadpisz zawartosc komorki B2
ExcelWorkSheet.Cells(2, 2) = "http://www.it-guy.pl"

ExcelWorkBook.Close()
ExcelApp.Quit()