Преобразование Excel 2007 в Excel 97-2003 автоматически

Question

мне нужно конвертировать Excel 2007 в Excel 97-2003,

я делаю это вручную, откройте Excel и сохранить как Excel 97-2003
но я хочу, чтобы он был автоматизирован. Можно

Answer 1

Поместите filespecs из файлов, которые вы хотите преобразовать в колонке из Лист1 следующим образом:

.

Затем запустите эту маленькую VBA макрос:

Sub asdf() 
    Dim s As String, N As Long, i As Long 
    Sheets("Sheet1").Activate 
    N = Cells(Rows.Count, "A").End(xlUp).Row 
    For i = 1 To N 
     s = Cells(i, 1).Value 
     Workbooks.Open Filename:=s 
     s = Replace(s, ".xlsx", ".xls") 
     s = Replace(s, "xlsm", ".xls") 
     ActiveWorkbook.SaveAs Filename:=s, _ 
      FileFormat:=xlExcel8, Password:="", _ 
      WriteResPassword:="", _ 
      ReadOnlyRecommended:=False, _ 
      CreateBackup:=False 
     ActiveWorkbook.Close 
    Next i 
End Sub