Как автоматизировать преобразование Excel xls файлы к Excel xml формат?
У меня была похожая ошибка в том же месте. Не уверен, поможет ли это вам, но я забыл установить в своем представлении контента действие Facebook в папке resources / layout.
, т.е.
В методе onCreate ...
setContentView(R.layout.activity_facebook);
Надеюсь, это поможет.
5 ответов
Вот стандартная программа, которая преобразует все файлы в единственном каталоге, которые имеют .xls расширение.
Это проявляет прямой подход. Любой код VBA в рабочей книге разделяется, рабочая книга не сохраняется с .xlsm расширением. Любая несовместимость, предупреждающая, не является dislayed, вместо этого изменения автоматически приняты.
Sub Convert_xls_Files()
Dim strFile As String
Dim strPath As String
With Application
.EnableEvents = False
.DisplayAlerts = False
.ScreenUpdating = False
End With
'Turn off events, alerts & screen updating
strPath = "C:\temp\excel\"
strFile = Dir(strPath & "*.xls")
'Change the path as required
Do While strFile <> ""
Workbooks.Open (strPath & strFile)
strFile = Mid(strFile, 1, Len(strFile) - 4) & ".xlsx"
ActiveWorkbook.SaveAs Filename:=strPath & strFile, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close True
strFile = Dir
Loop
'Opens the Workbook, set the file name, save in new format and close workbook
With Application
.EnableEvents = True
.DisplayAlerts = True
.ScreenUpdating = True
End With
'Turn on events, alerts & screen updating
End Sub
Вы могли адаптировать код, который я отправил здесь:
http://www.atalasoft.com/cs/blogs/loufranco/archive/2008/04/01/loading-office-documents-in-net.aspx
Это показывает, как сохранить как PDF (Word показывают в блоге, но если Вы загружаете решение, это имеет код для Excel и PPT).
Необходимо найти функцию для сохранения как новый формат вместо того, чтобы экспортировать (вероятно, самый легкий путь состоит в том, чтобы записать макрос себя делающий его в Excel и затем смотрящий на код).
Откройте их всех и затем нажмите ALT+F11, чтобы добраться до макро-редактора и ввести что-то как:
Sub SaveAllAsXml()
Dim wbk As Workbook
For Each wbk In Application.Workbooks
wbk.SaveAs FileFormat:=XlFileFormat.xlXMLSpreadsheet
Next
End Sub
И затем нажмите F5 для выполнения его. Возможно, нуждается в некоторой тонкой настройке, поскольку я не протестировал ее.
Самый простой путь состоит в том, чтобы записать макрос для одного файла и затем вручную отредактировать макросы, чтобы сделать такие действия для файлов в папке с помощью цикла. В макросе можно использовать стандартные функции VB, чтобы получить все файлы в каталоге и отфильтровать их. Можно посмотреть http://www.xtremevbtalk.com/archive/index.php/t-247211.html для получения дополнительной информации.
Походит на задание для моего favorite-most-underrated языка всего времени: VBScript!!
Поместите это в текстовый файл и сделайте расширение ".vbs":
set xlapp = CreateObject("Excel.Application")
set fso = CreateObject("scripting.filesystemobject")
set myfolder = fso.GetFolder("YOURFOLDERPATHHERE")
set myfiles = myfolder.Files
for each f in myfiles
set mybook = xlapp.Workbooks.Open(f.Path)
mybook.SaveAs f.Name & ".xml", 47
mybook.Close
next
Я не протестировал это, но это должно работать