Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Konvertieren von Dateien von Excel 2003

Konvertieren von Dateien von Excel 2003
Dateien
Hallo Zusammen,
ich habe eine Anwendung, die ich gern vom Excel 2003 in Excel 2007 umwandeln möchte.
Manuell geht das ganz gut.
Gibt es eine Möglichkeit dies über VBA zu machen, da dies es mir sehr erleichtern würde.
Ich muss die Dateien auch öffnen und konvertieren, da Bezüge zu anderen Mappen mit drin sind
und diese auch mit angepaßt werden sollen.
Danke im Voraus.
MFG
Steffen Schmerler

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Konvertieren von Dateien von Excel 2003
31.08.2009 12:02:31
Dateien
ja geht.
Du musst Knöpfe drücken und Dinge tun, damit das funktioniert.
Welche genau kann ich dir leider noch nicht sagen. Dazu bräuchte man noch einige zusätzliche Informationen ;-)
AW: Konvertieren von Dateien von Excel 2003
31.08.2009 12:17:09
Dateien
Halo Stefen,
das ist doch nur öffnen und konvertieren. Beachte aber in VBA einige Befehle gibt es in 2007 nicht mehr.
Die Verknüpfungen sind kein Problem, wenn der ort nicht geändert wird.
Gruß Hajo
...wie geht das
31.08.2009 17:02:22
SteffenS
mit VBA.
Habe nichts gefunden wie ich die Dateien konvertieren kann.
Danke
Steffen
AW: ...wie geht das
31.08.2009 17:18:37
Hajo_Zi
Halo Steffen,
auch 2007 hat einen Makrorecorder.
Office Symbol und konvertieren.
Gruß Hajo
Anzeige
Danke Euch, ich habs nun so gelöst:
01.09.2009 15:39:27
SteffenS

Sub conv_all_files_open()
Dim pathadmin As String, apath As String
pathadmin = ThisWorkbook.Path & "\"
'speichern
Dim wkb As Workbook
Dim awkb As String
'Dateien konvertieren
Application.DisplayAlerts = False
For Each wkb In Workbooks
If wkb.FullName  ThisWorkbook.FullName Then
apath = wkb.Path & "\"
awkb = Left(wkb.Name, Len(wkb.Name) - 4) & xlf07
wkb.SaveAs Filename:=apath & awkb, FileFormat:=xlOpenXMLWorkbookMacroEnabled,  _
CreateBackup:=False
End If
Next wkb
Application.DisplayAlerts = True
'Dateien nochmal speichern
For Each wkb In Workbooks
If wkb.FullName  ThisWorkbook.FullName Then
wkb.Save
End If
Next wkb
'Dateien schliessen & alte Datei löschen
For Each wkb In Workbooks
If wkb.FullName  ThisWorkbook.FullName Then
apath = wkb.Path & "\"
awkb = Left(wkb.Name, Len(wkb.Name) - 5) & xlf
wkb.Close savechanges:=False
Kill apath & awkb
End If
Next wkb
End Sub
VG
Steffen
Anzeige

220 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige