Problem bei Typumwandlung (System._ComObject > ..Excel.Application)

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Problem bei Typumwandlung (System._ComObject > ..Excel.Application)

    Hallo,

    bei folgendem Code (dient dem Import und Bearbeitung einer Textdatei) triit bei "xlBook = xlApp.Workbooks.Open(sLocation)" (z.24) diese Fehlermeldung auf :

    An unhandled exception of type 'System.InvalidCastException' occurred in WindowsApplication3.exe
    Additional information: Das COM-Objekt des Typs "System.__ComObject" kann nicht in den Schnittstellentyp "Microsoft.Office.Interop.Excel.Application" umgewandelt werden.

    Quellcode

    1. Imports Excel = Microsoft.Office.Interop.Excel
    2. Public Class Form1
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. Dim lngINet As Int32
    5. Dim lngINetConn As System.IntPtr
    6. Dim blnRC As Boolean
    7. Dim dPath As String
    8. Dim sLocation As String
    9. Dim xlApp As New Excel.Application
    10. Dim xlBook As Excel.Application
    11. Dim xlSheet As Excel.Application
    13. 'Hier Download und Speicherort angeben
    14. dPath = "dPfad"
    15. sLocation = "sPfad" & Replace(dPath, "zu_entfernender_String", "")
    17. lngINet = InternetOpen("MyFTP Control", 1, vbNullString, vbNullString, 0)
    18. lngINetConn = InternetConnect(lngINet, "ip", 0, "username", "password", 1, 0, 0)
    19. blnRC = FtpGetFile(lngINetConn, dPath, sLocation, 0, 0, 1, 0)
    21. InternetCloseHandle(lngINetConn)
    22. InternetCloseHandle(lngINet)
    24. xlBook = xlApp.Workbooks.Open(sLocation)
    25. xlSheet = xlBook.Sheets(1)
    26. xlApp.Visible = True
    28. With xlSheet
    29. .Columns(1).TextoColums(
    30. Destination:= .Cells(6, 1),
    31. Datatype:=Excel.XlTextParsingType.xlDelimited,
    32. Textqualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote,
    33. Semicolon:=True,
    34. DecimalSeparator:=".")
    35. End With
    37. End Sub
    38. Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (
    39. ByVal sAgent As String,
    40. ByVal lAccessType As Int32,
    41. ByVal sProxyName As String,
    42. ByVal sProxyBypass As String,
    43. ByVal lFlags As Integer) As Int32
    45. Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (
    46. ByVal hInternetSession As System.IntPtr, ByVal sServerName As String,
    47. ByVal nServerPort As Integer, ByVal sUsername As String,
    48. ByVal sPassword As String, ByVal lService As Int32,
    49. ByVal lFlags As Int32, ByVal lContext As System.IntPtr) As System.IntPtr
    51. Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (
    52. ByVal hFtpSession As IntPtr, ByVal RemoteFile As String,
    53. ByVal NewFile As String, ByVal fFailIfExists As Boolean,
    54. ByVal dwFlagsAndAttributes As Integer, ByVal Flags As Integer,
    55. ByVal Context As IntPtr) As Boolean
    57. Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As IntPtr) As Boolean
    59. End Class


    Den Verweis auf Microsoft.Office.Interop.Excel habe ich gesetzt. Die Datei wird tatsächlich runtergeladen.
    Ich habe gelesen, dass dieser Fehler durch up/downgrades des office auftreten kann. Es ist nur so, dass ich auf meinem Arbeitrechner schon alle FIixes dafür ausprobiert habe. Und auf meinem Rechner zu hause funktioniert der Code auch nicht. Ich bin auch ein Anfänger, kann gut sein, dass der Code fehlerhaft ist.

    Würde mich freuen, wenn jemand mir da weiterhelfen kann.
    Vielen Dank.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „summertimerainman“ ()

    schau in deinen Code: Welchen Datentyps ist xlBook, und ist eine solche Variable geeignet, dass ihr ein (geöffnetes) Workbook zugewiesen wird?
    Denn das macht ja wohl xlApp.Workbooks.Open(sLocation): Es erstellt ein Workbook-Objekt.

    Also - gugge dein Code, zeile#10: Welchen Datentyp hat xlBook, und kann man dem ein Workbook zuweisen?

Facebook
Telefonspende