Мне нужно конвертировать форматы файлов Excel из .xls в .xlsx, но файлы находятся в папке .zip.Я попытался загрузить библиотеку FreeSpire.XLS, чтобы сделать это, но я получаю ошибку «Не удалось найти часть пути» при попытке получить доступ к файлу Excel в папке zip.Вот что я попробовал:
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.Заранее спасибо!