Thema Datum  Von Nutzer Rating
Antwort
Rot CSV Dateipfad aus Zelle auslesen
 16.11.2013 16:10:04 UNVEU
Solved

Ansicht des Beitrags:
Von:
UNVEU		 Datum:
16.11.2013 16:10:04		 Views:
1572		 Rating:
     
Antwort:
 Nein
Thema:
CSV Dateipfad aus Zelle auslesen

Hallo @ all,

ich habe folgendes Problem. Mein Ziel ist es, eine CSV Datei in eine Tabelle hineinzubekommen. Soweit so gut habe ich alles was Schwerpunkt CSV Datei in Excel zu bekommen über den Makrorekorder aufgezeichnet. Das sieht dann wie folgt aus:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;C:\Users\(und weiterführend der entsprechende Dateipfad)" _
    , Destination:=Range("$A$1"))
    .Name = "Christian"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 1252
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = True
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(9, 9, 4, 2, 2, 2, 9, 9, 1, 9, 9)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With

Soweit so gut hab ich damit auch kein Problem in der Funktionsweise dieses Makros. Jetzt ist es aber so, dass die CSV Datei automatisch gespeichert wird in abhängigkeit vom entsprechenden Tagesdatum als Dateinamen. Somit ändert sich immer wieder der Dateiname und folglich ist das Makro unbrauchbar. Mir ist soweit klar, denn Pfad ändern zu müssen in Abhängigkeit an das entsprechende Datum. Es wird auch sicherlich eine Lösung in der Umgebung von VBA dazu geben. Aber für meine persönliche Übersicht möchte ich gerne den Dateipfad in eine Zelle auslagern. Dort habe ich auch keine weiteren Probleme den dementsprechend den Pfad an das aktuelle Datum automatisch ändern zu lassen. Mein Problem ist vielmehr wie ich es schaffen kann, aus dem im Makro aufgezeichneten Dateipfad in eine Zelle auszulagern. Ich hoffe ich konnte mein Problem zielgenau beschreiben.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot CSV Dateipfad aus Zelle auslesen
 16.11.2013 16:10:04 UNVEU
Solved