viele Dateien auf Excel 2010 umstellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Konvertierung_2010() ' Konvertierung_2010 Makro ChDir "Y:\Desktop\Konvertierung\alt" Workbooks.Open Filename:="Y:\Desktop\Konvertierung\alt\a.xls" ChDir "Y:\Desktop\Konvertierung\neu" ActiveWorkbook.SaveAs Filename:="Y:\Desktop\Konvertierung\neu\a.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWindow.SmallScroll Down:=-9 End Sub

Sub Abspeichern_im_2010Format_dann_schließen() ' Abspeichern_im_2010Format_dann_schließen Makro ChDir "Y:\Desktop\teeest" ActiveWorkbook.SaveAs Filename:="Y:\Desktop\teeest\yyy.xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False ActiveWorkbook.Close End Sub

Sub Abspeichern_im_2010Format_dann_schließen() Dim strWB As String With ActiveWorkbook strWB = Left(.Name, InStrRev(.Name, ".") - 1) .SaveAs _ Filename:="Y:\Desktop\teeest\" & strWB & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False .Close End With End Sub

Hallo Wolfgango,
alle, ich glaub fast 30 Programmpakete von MS, beinhalten eine Teilmenge von VB.
Also dies:
For n = 1 to 10
Msgbox n
Next n
muß in word, excel, coreldraw, outlook usw. laufen.
Zu diesem reinen Vb-Anteil kommen halt je nach Programm noch Zusatzfunktionen.
Excel kennt den Ausdruck Document nicht aber Workbook, worksheet usw.
Word kennt document aber nicht workbook usw.
Ergo scheitert der ExcelCode in Word schon mal an
With ActiveWorkbook
das muß dann
With activedocument lauten
Der Left-Befehl klappt bei Word oder Excel ab Version 2000.
Bei SaveAs, Word kennt xlOpenXMLWorkbook nicht, schau halt in der Wordhilfe bei SaveAs.
Höchstwahrscheinlich heißt das da wd... und nicht xl..., bei Access wirds wohl ac... heißen *schätz*
Fazit, die gleiche Programmierlogik klappt in Excel und Word. Es muß nur im Code manches anders benannt werden.
Das "klappt" beziehe ich jetzt auf deine Anfrage. In Excel kannst du durch Angabe von zeile/Spalte exakt auf eine zelle und deren Position beziehen.
In Word (mal Word-Tabellen weglassen) geht das nicht, Word ist ein Fließtext.
Just my two Pfennige
Gruß
Reinhard

Hallo Wolfang
vesuche es einmal mit folgendem Code


Public Sub Convert_xls_xlsm()
Dim WB As Workbook
Dim Datei As String, OldFile As String, Ordner As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
Application.ShowWindowsInTaskbar = False
'    Application.EnableCancelKey = xlDisabled
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:\Temp\"
.Title = "Ordnerauswahl"
.ButtonName = "Auswahl..."
.InitialView = msoFileDialogViewList
If .Show = -1 Then
Ordner = .SelectedItems(1)
If Right(Ordner, 1)  "\" Then Ordner = Ordner & "\"
Else
Exit Sub 'Ordner = ""
End If
End With
On Error Resume Next
ChDir Ordner
Datei = Dir(Ordner & "*.xls")
Do While Datei  ""
Set WB = Workbooks.Open(Ordner & Datei)
With ActiveWorkbook
' Dateiformat prüfen
If .FileFormat = xlWorkbookNormal Or .FileFormat = xlExcel8 Then
' Dateinamen merken
OldFile = .FullName
' Datei im neuen Dateinformat speichern
.SaveAs Filename:=Replace(OldFile, "xls", "xlsm"), FileFormat:= _
xlOpenXMLWorkbookMacroEnabled
' alte Datei löschen
Kill OldFile
End If
End With
WB.Close
Datei = Dir
Loop
Set WB = Nothing
'    Application.EnableCancelKey = xlInterrupt
Application.EnableEvents = True
Application.DisplayAlerts = True
Application.AskToUpdateLinks = True
Application.ShowWindowsInTaskbar = True
Application.ScreenUpdating = True
End Sub

Gruß
Peter

Beliebteste Forumthreads (12 Monate)

viele Dateien auf Excel 2010 umstellen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

297 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

viele Dateien auf Excel 2010 umstellen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

297 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread