Office: Makro für Import von txt-Datei (Zellbezug)

Hallo,

mein Excel-Wissen wächst dank eures Forums jetzt minütlich.

Ich möchte in meine Auswertung allerdings gern noch ein Makro einfügen.

Meine Excel-Datei umfasst 1 Deckblatt und 31 Tabellenblätter mit den Tageswerten von Messstationen, welche ich aus den jeweiligen Textdateien importiere.
Um Fehler beim Import zu vermeiden, soll dieser über ein Makro (in den jeweiligen Tabellenblättern) erfolgen.
Die Textdateien haben ein einheitliches Format „Jahr-Monat-Tag.txt“.

Im „Deckblatt“ meiner Exceldatei gebe ich den Monat und das Jahr an.
Über die Funktion „=verketten“ erhalte ich auf den Tabellenblättern 1-31 den jeweiligen Dateinamen im Feld A1.

Jetzt möchte ich ein Makro entwerfen, welches zum Import auf die Zelle A1 zugreift und die dort benannte Datei öffnet.
Ich habe zu Testzwecken ein Makro aufgezeichnet (Import einer csv-Datei) und jetzt versuche ich den ersten Teil zu ändern, damit er auf die Zelle zugreift und dort den Namen herausholt.


' Makro1 Makro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\xxx\xxx\xxxx-xx-xx.txt" _
, Destination:=Range("$A$6"))
.Name = "xxxx-xx-xx"
.FieldNames = True
.RowNumbers = False
…

den ersten Teil habe ich versucht (mittels Google) wie folgt umzubauen:

"TEXT;" & Dateiname, Destination:=Range(A1))
.Name = Dateiname
…


Ich gebe zu, dass ich von Makros keine Ahnung habe und letzte Woche zum ersten Mal VBA geöffnet habe.

Ich hoffe Ihr könnt mir helfen.

Viele Grüße

dusk

 

Hallo,

die folgende Makrovorlage (aufgrund der Aufzeichnung durch den Makrorecorder)

Code:

' Makro1 Makro 
' 
With ActiveSheet.QueryTables.Add(Connection:= _ 
"TEXT;C:\xxx\xxx\xxxx-xx-xx.txt" _ 
, Destination:=Range("$A$6")) 
.Name = "xxxx-xx-xx" 
.FieldNames = True 
.RowNumbers = False 
...

ist in etwa wie folgt anzupassen:

Code:

' Makro1 Makro 
' 
Dim Datei$, DateiName$, AbfrageName$
Datei$=Range("A1")
DateiName$=Mid(Datei$,Instrrev(Datei$,"\")+1)
AbfrageName$=Left$(DateiName$,Instr(DateiName$,".")-1)

With ActiveSheet.QueryTables.Add(Connection:= _ 
"TEXT;"& Datei$, _ 
Destination:=Range("$A$6")) 
.Name = AbfrageName$ 
.FieldNames = True 
.RowNumbers = False
...

Dabei habe ich die Zeile Destination:=Range("$A$6")) unverändert stehen lassen und möchte dazu bemerken, dass diese Destination-Bereichsangabe die linke obere Ecke des Zellbereichs bezeichnet, ab der der Datenimport im Arbeitsblatt erfolgen soll.
Falls dies statt Zelle A6 die Zelle A1 sein sollte (in der sich der Dateipfad+Name der Importdatei befindet), dann wäre "$A$6" umzuändern in "A1" - dann wird aber dieser Dateipfad+Name für immer gelöscht.

 

Hallo Exl121150,

was soll ich sagen ... funktioniert bestens.
Vielen Dank für Deine Hilfe.
Ich werde einen Datenbereich nach Dir benennen *g*

Viele Grüße

dusk