Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateiname teilweise ändern

Dateiname teilweise ändern
Alex
Hallo zusammen,
mein Problem ist folgendes:
Ich importiere eine Textdatei und bearbeite und formatiere diese mit einem Script. Alles o.k. soweit.
Jetzt ist die Datei aber noch nicht im Excel-Format gespeichert. Den Namen der geönneten Text-Datei bekomme ich heraus (ActiveWorkbook.Name). Aus diesem Namen (2009-11-09_GitterExportVollständig.txt) möchte ich aber nur einen Teil (das Datum) für die neue Bezeichnung als Excel-Datei verwenden.
Hat jemand eine Idee..?
Danke schon mal..
Gruß Alex

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Dateiname teilweise ändern
25.11.2010 12:33:24
Hajo_Zi
Hallo Alex,
Left(ActiveWorkbook.Name,10)

AW: Dateiname teilweise ändern
25.11.2010 13:58:02
Alex
Hallo Hajo,
Danke, war ja gar nicht so schwer, aber jetzt versuche ich die Datei zu speichern, aber was erzeugt wird ist eine leere Excel-Datei, zwar mit meinem gewünschten Namen, aber sonst ist nix drin..
Hier mal mein Code zum speichern der geöffeten Txt.Datei:
Dim strVerzeichnis As String
Dim strDateiname As String
strVerzeichnis = "d:\daten\TK-Anlage\Alcatel\"
strDateiname = strVerzeichnis & "TK-Verrechnungsdaten " & Left(ActiveWorkbook.Name, 10)
ThisWorkbook.SaveAs Filename:=strDateiname, FileFormat:=xlNormal
Was mach ich falsch..?
Anzeige
AW: Dateiname teilweise ändern
25.11.2010 14:07:23
Hajo_Zi
Hallo Alex,
Du speicherst die Datei mit dem Code, vorhin hattest Du aber was geschrieben von Textdatei, da kann der Code niccht drin sein. Ich vermte es ist ActiveWorkbook .
Gruß Hajo
AW: Dateiname teilweise ändern
25.11.2010 14:21:42
Alex
Hallo Hajo,
sorry, wenn ich nicht die richtigen Begriffe verwende. Bin nicht so fit mit dem ganzen Thema.
Mit ActiveWorkbook hab ich es auch schon versucht. Fehlermeldung: Laufzeitfehler '424': Objekt erforderlich
Hier nochmal mein Script:
erst öffne ich die TXT und möchte diese dann abspeichern mit dem entsprechenden Namen

Dim strPfad As String
strPfad = Application.GetOpenFilename("Text-Files (*.txt), *.txt")
If strPfad  CStr(False) Then
Workbooks.OpenText Filename:= _
strPfad, Origin _
:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Dim strVerzeichnis As String
Dim strDateiname As String
strVerzeichnis = "d:\daten\TK-Anlage\Alcatel\"
strDateiname = strVerzeichnis & "TK-Verrechnungsdaten " & Left(ActiveWorkbook.Name, 10)
'ThisWorkbook.SaveAs Filename:=strDateiname, FileFormat:=xlNormal
AtiveWorkbook.SaveAs Filename:=strDateiname, FileFormat:=xlNormal

Anzeige
AW: Dateiname teilweise ändern
25.11.2010 14:30:54
Hajo_Zi
Hallo Alex,
Du hast geschrieben die Datei hat schon einen Namen. Ich würde vermuten das ist falsch
ungetestet.
Dim strPfad As String
strPfad = Application.GetOpenFilename("Text-Files (*.txt), *.txt")
If strPfad CStr(False) Then
Workbooks.OpenText Filename:= _
strPfad, Origin _
:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Dim strVerzeichnis As String
Dim strDateiname As String
strVerzeichnis = "d:\daten\TK-Anlage\Alcatel\"
strDateiname = strVerzeichnis & "TK-Verrechnungsdaten " & Left(strPfad , 10)
'ThisWorkbook.SaveAs Filename:=strDateiname, FileFormat:=xlNormal
AtiveWorkbook.SaveAs Filename:=strDateiname, FileFormat:=xlNormal
Gruß Hajo
Anzeige
AW: Dateiname teilweise ändern
25.11.2010 14:55:50
Alex
Hallo Hajo,
es funktioniert auch mit dem 

strDateiname = strVerzeichnis & "TK-Verrechnungsdaten " & Left(ActiveWorkbook.Name, 10)
Nur leider habe ich in der letzten Zeile "AtiveWorkbook.SaveAs" falsch geschrieben...
muß natürlich "ActiveWorkbook.SaveAs" lauten..
Danke nochmal
Gruß Alex

299 Forumthreads zu ähnlichen Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Anzeige
Platzhalter fuer Dateiname
Dirk

Hallo an alle Tüftler,
ich recherchierte schon stundenlang im Archiv nach diesem Betreff - wurde aber nicht so recht fündig.
Ich möchte Daten aus einer csv-Datei in eine xl-Mappe importieren - der Haken ist allerdings, daß der Name der csv-Datei ständig wechselt.
Aus der Bezeichnung...
19.08.2008 16:21:08
Thread-ID: 1002987
5 Beiträge
Dateinamen während Auto_Open im AddIn
Rolli

Hallo Forum,
ich hab da mal ne Frage!!
Ich würde gerne ein AddIn (Erstellt ne Symbolleiste) nur dann ausführen wollen, wenn eine bestimmte Datei (Z.B. "Test.csv") geöffnet wird.
Wenn ich aber in der Auto_Open Routine im AddIn das ActiveWorkbook abspreche gibt es dieses noch nicht. W...
22.08.2008 12:10:00
Thread-ID: 1003802
5 Beiträge
Anzeige
Dateiname anzeigen
Ralf

Liebes Excel-Forum,
ich hätte da wiedermal ein kleines Problem.
Ich möchte gerne den Dateinamen den ich über eine MSG-Box generiert habe, nachdem die Datei gespeichert wurde, in einer Zelle auf einem Arbeitsblatt angezeigt bekommen.
Wie macht man das?
Vielen Dank für die Mühe
09.09.2008 13:07:00
Thread-ID: 1008435
8 Beiträge
Dateinamen aus Verzeichnis
Jonatan

Hallo,
habe folgenden Code im Archiv gefunden.
Nun würde ich gerne alle Dateinamen eines Ordners und sämtlichen Unterordnern auslesen.
Die Zeile Cells(iCnt, 2) = .FoundFiles.Name ist allerdings falsch. Ich weiß nicht genau, wie man sich den Namen ausgeben lässt.
Könnt ihr mir we...
18.09.2008 08:21:00
Thread-ID: 1010589
3 Beiträge
Dateinamen aus Verzeichnis
Jonatan

Ähm, ich glaub da ging in der Darstellung meiner Frage eben was schief.
Hier nochmal der Code:
Option Explicit
Sub Daten_Loeschen() Dim fSearch As FileSearch Dim wkb As Workbook Dim strPath As String Dim iCnt As Integer Dim index As Variant strPath = "C:\Dokumente und Einstellunge...
18.09.2008 08:32:00
Thread-ID: 1010593
2 Beiträge
Alte Einträge (Dateinamen) farbig darstellen?
Selma

Hallo Leute,
ich habe in Spalte A eine Liste der Dateinamen.
Wenn vor .doc dies steht "_neu" dann soll nachgeschaut werden, ob es die Dateiname ohne "_neu" gibt,
falls ja, dann soll diese Zelle mit Füllfarbe 3 (rot) dargestellt werden.
Dies gilt nur für die Dateiendung .doc
...
21.09.2008 13:22:00
Thread-ID: 1011293
10 Beiträge
Dateinamen aus Verzeichnis nach Excel kopieren
obelix-xxl

Hallo,
nachfolgenden Makro habe ich bei der Suche hier im Forum gefunden.
Es wäre schön, wenn mir Unterstützung geboten würde.
Für meinen Anwendungsfall benötige ich in einer Afrage, die
1.) Abfrage nach dem Unterverzeichnis im dem die zu kopierenden Dateinnamen stehen (Padangab...
08.10.2008 11:35:00
Thread-ID: 1014978
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
4
4
4
7
2
1
9
2
8
2
7
1
4
3
4
2
5
2
2
2
2
4
26