---

Guten Morgen,

ich habe von VBA keine Ahnung, die Makros die ich erstellt habe, hab ich mim Makrorecorder gemacht. In diesem Beispiel handelt es sich um eine Stückliste Formartieren. Aus dem SAP wird einen txt-Datei erstellt und diese im Excel geöffnet. Nun werden Spalten verschoben, Zeilen gelöscht und Überschriften eingefügt. Bisher hab ich es so gemacht, dass ich die (SAP)txt-Datei s.txt benannt und immer im gleichen Ordner abgelegt hab, damit mein Makro die zu bearbeitende Datei immer wieder findet. Mir aber wäre lieber, ich könnte die txt-Datei im Ursprungsnamen belassen und beim Makrostart die Datei auswählen, indem ein Fenster zur Dateiauswahl aufgeht. Aber wie bereits oben erwähnt kenn ich mich mit Makro`s nicht aus. kann mir jemand bitte weiterhelfen?

VIELEN DANK mal

Hier der Anfang:

ChDir "G:\DATENAUSTAUSCH_HELIX-ACAD"
    Workbooks.OpenText Filename:="G:\DATENAUSTAUSCH_HELIX-ACAD\s.txt", Origin:= _
        -535, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
        Array(1, 1), Array(4, 1), Array(6, 1), Array(13, 1), Array(14, 1), Array(15, 1), Arra  usw.....................................

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen röhmler,

so wie es aussieht, geht dein Problem mit Excel weiter 

Code:

---

ChDir "G:\DATENAUSTAUSCH_HELIX-ACAD"
    Workbooks.OpenText Filename:="G:\DATENAUSTAUSCH_HELIX-ACAD\s.txt", Origin:= _
        -535, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
        Array(1, 1), Array(4, 1), Array(6, 1), Array(13, 1), Array(14, 1), Array(15, 1), Arra

---

Probier mal folgendes (ungetestet):

Code:

---

Dim oFileDialog As FileDialog
Dim strPath As String
Set oFileDialog = Application.FileDialog(msoFileDialogOpen)
With oFileDialog
    .Title = "Bitte wählen Sie eine Datei aus"
    .InitialFileName = strStartPath & "\*.txt"
    .AllowMultiSelect = False
    If .Show = True Then
        Path = oFileDialog.SelectedItems(1)
    End If
End With
Workbooks.OpenText Filename:=Path, hier der Rest von deinem Code, beginnend mit "Origin:="

---

Und folgende Code - Zeile schreibst du als erste Zeile im Code - Editor:

Code:

---

Const strStartPath As String = "C:\temp"

---

Wobei der Pfad noch gegen deinen Standard - Start - Pfad zu tauschen ist, oder besser gesagt, gegen den Pfad, in dem deine Text - Datei aus dem SAP liegt.
Rückmeldungen erbeten.
Grüße

Tobias

------------------
Besucht mich doch mal in meiner Tischlerei

"...Kommunikation ist nur so gut wie ihr Ergebnis..." - frei nach Richard Bandler / John Grinder

"...Wenn du das tust, was du schon immer tust, wirst du auch nur das erhalten, was du schon immer erhalten hast..."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

He Chef,

VIELEN DANK - vom feinsten. Erspart mir ne Menge zeit jetzt.
Wird Zeit, das ich meinen VBA-Kurs bekomme  ;-)

MERCI

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP