日時をファイル名にしたファイルを作成するマクロの実験 LibreOffice Calc Basic

日時をファイル名にしたファイルを作成するマクロの実験　LibreOffice Calc Basic

• 作成場所はマイマクロ
• 作成したファイルの保護解除をしないとマクロが実行できない

Sub CreateNewDoc_NOW()
    '日時(now)をファイル名にしたドキュメントを作成
    '例　2013-11-11 10:57:12.ods
    Dim oNewDoc As Object
    Dim URL As String
    Dim Dummy()
    Dim d,fileName As String
   
    'ドキュメントの新規作成（無題＊.ods)   
        oNewDoc =  StarDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, Array())
    '今の日時 Now
        d=Now()
                                'data1=Split(d , " ") 日付を取り出す
                                'd= Join ( Split ( data1(0), "/" ) , "-" )
    '　/ を - に置換
        d=Replace(d,"/","-")
    'ファイル名
        fileName=d & ".ods"
        'msgbox filename
    'URL 作成
        URL="file:///home/telstar/ドキュメント/Libreoffice/Calc/" & filename
    '保存
        ThisComponent.storeAsURL(URL,Dummy())
End Sub
'-----------------------------------------------------------------------------------------------------------------------
Sub CreateNewDoc_DATE()
    '日付をファイル名にしたドキュメントを作成
    '例　2013-11-11.ods
    Dim oNewDoc As Object
    Dim URL As String
    Dim Dummy()
    Dim d,fileName As String
   
    on error goto errorH
   
    'ドキュメントの新規作成（無題＊.ods)   
        oNewDoc =  StarDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, Array())
    '今の日付　Date()
        d=date()
    '　/ を - に置換
        d=Replace(d,"/","-")
    'ファイル名
        fileName=d & ".ods"
        'msgbox filename
    'URL 作成
        URL="file:///home/telstar/ドキュメント/Libreoffice/Calc/" & filename
    '保存
        ThisComponent.storeAsURL(URL,Dummy())
        Exit Sub
    errorH:
        msgbox "エラー　すでにファイルが存在します？"
End Sub

 

 

タグ：日時ファイルの作成