我需要将Excel文件格式从.xls转换为.xlsx,但是文件位于.zip文件夹中。我尝试下载FreeSpire.XLS库来执行此操作,但是在尝试访问zip文件夹中的excel文件时出现“找不到路径的一部分” 错误。这是我尝试过的:
Sub ChangeZipEntries(ByVal zip_file As String)
If File.Exists(zip_file) Then
Using open_zip = New FileStream(zip_file, FileMode.Open)
Using archive = New ZipArchive(open_zip, ZipArchiveMode.Update)
For Each ent In archive.Entries
Dim wk As Workbook = New Workbook
wk.LoadFromFile(zip_file + "\" + ent.Name) 'error here
wk.SaveToFile(ent.Name, ExcelVersion.Version2013)
Next
End Using
End Using
End If
End Sub
即使没有使用FreeSpire.XLS库,如果有人对如何实现此功能有任何想法,那将是很好的。预先感谢!