So-net無料ブログ作成
検索選択

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

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

 

 

Calc_094.png


nice!(0)  コメント(0)  トラックバック(0) 
共通テーマ:パソコン・インターネット

nice! 0

コメント 0

コメントを書く

お名前:[必須]
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0

この記事のトラックバックURL:
※言及リンクのないトラックバックは受信されません。