Я некоторое время пытался объявить или открыть лист Excel в vb.net.Я уже прочитал файл Excel в vb.net и другие ссылки, но он не работает.
Я добавил библиотеку объектов Microsoft Excel 12.0.Я включил:
Imports Microsoft.VisualBasic
Imports System.Net.Mime.MediaTypeNames
Imports Microsoft.Office.Interop
Я хочу объявить / открыть файл Excel в модуле:
Public Module postleitzahlen_array
Dim myarray As String
Dim xlApp As Excel.Application
xlApp = New Excel.ApplicationClass ' here is the error, XlApp "has to be declared"
Может кто-нибудь мне помочь?
РЕДАКТИРОВАТЬ:
Хорошо, я заметил, что я использую Excel 2007, и есть разница - теперь я использую следующий код из http://vb.net -informations.com / excel-2007 / vb.net_excel_2007_create_file.htm
Sub test()
Dim xlApp As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
xlApp = New Excel.ApplicationClass
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkSheet = xlWorkBook.Sheets("sheet1")
xlWorkSheet.Cells(1, 1) = "http://vb.net-informations.com"
xlWorkSheet.SaveAs("D:\vbexcel.xlsx")
xlWorkBook.Close()
xlApp.Quit()
releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)
MsgBox("Excel file created , you can find the file c:\")
End Sub
Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub
, но я получаю ошибку в xlWorkSheet = xlWorkBook.Sheets("sheet1")
, говоря "(Исключение от HRESULT: 0x8002000B (DISP_E_BADINDEX)) *
Edit2: я использую немецкий excel, поэтому" sheet1 "выбрасываетошибка -> правильное слово "tabelle1":)