title image


Smiley Typ Excel.Application nicht definiert
Hallo zusammen,

mit folgendem Code, den ich gefunden habe will ich Daten nach Excel exportieren!



Leider bekomme ich aber dei Fehlermeldung: der Typ "Excel.Application" ist nicht definiert. Warum?

Muß ich vielleicht einen Verweis hinzufügen, wenn ja welchen?



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox("Der Export nach Excel wird nun gestartet!" & vbCrLf & "Dies kann einen Moment dauern!", MsgBoxStyle.Information, "Digital Data - Tarif-Kalkulator")

Me.Cursor = Cursors.WaitCursor

Me.DSTARIFE1.TBPLZ_ENTFERNUNG_MAUT_KM.Clear()

Me.DAPLZ_ENTFERNUNG_MAUTKM.Fill(DSTARIFE1.TBPLZ_ENTFERNUNG_MAUT_KM)

Try

Dim myExcel As New Excel.Application

myExcel.Application.Workbooks.Add()

myExcel.Visible = True

Dim myColumn As DataColumn

Dim colIndex As Integer

Dim rowIndex As Integer

For Each myColumn In DSTARIFE1.TBPLZ_ENTFERNUNG_MAUT_KM.Columns

colIndex += 1



myExcel.Cells(1, colIndex) = myColumn.ColumnName

Next



Dim myRow As DataRow

rowIndex = 1

For Each myRow In DSTARIFE1.TBPLZ_ENTFERNUNG_MAUT_KM.Rows

rowIndex += 1

colIndex = 0

Dim myColumn2 As DataColumn

For Each myColumn2 In DSTARIFE1.TBPLZ_ENTFERNUNG_MAUT_KM.Columns

colIndex += 1

myExcel.Cells(rowIndex, colIndex) = myRow(myColumn2.ColumnName).ToString()

Next myColumn2



Next myRow

Dim mySheet As Excel.Worksheet = CType(myExcel.Sheets("Orders Import"), Excel.Worksheet)

mySheet.Name = "Orders Import"

mySheet.Cells.Select()

mySheet.Cells.EntireColumn.AutoFit()

mySheet.Range("A1").Select()





Catch ex As Exception



End Try

Me.Cursor = Cursors.Default

End Sub





Grüsse



Marlon

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: