Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateien konvertieren

Dateien konvertieren
12.11.2007 17:14:58
Kenjin
Hallo!
Aufgrund der Umstellung auf Excel 2007 muss ich etliche Excel-Dateien vom 2003er ins 2007er XLSX-Format konvertieren. Einfaches "Öffnen-Speichern unter" reicht völlig aus. Kann mir jemand einen Tipp geben, wie ich per VBA ein komplettes Verzeichnis einlese und die Dateien abspeichere?
Danke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien konvertieren
12.11.2007 17:25:00
Tino
Hallo,
da in 2007 nicht Application.FileSearch mehr geht
hier ein anderes beispiel

Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean, Optional  _
DateiFormat As String)
' lists information about the files in SourceFolder
' example: ListFilesInFolder "C:\FolderName\", True
Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder, SubFolder As Scripting.Folder
Dim FileItem As Scripting.File
Dim r As Long
Set FSO = New Scripting.FileSystemObject
Set SourceFolder = FSO.GetFolder(SourceFolderName)
r = Range("A65536").End(xlUp).Row + 1
For Each FileItem In SourceFolder.Files
' display file properties
If InStr(FileItem.Name, DateiFormat) > 0 Then
Cells(r, 1).Formula = FileItem.Path '& FileItem.Name
r = r + 1 ' next row number
End If
Next FileItem
If IncludeSubfolders Then
For Each SubFolder In SourceFolder.SubFolders
ListFilesInFolder SubFolder.Path, True
Next SubFolder
End If
Columns("A:H").AutoFit
Set FileItem = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing
ActiveWorkbook.Saved = True
End Sub
Sub tsst()
Cells.Clear
ListFilesInFolder "C:\Dokumente und Einstellungen\Test\", True, "xls"
End Sub


Gruss
Tino

Anzeige
AW: Microsoft scripting runtime
12.11.2007 17:40:12
Tino
Hallo,
Microsoft scripting runtime muss unter Extras- Verweise aktiviert werden!
Gruss
Tino

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige