Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1092to1096
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
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

@Rudi .. Pfad

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: @Rudi .. Pfad
06.08.2009 12:12:36
Rudi
Hallo, 
Sub OeffnenTXT()
Dim sFile As String
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "w:\*.txt"
.Title = "Datei öffnen"
If .Show = -1 Then
sFile = .SelectedItems(1)
End If
End With
If sFile  "" Then
Workbooks.OpenText sFile 'evtl noch Parameter angeben
End If
End Sub
Sub SpeichernXLS()
Dim sFile As String
ChDrive "m:"
sFile = Application.GetSaveAsFilename _
(Replace(ActiveWorkbook.Name, ".txt", ".xls"), "Excel-Dateien (*.xls), *.xls")
If sFile  "" Then ActiveWorkbook.SaveAs sFile
End Sub

Gruß
Rudi
super .. Pfad
06.08.2009 16:22:07
Mike
Hallo Rudi,
super, nun klappts bestens, danke schön.
Gruss
Mike
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige