Основываясь на ответе Graham, дополнительный код сохраняет рабочую книгу назад в, он - исходное местоположение в, он - исходный формат.
Public Sub SaveWorksheetsAsCsv()
Dim WS As Excel.Worksheet
Dim SaveToDirectory As String
Dim CurrentWorkbook As String
Dim CurrentFormat As Long
CurrentWorkbook = ThisWorkbook.FullName
CurrentFormat = ThisWorkbook.FileFormat
' Store current details for the workbook
SaveToDirectory = "C:\"
For Each WS In ThisWorkbook.Worksheets
WS.SaveAs SaveToDirectory & WS.Name, xlCSV
Next
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat
Application.DisplayAlerts = True
' Temporarily turn alerts off to prevent the user being prompted
' about overwriting the original file.
End Sub
Вы можете установить его в командной строке следующим образом:
java -Djava.library.path=...
и указать в каталоге , содержащем соответствующую библиотеку.
В Eclipse я сделал это, чтобы заставить OpenCV работать:
Добавьте это в поле VM arguments :
-Djava.library.path = "/ path / to / OpenCV / library"