Ich habe es fast gelöst, aber mit dem Fileformat stimmt etwas nicht.
Code:
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
With dialog
.InitialFileName = pfad & Dateiname1 & „.xlsx,.xlsx“ , FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
weiss jemand, was ich falsch gemacht habe?
Gruss
Walti
Hallo Walter,
versuche es mal so:
Sub SpeichernUnter()
Dim dialog As FileDialog
Dim pfad As String
Dim Dateiname1 As String
pfad = "T:\NM_Public\E&T\NE_NW_Implement\DOCSIS Capacity Reports 2015\Neue weekly report vom OBIEE\weekly reports\"
Dateiname1 = ActiveWorkbook.Worksheets(1).Name
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
dialog.InitialFileName = pfad & Dateiname1
dialog.AllowMultiSelect = False
If (dialog.Show) Then
ActiveWorkbook.SaveAs dialog.SelectedItems(1), 51
End If
End Sub
fg
Dirk_P
Guten Morgen Dirk
Vielen Dank! Das ist genau dass, was ich wollte sprich will
Mit freundlichen Grüssen
Walter
Hallo Walter,
der Dialog sollte richtig sein. Mir scheint, dass das Ergebnis dir nicht gefällt, also das falsche Format für die neue Datei verwendet wird.
Schau dir mal zu Fileformat folgende Seite an: FileFormat. Bei dir könnte xlExcel8 passen.
Und denke dran: Die Erweiterung (Extension) des Namens einer Datei hat mit dem Format seiner Inhalte nur mittelbar was zu tun. Wir erwarten zwar, dass in einer Datei deren Extension .xslx lautet auch Excel drin ist, dass muss nicht sein, sollte aber. In Windows wird über die Extension dann auch gesteuert, welches Standard Programm eine Datei öffnen soll. Wird dann lustig, wenn die Extension z.B. DOC lautet aber eine CAD Zeichnung drin ist.
Ich habe nämlich das Gefühl, dass du zwar eine .xlslx Datei erzeugst, aber der Inhalt ist xlOpenXMLWorkbook. Vermutlich ein spezielles XML Format…
fg
Dirk_P
Hallo Dirk
Ich stehe auf dem „Schlauch“.
Sub SpeichernUnter()
Dim dialog As Object
Dim pfad As String
Dim Dateiname1 As String
pfad = „T:\NM_Public\E&T\NE_NW_Implement\DOCSIS Capacity Reports 2015\Neue weekly report vom OBIEE\weekly reports“
Dateiname1 = ActiveWorkbook.Worksheets(1).Name
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
With dialog
.InitialFileName = pfad & Dateiname1 & „.xlsx,.xlsx“, FileFormat:=51
.Show
End With
End Sub
Nach dem Komma (rot) verlangt er ein Anweisungsende und macht nicht weiter
Gruss
Walter
Hallo Walter,
bitte nim den Code den ich gepostet hatte…
fg
Dirk_P