@Rudi .. Pfad

Forumthread: @Rudi .. Pfad
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: @Rudi .. Pfad

@Rudi .. Pfad

Mike

Hallo Rudi,
besten Dank für die Lösungsvorschläge, die jedoch noch
nicht ganz funktionieren:
https://www.herber.de/forum/messages/1093646.html
Danke für Deine Hilfe.
Gruss
Mike

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: @Rudi .. Pfad

Rudi
super .. Pfad

Mike

AW: @Rudi .. Pfad

06.08.2009 14: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 18:22:07

Mike

Hallo Rudi,
super, nun klappts bestens, danke schön.
Gruss
Mike

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