"Erheblicher Funktionalitätsverlust"

[Maximus]

Hallo,

Habe im Internet ein Programm gefunden, womit ich meine Datei automatisch mit Datum und Uhrzeit an dem Speicherort speicher, wo schon meine Ursprungsdatei abgelegt ist:

Code:

Sub xlsTest()
 'Datei und Pfad sind Wörter, die in VBA
 'Verwendung finden und deshalb verboten
 'sind
 Dim sDatei As String, sZielDatei As String
 Dim Pos
 'Dim sPfad As String
 'hier fehlt der Backslash (\)
 'sPfad = ThisWorkbook.Path
 sPfad = ActiveWorkbook.Path & "\"
 sDatei = ActiveWorkbook.Name
 '
 'in Dateinamen sind z.B. Doppelpunkte
 'nicht erlaubt
 'Dateinamen extrahieren
 Pos = InStrRev(sDatei, ".", , vbTextCompare)
 sZielDatei = sPfad & Mid(sDatei, 1, Pos - 1)
 sZielDatei = sZielDatei _
   & "_" & Format(Date, "yyyyMMdd_") _
   & Format(Time, "hh-mm")
 'MsgBox sZielDatei
 '
 ActiveWorkbook.SaveAs Filename:=sZielDatei & ".xls", _
   FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
   ReadOnlyRecommended:=False, CreateBackup:=False
 ActiveWorkbook.Close
End Sub

 
Das mit dem speichern funktioniert.
Excel zeigt immer eine Kompatibilitätsprüfung an (siehe Anhang)

Hier wird von erheblichen Verlusten gesprochen.
Kann man die Anzeige einfach ignorieren oder muß man was ändern?

Wenn man diese Nachricht ignorieren kann, wo schalte ich diese Nachricht ab, damit ich diese nicht immer wieder angezeigt bekomme?

Gruß Markus

[Maximus]

Hi,

und dann hätte ich nochmal eine Frage:

Meine Ursprungsdatei hat 139KB
Sobald ich diese automatisch speicher hat diese gleiche Datei über 500KB

Wie kommt sowas zustande? Ist das normal, dass nur durch das speichern die Datei soviel mehr KB verbraucht?

Gruss Markus

(siehe Anhang)

[Crazy Tom]

Hallo

im Code wird die Datei als xls (Excel 97 :2003) gespeichert
erstellt hast du die Datei wohl mit xl2010?
dann solltest du sie im Code auch als xlsx oder wenn mit Makros als xlsm oder xlsb speichern
in den älteren Excelversionen geht halt nicht alles was in den neueren ab xl2007 möglich ist

MfG Tom

[Maximus]

Code:

Sub xlsTest()
 'Datei und Pfad sind Wörter, die in VBA
 'Verwendung finden und deshalb verboten
 'sind
 Dim sDatei As String, sZielDatei As String
 Dim Pos
 'Dim sPfad As String
 'hier fehlt der Backslash (\)
 'sPfad = ThisWorkbook.Path
 sPfad = ActiveWorkbook.Path & "\"
 sDatei = ActiveWorkbook.Name
 '
 'in Dateinamen sind z.B. Doppelpunkte
 'nicht erlaubt
 'Dateinamen extrahieren
 Pos = InStrRev(sDatei, ".", , vbTextCompare)
 sZielDatei = sPfad & Mid(sDatei, 1, Pos - 1)
 sZielDatei = sZielDatei _
   & "_" & Format(Date, "yyyyMMdd_") _
   & Format(Time, "hh-mm")
 'MsgBox sZielDatei
 '
 ActiveWorkbook.SaveAs Filename:=sZielDatei & ".xlsm", _
   FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
   ReadOnlyRecommended:=False, CreateBackup:=False
 ActiveWorkbook.Close
End Sub

Hi Tom,
ja habe Excel 2010
gespeichert folgendermaßen: C:\Users\Privat\Desktop\mit speicher\NEU mit register.xlsm

Habe jetzt xls gegen xlsm geändert.
Trotzdem habe ich noch die Anzeige siehe oben und über 500KB beim abspeichern.
Muß ich sonst noch was ändern?

Gruß Markus

[Crazy Tom]

Hallo

ungetestet

Code:

ActiveWorkbook.SaveAs Filename:=sZielDatei & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

MfG Tom

[Maximus]

Hallo Tom,
super funktioniert! Danke! Jetzt habe ich keine Fehlermeldung mehr!

Viele Güße Markus