Dateien im neuen Officeformat

[zeras]

Zitat von Jumpy:

Die Frage ist doch, was eure IT gemacht hat. Wenn die über Gruppenrichtlinien das im TrustCenter der Office Produkte so eingestellt haben, dass man solche Dateien nur noch öffnen aber nicht mehr bearbeiten kann, dann kann man sie evtl. auch nicht mehr mit "Speicher unter" in einem anderen Format speichern.

So glaube ich, hat die IT das gemeint. Wir haben noch ein wenig Karrenzzeit, aber in ein paar Monaten soll das greifen.
Das wäre natürlich schlecht, wenn man nachträglich nichts mehr nutzen kann. Dann wird wohl doch nichts anderes übripg bleiben, als die Dateien vorher zu konvertieren.

Dann wäre noch die Frage, ob es Programme gibt, die einen ganzen Ordner konvertieren. Ansonsten ist das viel Arbeit, da teilweise hunderte von Word oder Exleldateien auf unseren Servern liegen.

[Delphi.Narium]

Programme?

Excel?

https://stackoverflow.com/questions/...ch-file-or-vba

Code:

Sub TransformAllXLSFilesToXLSM()
Dim myPath As String

myPath = "C:\Excel\"
WorkFile = Dir(myPath & "*.xls")

Do While WorkFile <> ""
    If Right(WorkFile, 4) <> "xlsm" Then
        Workbooks.Open FileName:=myPath & WorkFile
        ActiveWorkbook.SaveAs FileName:= _
        myPath & WorkFile & "m", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        ActiveWorkbook.Close
     End If
     WorkFile = Dir()
Loop
End Sub

Und für die anderen Officeprogramme analog.

[Andreas13]

Im Code feht noch eine Deklaration:

Code:

Dim WorkFile As String

es sei denn, Du verzichtest auf

Code:

Option Explicit

und nimmst die (anfällige) automatische Variablendeklaration in Kauf, was ein disziplinierter Delphianer nur ungern täte...
Gruß, Andreas

[venice2]

Zitat von Andreas13:

Im Code feht noch eine Deklaration:

Code:

Dim WorkFile As String

es sei denn, Du verzichtest auf

Code:

Option Explicit

und nimmst die (anfällige) automatische Variablendeklaration in Kauf, was ein disziplinierter Delphianer nur ungern täte...
Gruß, Andreas

Denke wohl es ist so definiert irgendwo oben im code den du nicht siehst.

Code:

Public WorkFile As String

wenn von außen außerhalb der Form darauf zugegriffen wird

Ansonsten reicht ein

Code:

Private WorkFile As String

Aber das sind nur Spekulationen.
Davon ab ist es ein schlechter Programmierstyle auf

Code:

Option Explicit

zu verzichten.