Import einer Excel Datei im selben file anhand von VBA

  • Excel

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

    Import einer Excel Datei im selben file anhand von VBA

    Hallo zusammen,

    Ich bräuchte eure Hilfe
    1. Ich habe eine Datei in der auf der ersten Mappe eine Liste zufinden ist. Auf diesr Mappe soll eine Schaltfläche hiterleget werden, dass beim Anklicken des Buttons sich ein Dialogfenster öffnet aus der ich dann die gewünschte excel datei importieren kann
    2. die Importdatei soll auf eine zweite arbeitsmappe in der selben masterdatei importiert werden.
    3. dieser vorgang wiederholt sich jeden monat, sodass immer eine weitere arbeitsmappe in der masterdatei für die importierte datei erstellt werden soll.


    Das würde mir falls ihr dafür eine lösung habt vorerst genügen.
    Ich wäre euch sehr dankbar wenn ihr mir hierbei weiter helfen könntet.

    Anbei meine bisheriger Versuch es zu programmieren.
    Dabei habe ich ein Problem:
    Die importierte Datei wird in einerm neuen file geöffnet das soll aber NICHT so sein


    Visual Basic-Quellcode

    1. Sub Datenimport()
    2. 'Daten importieren in Zelle A1
    3. '
    4. 'Datei öffnen-Dialog
    5. Dim Datei As String
    7. Application.Dialogs(xlDialogOpen).Show
    8. Datei = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "XLS", "Auswahl", False)
    10. 'Abbrechen falls keine Datei ausgewählt
    11. If Datei = "Falsch" Then
    12. MsgBox "Keine Daten zum Import ausgewählt!", , "Abbruch"
    13. Exit Sub
    14. End If
    16. Sheets("Import").Activate
    17. With ActiveSheet.QueryTables.Add(Connection:=Datei, Destination:=Range("A1"))
    18. .Name = "Importdatei"
    19. .FieldNames = True
    20. .RowNumbers = False
    21. .FillAdjacentFormulas = False
    22. .PreserveFormatting = True
    23. .RefreshOnFileOpen = False
    24. .RefreshStyle = xlInsertDeleteCells
    25. .SavePassword = False
    26. .SaveData = True
    27. .AdjustColumnWidth = True
    28. .RefreshPeriod = 0
    29. .TextFilePromptOnRefresh = False
    30. .TextFilePlatform = 1252
    31. .TextFileStartRow = 1
    32. .TextFileParseType = xlDelimited
    33. .TextFileTextQualifier = xlTextQualifierDoubleQuote
    34. .TextFileConsecutiveDelimiter = False
    35. .TextFileTabDelimiter = True
    36. .TextFileSemicolonDelimiter = True
    37. .TextFileCommaDelimiter = False
    38. .TextFileSpaceDelimiter = False
    39. .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 2, 1)
    40. .TextFileTrailingMinusNumbers = True
    41. .Refresh BackgroundQuery:=False
    42. End With
    44. 'ZeilenUndSpaltenZahl
    45. MsgBox ActiveSheet.Cells.UsedRange & " Zeilen " & _
    46. ActiveSheet.Cells.UsedRange & " Spalten."
    48. End Sub


    Beitrag formatiert ~ EaranMaleasi

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

    @Ufuk
    Es gibt einen Code Tag. Nutze bitte diesen. Sonst ist der Code unverständlich.

    Edit:

    Korrigiere bitte auch den Code.
    Falsch => False zum Beispiel

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „a.b_om“ ()

    Dein Code. Den kannst du nicht einfach so als Text posten. Klar kannst du, aber es ist so schwieriger dir zu helfen. Nimm einen Codetag um den Code. Schau im Anhang welchen ich dir Vorschlage.

    2. Dein Code hat in einem If Falsch geschrieben. Ich weiss nicht, ob das mit VBA zu tun hat, aber üblich ist das nicht(meines Erachtens).

    Edit:

    ich kann das nicht für dich machen. Entweder machst es du, oder ein Super-Moderator, der das ändert.
    Bilder

    • Unbenannt.PNG

      22,71 kB, 1.583×90, 115 mal angesehen

    2. Dein Code hat in einem If Falsch geschrieben. Ich weiss nicht, ob das mit VBA zu tun hat, aber üblich ist das nicht(meines Erachtens).

    "Falsch" steht in Gänsefüßchen, ist also ein String.
    Einfach mal in VBA testen


    Mit CodeTags sieht's so aus: (Für VBA auf VB 6.0 klicken)

    Visual Basic-Quellcode

    1. Sub Datenimport()
    2. 'Daten importieren in Zelle A1
    3. '
    4. 'Datei öffnen-Dialog
    5. Dim Datei As String
    7. Application.Dialogs(xlDialogOpen).Show
    8. Datei = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "XLS", "Auswahl", False)
    10. 'Abbrechen falls keine Datei ausgewählt
    11. If Datei = "Falsch" Then
    12. MsgBox "Keine Daten zum Import ausgewählt!", , "Abbruch"
    13. Exit Sub
    14. End If
    16. Sheets("Import").Activate
    17. With ActiveSheet.QueryTables.Add(Connection:=Datei, Destination:=Range("A1"))
    18. .Name = "Importdatei"
    19. .FieldNames = True
    20. .RowNumbers = False
    21. .FillAdjacentFormulas = False
    22. .PreserveFormatting = True
    23. .RefreshOnFileOpen = False
    24. .RefreshStyle = xlInsertDeleteCells
    25. .SavePassword = False
    26. .SaveData = True
    27. .AdjustColumnWidth = True
    28. .RefreshPeriod = 0
    29. .TextFilePromptOnRefresh = False
    30. .TextFilePlatform = 1252
    31. .TextFileStartRow = 1
    32. .TextFileParseType = xlDelimited
    33. .TextFileTextQualifier = xlTextQualifierDoubleQuote
    34. .TextFileConsecutiveDelimiter = False
    35. .TextFileTabDelimiter = True
    36. .TextFileSemicolonDelimiter = True
    37. .TextFileCommaDelimiter = False
    38. .TextFileSpaceDelimiter = False
    39. .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 2, 1)
    40. .TextFileTrailingMinusNumbers = True
    41. .Refresh BackgroundQuery:=False
    42. End With
    44. 'ZeilenUndSpaltenZahl
    45. MsgBox ActiveSheet.Cells.UsedRange & " Zeilen " & _
    46. ActiveSheet.Cells.UsedRange & " Spalten."
    48. End Sub

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

    Jetzt mach erstmal den CodeTag. Sonst hilft dir sonst fast niemand.

    Ich kenn mich in VBA nicht besonders gut aus. Dachte wäre ein Fehler. Weiss aber auch dass es ein String ist. Und ich habe dein Code falsch intepretiert. War nicht sonderlich leserlich.

    Edit:
    Erst jetzt gemerkt, dass ich ein bisschen zu spät war.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „a.b_om“ ()

    @a.b_om Unterlasse bitte in Zukunft reine "Formatiere deinen Post" Antworten. Wenn du sonst nichts zum Thema beizutragen hast, nutze dafür die "Melden" Funktion. Es ist hingegen kein Problem, das als einmalige Nebenbemerkung zu deiner Antwort mit entsprechenden Beispielen/Links hinzuzufügen.

    @Ufuk Willkommen im Forum. Um Quellcode jeglicher Art lesbarer zu gestalten, gibt es entsprechende Code-Tags, die man genau dafür verwenden kann. Ich bitte dich in Zukunft darum, diese auch anzuwenden. Hier findest du alle Infos darüber:
    [Forum] Wie füge ich Quellcode korrekt im Forum ein?

    @EaranMaleasi
    Sorryyy, passiert nicht wieder. Ich habe mal einen Moderator gefragt, wieso meine Frage mal gemeldet wurde. Jetzt weiss ich wieso. Ich dachte die Melden-Funktion sei nur wegen unangemessene Posts.

    @Ufuk
    Es könnte an der ​GetOpenFilename liegen. Es öffnet ja eine Datei meines Wissens. Öffne doch nur den StreamWriter.

    Ufuk schrieb:

    Sheets("Import").Activate
    With ActiveSheet.QueryTables.Add(Connection:=Datei, Destination:=Range("A1"))
    Dein jetziger Code erzeugt eine QueryTable im Sheet "Import"
    Die Daten sind gelinkt auf die im Dialog ausgewählte Datei.

    Was möchtest du stattdessen?
    Eine Kopie der Datei in einem neuen Sheet?
    Eine QueryTable in einem neuen Sheet?
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende