-- Config summary:
-- OpenCV: 4.2.0
-- OpenCL: 2.2
-- CUDA: Not found
-- Unicode: TRUE
-- Installing models to: /usr/local/share/waifu2x-converter-cpp
-- Not building test binaries
-- Building for: Unix Makefiles-x86_64
make のオプション -j は、コンパイル時に同時に実行するジョブの数です。私の環境では CPU のスレッド数が 4 なので 4 を指定しました。コンパイルする環境に合わせて変更してください。
分からなければ、普通に make すればよいと思います（知らないけど）。
# 引数に複数のファイルが渡されている場合
# コンバートの実行を確認
if [ $# -gt 1 ]; then
zenity --question --no-wrap --title="確認" --text="$#個 のファイルを処理します"
if [ $? -ne 0 ]; then
exit 1
fi
fi
Option Explicit
Dim oSM
Dim oDesktop
Dim oIntroSpection
Dim oDispatchHelper
Dim oCalcDocDim oSheet
Dim oCellDim OpenPar(1)
Dim myFileNameSet
oSM = Wscript.CreateObject("com.sun.star.ServiceManager")
Set oDesktop = oSM.createInstance("com.sun.star.frame.Desktop")
myFileName = ConvertToUrl(WScript.Arguments(0))
Set OpenPar(0) = MakePropertyValue("ReadOnly", False)
Set OpenPar(1) = MakePropertyValue("Hidden", False)
'Set OpenPar(1) = MakePropertyValue("Hidden", True)
Set oCalcDoc = oDesktop.loadComponentFromURL(myFileName, "_blanks", 0, OpenPar)
Set oSheet = oCalcDoc.Sheets.getByName("Sheet1")
Set oCell = oSheet.getCellByPosition(1,2)
Wscript.echo oCell.Value
Call oCalcDoc.close(true)
Function ConvertToURL(sFileName)
Dim fso
Dim sTmpFile
Set fso = CreateObject("Scripting.FileSystemObject")
If Left(sFileName, 7) = "file://"
Then
ConvertToURL = sFileName
Exit Function
End If
ConvertToURL = "file:///"
sTmpFile = fso.GetAbsolutePathName(sFileName) 'replace any "\" by "/"
sTmpFile = Replace(sTmpFile,"\","/") ' replace any % by %25
sTmpFile = Replace(sTmpFile,"%","%25") 'replace any " " by "%20"
sTmpFile = Replace(sTmpFile," ","%20")
ConvertToURL = ConvertToURL & sTmpFile
End Function
Function MakePropertyValue(byval cName, byval uValue)
Dim oPropertyValue
Set oPropertyValue = oSM.Bridge_GetStruct("com.sun.star.beans.PropertyValue") oPropertyValue.Name = cName
oPropertyValue.Value = uValue
Set MakePropertyValue = oPropertyValue
End Function
