Hallo zusammen,
Ich bräuchte eure Hilfe
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
Beitrag formatiert ~ EaranMaleasi
Ich bräuchte eure Hilfe
- 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
- die Importdatei soll auf eine zweite arbeitsmappe in der selben masterdatei importiert werden.
- 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
- Sub Datenimport()
- 'Daten importieren in Zelle A1
- '
- 'Datei öffnen-Dialog
- Dim Datei As String
- Application.Dialogs(xlDialogOpen).Show
- Datei = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "XLS", "Auswahl", False)
- 'Abbrechen falls keine Datei ausgewählt
- If Datei = "Falsch" Then
- MsgBox "Keine Daten zum Import ausgewählt!", , "Abbruch"
- Exit Sub
- End If
- Sheets("Import").Activate
- With ActiveSheet.QueryTables.Add(Connection:=Datei, Destination:=Range("A1"))
- .Name = "Importdatei"
- .FieldNames = True
- .RowNumbers = False
- .FillAdjacentFormulas = False
- .PreserveFormatting = True
- .RefreshOnFileOpen = False
- .RefreshStyle = xlInsertDeleteCells
- .SavePassword = False
- .SaveData = True
- .AdjustColumnWidth = True
- .RefreshPeriod = 0
- .TextFilePromptOnRefresh = False
- .TextFilePlatform = 1252
- .TextFileStartRow = 1
- .TextFileParseType = xlDelimited
- .TextFileTextQualifier = xlTextQualifierDoubleQuote
- .TextFileConsecutiveDelimiter = False
- .TextFileTabDelimiter = True
- .TextFileSemicolonDelimiter = True
- .TextFileCommaDelimiter = False
- .TextFileSpaceDelimiter = False
- .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 2, 1)
- .TextFileTrailingMinusNumbers = True
- .Refresh BackgroundQuery:=False
- End With
- 'ZeilenUndSpaltenZahl
- MsgBox ActiveSheet.Cells.UsedRange & " Zeilen " & _
- ActiveSheet.Cells.UsedRange & " Spalten."
- End Sub
Beitrag formatiert ~ EaranMaleasi
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „EaranMaleasi“ ()