---

Speicherabfrage.JPG

Hallo Leute,

ich habe am Makroende das speichern mit Datumsformat und anschl. schliessen von Excel. Ich verwende Excel2007 und einige Mitarbeiter Excel2003. Nun möchte ich das File speichern als .xlsx (dann können die das über den Converter öffnen). Auch ist diese Speicherabfrage immer wieder zu beantworten.
Wie muss das Makro zusätzlich verändert werden?

Dim OName$
    VZ01 = "C:\DATEN\"
    bName = Format(Date, "yyyymmdd")
    MkDir VZ01 & bName
    Dim objFSO2 As Object, objFile As Object
    Set objFSO2 = CreateObject("Scripting.FileSystemObject")
    For Each objFile In objFSO2.GetFolder(VZ01).Files
        objFile.Move VZ01 & bName & "\"
    Next
    Dim dName$
    eName = "TEST_" & Format(Date, "yyyymmdd") & ".xls"
    dName = "C:\DATEN\" & bName & "\" & _
            eName
    ActiveWorkbook.SaveAs dName
    Application.ScreenUpdating = True
    With Application
    .DisplayAlerts = False
    .Quit
End With
End Sub

------------------
Gruß
    Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

verwende doch nochmal Application.DisplayAlerts = False,
ist ja schon in deinem Code bei der Xl-Beendenroutinie aufgeführt...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Jetzt hats funktioniert:

Dim OName$
    VZ01 = "C:\DATEN\"
    bName = Format(Date, "yyyymmdd")
    MkDir VZ01 & bName
    Dim objFSO2 As Object, objFile As Object
    Set objFSO2 = CreateObject("Scripting.FileSystemObject")
    For Each objFile In objFSO2.GetFolder(VZ01).Files
        objFile.Move VZ01 & bName & "\"
    Next
    Dim dName$
    eName = "TEST_" & Format(Date, "yyyymmdd")
    dName = "C:\DATEN\" & bName & "\" & _
            eName
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs dName , FileFormat:=xlExcel8
    Application.ScreenUpdating = True
    With Application
    .DisplayAlerts = False
    .Quit
End With
End Sub

------------------
Gruß
    Marco

[Diese Nachricht wurde von thewolff am 30. Dez. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP