64965
Dec 28, 2012, updated at 14:41:47 (UTC)
2581
4
0
Eingabeaufforderung in Marko einbauen
Hi,
ich möchte das eine CSV Datei mit einem Makro automatisch importiert und anschließend formatiert wird.
An und für sich kein Problem, nur ist bei der Aufnahme des Makros der Pfad zur CSV Datei natürlich absolut angegeben worden.
Ich würde nun gerne noch eine Eingabeaufforderung hinzufügen wo der User den Pfad zur Datei selbst eingeben kann bzw. das Marko so bearbeiten, dass es ist diesen Schritt nicht automatisch macht, sondern die Wahl der CSV Datei noch dem User überlässt. Versteht ihr ?!
Ums zu verdeutlichen, entweder soll dieser Teil des Makros über eine Eingabeaufforderung abgefangen werden:
oder eben das Marko das gar nicht automatisiert machen lassen. Ich habe weder von der einen Lösung noch von der anderen eine Ahnung
Danke im Voraus!
cphowdy
ich möchte das eine CSV Datei mit einem Makro automatisch importiert und anschließend formatiert wird.
An und für sich kein Problem, nur ist bei der Aufnahme des Makros der Pfad zur CSV Datei natürlich absolut angegeben worden.
Ich würde nun gerne noch eine Eingabeaufforderung hinzufügen wo der User den Pfad zur Datei selbst eingeben kann bzw. das Marko so bearbeiten, dass es ist diesen Schritt nicht automatisch macht, sondern die Wahl der CSV Datei noch dem User überlässt. Versteht ihr ?!
Ums zu verdeutlichen, entweder soll dieser Teil des Makros über eine Eingabeaufforderung abgefangen werden:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\Downloads\2012-12.csv", Destination:=Range("$A$1"))
.Name = "2012-12"
.FieldNames = True
......
Danke im Voraus!
cphowdy
Please also mark the comments that contributed to the solution of the article
Content-Key: 196308
Url: https://administrator.de/contentid/196308
Printed on: April 27, 2024 at 05:04 o'clock
4 Comments
Latest comment
Hallo cphowdy!
In etwa so:
Gruß Dieter
In etwa so:
Dim strFileToOpen As Variant
strFileToOpen = Application.GetOpenFilename("Csv Dateien (*.csv), *.csv")
If strFileToOpen <> False Then
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & strFileToOpen, Destination:=Range("$A$1"))
.FieldNames = True
'......
.Delete
End With
End If
Gruß Dieter