VB Daten aus Excel Datei1 in Excel Datei2 kein VBA code

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Akki.

    VB Daten aus Excel Datei1 in Excel Datei2 kein VBA code

    Hallo VB FREUNDE,

    habe wahrscheinlich eine simple Frage, kann sie nicht lösen sitze auf dem Schlauch.


    Bei der Kopie zwischen zwei Excel Dateien tritt ein Fehler(Fehler@Zeile 44) zur Laufzeit auf.
    Ich habe habe lange versucht aber keine Ahnung womit es zusammen hängt.
    Meine Vermutung ein Logikfehler

    Schaut mal bitte drüber:


    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub CopyExcelToExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyExcelToExcel.Click
    5. Dim oExcel As Object
    6. Dim oBook As Object
    7. Dim oSheet As Object
    8. Dim FileFormat As Object
    10. FileFormat = 56
    12. 'Start a new workbook in Excel.
    13. oExcel = CreateObject("Excel.Application")
    14. oBook = oExcel.Workbooks.Add
    16. Dim FilePath As String = "C:\real"
    17. 'Add data to cells of the first worksheet in the new workbook.
    18. oSheet = oBook.Worksheets(1)
    19. oSheet.Range("A1").Value = "Counter"
    20. oSheet.Range("B1").Value = "PVI"
    21. oSheet.Range("C1").Value = "BuildData"
    22. oSheet.Range("A2").Value = "1"
    23. oSheet.Range("B2").Value = "4654654UR"
    27. 'Save the Workbook and quit Excel.
    28. oBook.SaveAs(FilePath, FileFormat)
    32. oExcel.Quit()
    33. oExcel = Nothing
    35. Dim Projekt As New Object
    36. Dim objExcel As New Object
    37. Dim puffer As String
    39. Projekt = CreateObject("excel.application")
    40. 'Projekt.Application.Workbooks.Open("C:\Tabelle2.xls")
    41. objExcel = Projekt.Application.Workbooks.Open("C:\Tabelle2.xls")
    42. 'objExcel = Projekt.Worksheets(1)
    43. puffer = objExcel.Range("A2").Value '<<<<<<<<<<<<<<< Hier taucht der Fehler: Der öffentliche Member Range für den Typ Workbook wurde nicht gefunden
    44. oSheet.Range("A3").Value = puffer
    47. Projekt.Visible = False
    48. Projekt.Quit()
    50. End Sub
    51. End Class


    Vielen Dank für eure Hilfe!!!

    Range is kein Member von Workbook sondern von Worksheet!
    Ergo kannste nich ein Range vom Workbook sondern nur einen Range aufm Tabellenblatte ansprechen!
    Btw....
    Option Strict ON!
    hätteste den Unsinn direkt bemerkt!
    Wozu den ganzen Kram in Objecte definieren wenn du direkt die richtigen Tyen nutzen kannst?

    VB.NET-Quellcode

    1. Dim xlApp as new Excel.Apllication
    2. Dim xlWorkbook as Excel.Workbook = xlApp.Workbooks.Opne("DeinBookhalt")

    hey vielen Dank!

    Eine Frage habe ich noch wenn ich das ganze mit den richtigen Typen machen, wie du es vorgeschlagen hast.

    Wie kann ich dann ein neue Excel Datei erstellen und mit Spalten füllen bsp
    diesen Teil

    VB.NET-Quellcode

    1. oBook = oExcel.Workbooks.Add
    3. Dim FilePath As String = "C:\real"
    4. 'Add data to cells of the first worksheet in the new workbook.
    5. oSheet = oBook.Worksheets(1)
    6. oSheet.Range("A1").Value = "Counter"
    7. oSheet.Range("B1").Value = "PVI"
    8. oSheet.Range("C1").Value = "BuildData"
    9. 'oSheet.Range("A1:B1").Font.Bold = True
    10. oSheet.Range("A2").Value = "1"
    11. oSheet.Range("B2").Value = "4654654UR"


    mit richtigen Typen übersetzen. Wie würde es dann aussehen??

    Danke schön!

    Danke dir!

    Ich habe das auf Worksheet umgeändert. Jedoch bekomme ich jetzt ein neuen Fehler Ausnahme von HRESULT: 0x800A01A8

    VB.NET-Quellcode

    1. Dim Projekt As New Object
    2. Dim objExcel As New Object
    3. 'Dim WB As Workbook
    4. 'Dim Ziel As Range
    5. Dim puffer As String
    8. Projekt = CreateObject("excel.application")
    9. Projekt.Application.Workbooks.Open("C:\Tabelle2.xls")
    11. objExcel = Projekt.Worksheets(1)
    12. puffer = objExcel.Range("A2").Value
    13. oSheet.Range("A3").Value = puffer '<<<< Hier taucht dieser Fehler auf Ausnahme von HRESULT: 0x800A01A8


    Weißt du woran das liegen könnte mehr wird auch nicht angezeigt

    Danke FlohFuchs

    Tu dir einen gefallen... schreib mal ganz oben Option Strict ON hin...

    und dann arbeite mit den Typen.... objExcel is halt nunmal immer noch kein woksheet...
    schau dir mal folgendes an, und am besten verstehen ;)
    Imports Microsoft.Office.Interop
    Public Class Form1

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Dim xlApp As New Excel.Application
    3. Dim xlWorkbookUrsprung As Excel.Workbook = xlApp.Workbooks.Open(IO.Path.Combine(
    4. My.Computer.FileSystem.SpecialDirectories.MyDocuments,
    5. "MappeUrsprung.xlsx"))
    6. Dim xlWorkbookZiel As Excel.Workbook = xlApp.Workbooks.Open(IO.Path.Combine(
    7. My.Computer.FileSystem.SpecialDirectories.MyDocuments,
    8. "MappeZiel.xlsx"))
    10. Dim xlWorksheetUrsprung As Excel.Worksheet = CType(xlWorkbookUrsprung.Worksheets(0), Excel.Worksheet)
    11. Dim xlWorksheetZiel As Excel.Worksheet = CType(xlWorkbookZiel.Worksheets("Tabelle3"), Excel.Worksheet)
    13. xlWorksheetZiel.Range("A22").Value = xlWorksheetUrsprung.Range("B4").Value
    14. End Sub
    Bilder

    • OptionStrict1.gif

      258,07 kB, 1.242×797, 147 mal angesehen

    • OptionStrict2.gif

      271,49 kB, 1.068×794, 165 mal angesehen

    Danke schön. :)

    Ich habe es versucht anzu passen bekomme jedoch immernoch Fehler. ?( :(
    Ich habe deinen Rat befolgt und habe "Option Strict On" aktiviert.

    bekomme drei Fehler Zeile 15, 33

    Ich habe meine datei angehängt.

    Wenn du zeit und Lust hast kannst ja mal schauen woran es liegt.

    Vielen Dank für deine Mühe und Arbeit!

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports Microsoft.Office.Interop
    4. Public Class Form1
    6. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    7. 'Dim m_xlDateiname As String
    8. 'Dim m_xlApp As Excel.Application
    9. 'Dim xlMappe As Excel.Workbook
    10. 'Dim xlBlatt As Excel.Worksheet
    11. 'Dim xlZelle As Excel.Range
    12. 'Dim FileFormat As Object
    13. 'FileFormat = 56
    14. 'Dim FilePath As String = "C:\real"
    16. Dim xlApp As New Excel.Application '<<<<<<<<<<<<<<<<<<<<<New kann nicht auf eine Schnittstelle verwendet werden
    20. 'Dim xlWorkbookUrsprung As Excel.Workbook = xlApp.Workbooks.Open(IO.Path.Combine(
    21. 'My.Computer.FileSystem.SpecialDirectories.MyDocuments,
    22. '"MappeUrsprung.xlsx"))
    24. Dim xlWorkbookUrsprung As Excel.Workbook = xlApp.Workbooks.Open("C:\Tabelle2.xls")
    25. Dim xlWorkbookZiel As Excel.Workbook = xlApp.Workbooks.Open("C:\Tabelle.xls")
    27. 'Dim xlWorkbookZiel As Excel.Workbook = xlApp.Workbooks.Open(IO.Path.Combine(
    28. 'My.Computer.FileSystem.SpecialDirectories.MyDocuments,
    29. '"MappeZiel.xlsx"))
    31. Dim xlWorksheetUrsprung As Excel.Worksheet = CType(xlWorkbookUrsprung.Worksheets(0), Excel.Worksheet)
    32. Dim xlWorksheetZiel As Excel.Worksheet = CType(xlWorkbookZiel.Worksheets("Tabelle"), Excel.Worksheet)
    34. xlWorksheetZiel.Range("A2").Value = xlWorksheetUrsprung.Range("A1").Value '<<<<<<<<Option Strict On lässt spätes Binden nicht zu
    37. 'xlWorkbook.Close()
    38. xlApp.Quit()
    39. 'xlZelle = Nothing
    40. 'xlBlatt = Nothing
    41. 'xlMappe = Nothing
    42. 'xlApp = Nothing
    46. End Sub
    47. End Class
    Dateien

    • Excel.zip

      (169,87 kB, 119 mal heruntergeladen, zuletzt: )

    Probier mal das. Bei mir wirft wenigstens jetzt Intelli keine Fehler. ACHTUNG: habe Imports verändert.

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports iExcel = Microsoft.Office.Interop.Excel
    5. Public Class Form1
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. 'Dim m_xlDateiname As String
    9. 'Dim m_xlApp As Excel.Application
    10. 'Dim xlMappe As Excel.Workbook
    11. 'Dim xlBlatt As Excel.Worksheet
    12. 'Dim xlZelle As Excel.Range
    13. 'Dim FileFormat As Object
    14. 'FileFormat = 56
    15. 'Dim FilePath As String = "C:\real"
    16. Dim xlApp As New iExcel.Application
    20. 'Dim xlWorkbookUrsprung As Excel.Workbook = xlApp.Workbooks.Open(IO.Path.Combine(
    21. 'My.Computer.FileSystem.SpecialDirectories.MyDocuments,
    22. '"MappeUrsprung.xlsx"))
    24. Dim xlWorkbookUrsprung As iExcel.Workbook = xlApp.Workbooks.Open("C:\Tabelle2.xls")
    25. Dim xlWorkbookZiel As iExcel.Workbook = xlApp.Workbooks.Open("C:\Tabelle.xls")
    27. 'Dim xlWorkbookZiel As Excel.Workbook = xlApp.Workbooks.Open(IO.Path.Combine(
    28. 'My.Computer.FileSystem.SpecialDirectories.MyDocuments,
    29. '"MappeZiel.xlsx"))
    31. Dim xlWorksheetUrsprung As iExcel.Worksheet
    33. xlWorksheetUrsprung = CType(xlWorkbookUrsprung.Worksheets(0), iExcel.Worksheet)
    36. Dim xlWorksheetZiel As iExcel.Worksheet =
    37. CType(CType(xlWorkbookZiel.Worksheets("Tabelle"), Excel.Worksheet),
    38. iExcel.Worksheet)
    40. xlWorksheetZiel.Range("A2").Value = xlWorksheetUrsprung.Range("A1").Value
    43. 'xlWorkbook.Close()
    44. xlApp.Quit()
    45. 'xlZelle = Nothing
    46. 'xlBlatt = Nothing
    47. 'xlMappe = Nothing
    48. 'xlApp = Nothing
    52. End Sub
    53. End Class

Facebook