Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon DirtyDiana vom 25.11.2020, 13:46 Options

Konvertierung Excel <-> OpenOffice

Hallo zusammen,

ich habe folgendes Problem :
einige Excel-Dateien lassen sich mit Excel2000 plötzlich nicht mehr
öffnen, die Anwendung wird von Windows geschlossen (Excel2007
wird NICHT eingesetzt).
Öffnen ich diese Dateien jedoch mit OpenOffice Calc 3.0 habe ich
keinerlei Probleme, speichere ich die Dateien im XLS-Format ab
kann Excel2000 damit auch wieder ohne Probleme arbeiten.

Frage :
Wie kann ich einen ganzen Datei-Pfad in einer Art Batch öffnen und
im XLS-Format auch wieder abspeichern ? Ich möchte nicht den
ganzen Tag jede einzelne Datei manuell anfassen müssen.

Grüsse,
DirtyDiana

Antwort schreiben

Antwort 1 von nighty vom 25.11.2020, 14:13 Options

hi all :-)

oeffnet die dateien eines angegebenen verzeichnisses und speichert sie wieder im selben verzeichnis,vielleicht hilfreich ?

gruss nighty

Option Explicit
Sub DateienLesen()
    Call EventsOff
    Dim DateiName As String
    DateiName = Dir("C:\Temp\" & "*.xls")
    Do While DateiName <> ""
        If ThisWorkbook.Name <> DateiName Then
            Workbooks.Open Filename:="C:\Temp\" & DateiName
            Workbooks(DateiName).SaveAs Filename:="C:\Temp\" & DateiName, FileFormat:=xlNormal
            Workbooks(DateiName).Close
        End If
        DateiName = Dir
    Loop
    Call EventsOn
End Sub

Public Sub EventsOff()
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
End Sub

Public Sub EventsOn()
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
End Sub

Antwort 2 von nighty vom 25.11.2020, 14:14 Options

hi all :-)

ups korrigiert

gruss nighty

Option Explicit
Sub DateienLesen()
    Call EventsOff
    Dim DateiName As String
    DateiName = Dir("C:\Temp\" & "*.xls")
    Do While DateiName <> ""
        If ThisWorkbook.Name <> DateiName Then
            Workbooks.Open Filename:="C:\Temp\" & DateiName
            Workbooks(DateiName).SaveAs Filename:="C:\Temp\" & DateiName, FileFormat:=xlNormal
            Workbooks(DateiName).Close
        End If
        DateiName = Dir
    Loop
    Call EventsOn
End Sub

Public Sub EventsOff()
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
End Sub

Public Sub EventsOn()
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
End Sub

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken