Clever-Excel-Forum

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

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)

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

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

Hallo

ungetestet

Code:
ActiveWorkbook.SaveAs Filename:=sZielDatei & ".xlsm", _

FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

MfG Tom

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

Viele Güße Markus

Maximus

Maximus

Crazy Tom

Maximus

Crazy Tom

Maximus