10

Мне приходится работать со старым приложением, которое может экспортировать только файлы XLS, и я пишу программы в .Net, используя библиотеку EPPlus, которая способна только читать файлы XLSX.

Какой самый простой способ пакетного преобразования из XLS в XLSX?

5 ответов5

5

Проверьте Менеджер планирования миграции Office.

Инструментарий также содержит конвертер файлов Office (OFC), который позволяет выполнять массовое преобразование документов из двоичных форматов в OpenXML. (Technet)

Обзор на Technet

Ссылка для скачивания

2

Я бы порекомендовал использовать макрос для обработки файлов в папке, чтобы конвертировать их из xls в xlsx. В этом коде предполагается, что все файлы находятся в одной папке и что все xls-файлы необходимо преобразовать, но если вы хотите выбрать отдельные файлы, этот код можно обновить.

Этот код должен быть запущен из книги Excel 2007 или Excel 2010.

Option Explicit

' Convert all xls files in selected folder to xlsx

Sub convertXLStoXLSX()

    Dim FSO As Scripting.FileSystemObject
    Dim strConversionPath As String
    Dim fFile As File
    Dim fFolder As Folder
    Dim wkbConvert As Workbook


    ' Open dialog and select folder
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Show
        strConversionPath = .SelectedItems(1)
    End With

    Set FSO = New Scripting.FileSystemObject

    ' Check if the folder exists
    If FSO.FolderExists(strConversionPath) Then
        Set fFolder = FSO.GetFolder(strConversionPath)

        ' Loop through files, find the .xls files
        For Each fFile In fFolder.Files
            If Right(fFile.Name, 4) = ".xls" Or Right(fFile.Name, 4) = ".XLS" Then
                Application.DisplayAlerts = False
                Set wkbConvert = Workbooks.Open(fFile.Path)
                ' Save as XML workbook - if file contains macros change FileFormat:=52
                wkbConvert.SaveAs FSO.BuildPath(fFile.ParentFolder, Left(fFile.Name, Len(fFile.Name) - 4)) & ".xlsx", FileFormat:=51
                wkbConvert.Close SaveChanges:=False
                ' Delete original file
                fFile.Delete Force:=True
                Application.DisplayAlerts = True
            End If
        Next fFile

    End If

End Sub

Если файлы, которые вы конвертируете, содержат макросы, вам нужно обновить FileFormat:= 51, чтобы прочитать FileFormat:= 52. Или, если вам не нужен макрос-код в преобразованных файлах, вы можете оставить его в покое, и он удалит макросы при преобразовании его в формат xlsx.

0

Поэтому я написал простой VBScript для автоматического преобразования файлов .xls в .xlsx.

./convert-xls-xlsx.vbs {path to folder containing .xls files}

convert-xls-xlsx.vbs:

    Set args = WScript.Arguments
    strPath = args(0)
    strPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(strPath)
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = False
    objExcel.DisplayAlerts = False
    Set objFso = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFso.GetFolder(strPath)
    For Each objFile In objFolder.Files
        fileName = objFile.Path
        If (objFso.GetExtensionName(objFile.Path) = "xls") Then
            Set objWorkbook = objExcel.Workbooks.Open(fileName)
            saveFileName = Replace(fileName,".xls",".xlsx")
            objWorkbook.SaveAs saveFileName,51
            objWorkbook.Close()
            objExcel.Application.DisplayAlerts =  True
        End If
    Next
    MsgBox "Finished conversion"

ПРИМЕЧАНИЕ. Обратите внимание на наличие пробелов в пути к папке. Если в пути есть пробел, поместите его в кавычки.

0
Sub SaveAllAsXLSX()
Dim strFilename As String
Dim strDocName As String
Dim strPath As String
Dim wbk  As Workbook
Dim fDialog As FileDialog
Dim intPos As Integer
Dim strPassword As String
Dim strWritePassword As String
Dim varA As String
Dim varB As String
Dim colFiles As New Collection
Dim vFile As Variant
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
    .Title = "Select folder and click OK"
    .AllowMultiSelect = True
    .InitialView = msoFileDialogViewList
    If .Show  -1 Then
        MsgBox "Cancelled By User", , "List Folder Contents"
        Exit Sub
    End If
    strPath = fDialog.SelectedItems.Item(1)
    If Right(strPath, 1)  "\" Then strPath = strPath + "\"
End With
If Left(strPath, 1) = Chr(34) Then
    strPath = Mid(strPath, 2, Len(strPath) - 2)
End If
Set obj = CreateObject("Scripting.FileSystemObject")
RecursiveDir colFiles, strPath, "*.xls", True
For Each vFile In colFiles
        Debug.Print vFile
    strFilename = vFile
    varA = Right(strFilename, 3)
    If (varA = "xls" Or varA = "XLSX") Then
     Set wbk = Workbooks.Open(Filename:=strFilename)
       If wbk.HasVBProject Then
              wbk.SaveAs Filename:=strFilename & "m", FileFormat:=xlOpenXMLWorkbookMacroEnabled
            Else
               wbk.SaveAs Filename:=strFilename & "x", FileFormat:=xlOpenXMLWorkbook
            End If
            wbk.Close SaveChanges:=False
           obj.DeleteFile (strFilename)
    End If
Next vFile

End Sub
Public Function RecursiveDir(colFiles As Collection, _
                             strFolder As String, _
                             strFileSpec As String, _
                             bIncludeSubfolders As Boolean)

    Dim strTemp As String
    Dim colFolders As New Collection
    Dim vFolderName As Variant

    'Add files in strFolder matching strFileSpec to colFiles
    strFolder = TrailingSlash(strFolder)
    strTemp = Dir(strFolder & strFileSpec)
    Do While strTemp  vbNullString
        colFiles.Add strFolder & strTemp
        strTemp = Dir
    Loop

    If bIncludeSubfolders Then
        'Fill colFolders with list of subdirectories of strFolder
        strTemp = Dir(strFolder, vbDirectory)
        Do While strTemp  vbNullString
            If (strTemp  ".") And (strTemp  "..") Then
                If (GetAttr(strFolder & strTemp) And vbDirectory)  0 Then
                    colFolders.Add strTemp
                End If
            End If
            strTemp = Dir
        Loop

        'Call RecursiveDir for each subfolder in colFolders
        For Each vFolderName In colFolders
            Call RecursiveDir(colFiles, strFolder & vFolderName, strFileSpec, True)
        Next vFolderName
    End If

End Function
Public Function TrailingSlash(strFolder As String) As String
    If Len(strFolder) > 0 Then
        If Right(strFolder, 1) = "\" Then
            TrailingSlash = strFolder
        Else
            TrailingSlash = strFolder & "\"
        End If
    End If
End Function

0

Если у вас установлен MsOffice, возможно, стоит быстро скачать этот инструмент.

http://www.softinterface.com/Convert-XLS/Features/Convert-XLS-To-XLSX.htm

Когда вы выбираете папку, чтобы увидеть конвертированные файлы xls, убедитесь, что вы отметили опцию конвертировать инструмент, который использует MS Office для преобразования, а не их собственный конвертер.

Если вы используете их собственный конвертер, вы потеряете цвета в ячейках, и, похоже, один лист выйдет. Если вы используете MsOffice в качестве конвертера, кажется, работает хорошо. Хороший инструмент для быстрого исправления.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .