LibreOffice Calc Basic NASに保存するマクロの実験

LibreOffice Calc Basic  NASに保存するマクロの実験

※NASは無線LANルーターのUSBメモリーを使用した簡易NASの事

Blogのエディタが変わった、、旧htmlは新ではソースコード

　

　

Sub NASdateBackUP()
' ルーターの簡易NAS　に日付を先頭に付加して保存
'例　test.ods     20170421test.ods

'ファイル名取得
    fileName=ThisComponent.title
        'Print fileName
'日付から / を削除　置換　2017/04/21   20170421
    st=Replace(date,"/","")
        'Print st
'NASに保存
    saveURL="smb://aterm@192.168.0.1/Toshiba-1/Calc/" & st & fileName
        'Print saveURL

    ThisComponent.StoreAsURL(saveURL ,Array())

        msgbox  saveURL & chr(10) & " 保存完了"

End Sub