VBA: Dateiübergreifend kopieren

[Hofmanna]

Habe hier auf der Arbeit leider nur 7zip und das wird hier auch nicht akzeptiert. Habe meinen letzten Beitrag editiert und einfach nur .txt hinter den Namen gepackt. Jetzt hat er es gefressen.  :43:

[00202]

Hallo, :19:

probiere es mal so: :21:

Code:

Option Explicit
Public Sub Main()
  ThisWorkbook.Sheets.Add Type:="C:\Temp\" & Range("A1").Text & ".D06"
End Sub
Public Sub Main_1()
    Application.ScreenUpdating = False
    Workbooks.OpenText Filename:="C:\Temp\" & Range("A1").Text & ".D06", DataType:=xlDelimited, Tab:=True
    ActiveSheet.UsedRange.Copy ThisWorkbook.Worksheets("Tabelle2").Range("C2"): Application.CutCopyMode = True
    ActiveWorkbook.Close False
    Application.ScreenUpdating = True
End Sub

Ich hab in Tabelle1 in A1 "010100" stehen. Dann Pfad anpassen und anschließend "Public Sub Main_1()" ausführen. Eventuell musst du noch den Tabellenblattname "Tabelle2" anpassen. Mit "Public Sub Main()" kannst du einfach schnell ein neues Tabellenblatt mit dem Inhalt von "010100.D06" generieren. Also was zum spielen. :21:

[Hofmanna]

Vielen Dank schon mal soweit! Jetzt habe ich das Problem, dass sich die 010100.D06 öffnet und dann Laufzeitfehler 9 auftritt. (Siehe Screenshot)


[
Bild bitte so als Datei hochladen: Klick mich!
]

[00202]

Hallo, :19:

nimm mal die ZIP-Datei, entpacke die irgendwo, starte die Datei "Datei_Import.xlsb" und klicke den Button - klappt es?
[attachment=21878]

"Index außerhalb des gültigen Bereichs" bedeutet er kann was nicht finden. Ist "Tabelle9" richtig?

[Hofmanna]

Es läuft!! Vielen Dank!!
Das war wohl mein Fehler. Bei Kuwers Code, musste ich "Tabelle9" angeben, in deinem Code musste ich den wahren namen nutzen. Irgendwie Schräg...
VBA ist mit ein Rätsel, aber ein Kurs ist schon gebucht  :68: