Re: Excel 2007 SaveAs VBA

20/03/2008 - 14:39 von Andreas Röder | Report spam

"Martin Hentrich" <taxcel@aol.com> schrieb im Newsbeitrag >


Habe ich das richtig verstanden: Du kannst mit dem Makro-Rekorder
VBA-Code aufzeichnen, aber wenn du diesen Code unveràndert und
vollstàndig in deinen Code einbaust, dann funktioniert es nicht?

Liegt das nun am Code oder in der Art und Weise, wie du den Code
einbaust... ? ;-)





Hallo Martin,

Ups zu schnell Enter gedrückt!

das hast Du richtig verstanden. Der Code aus dem Makrorecorder wird nicht
übernommen.
Zur Zeit sieht der Code so aus

Sub copy_Test()
Dim Neuer_Dateiname
Dim WB As Workbook
Dim sKopiename As String
Set WB = ThisWorkbook
On Error Resume Next
sKopiename = "Angebot " & Sheets("Deckblatt").Cells(11, 4).Value &
Format(Date, " dd.mm.yyyy") & ".xls"
With WB
ActiveWorkbook.Sheets(Array("Deckblatt", "FK2", "RE_NOG")).Copy
Neuer_Dateiname = Application.GetSaveAsFilename(sKopiename,
fileFilter:="Excel-Arbeitsmappe (*.xls), *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname
End With
End Sub

Baue ich nun das FileFormat dort rein
"AUSZUG"
Neuer_Dateiname = Application.GetSaveAsFilename(sKopiename,
FileFormat:=xlExel8)
Bekomme ich die Fehlermeldung

Nehme ich anstelle von GetSaveAs aber nur SaveAs dann funktionierts. Das
möchte ich aber nicht, da der Kunde den Speicherort selbst definieren soll.

Mit
Application.Dialogs(xlDialogSaveAs).Show
Wàre dieses natürlich wieder Möglich, aber dann fehlt der vordefinierte
Dateiname beim speichern.

Vlt hilft das ein wenig mehr?
 

Lesen sie die antworten

#1 Martin Hentrich
20/03/2008 - 15:13 | Warnen spam
On Thu, 20 Mar 2008 14:39:29 +0100, "Andreas Röder"
<webmaster[at]andreas-roeder.net> wrote:

Das
möchte ich aber nicht, da der Kunde den Speicherort selbst definieren soll.



Dann mußt du ihm die Möglichkeit dazu auch geben!

fileSaveName = Application.GetSaveAsFilename(ActiveWorkbook.Name,_
fileFilter:="Excel Files (*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlExcel5

Experimentiere mal damit rum und schau zu den Funktionen auch einmal
in die beispiele aus der Hilfe!

Martin

Im Übrigen bin ich der Meinung, dass der Föderalismus
im Bildungswesen abgeschafft werden muss!

Ähnliche fragen