| | | Xometry ermöglicht JTW Astronomy die Herstellung hochwertiger Trident Teleskophalterungen, ein Anwenderbericht
|
Autor
|
Thema: Datei öffnen im Makro (5063 mal gelesen)
|
röhmler Mitglied Sachbearbeiter techn. Dokumentation
Beiträge: 421 Registriert: 17.02.2004 AutoCAD Mechanical 2014
|
erstellt am: 19. Jun. 2012 08:03 <-- editieren / zitieren --> Unities abgeben:
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 |
MWN Mitglied Dipl.-Ing.
Beiträge: 492 Registriert: 14.02.2007
|
erstellt am: 19. Jun. 2012 08:30 <-- editieren / zitieren --> Unities abgeben: Nur für röhmler
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 |
röhmler Mitglied Sachbearbeiter techn. Dokumentation
Beiträge: 421 Registriert: 17.02.2004 AutoCAD Mechanical 2014
|
erstellt am: 19. Jun. 2012 08:53 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|