開いているファイル名一覧を表示する実験 LibreOfficeCalcBasic

開いているファイル名一覧を表示する実験　LibreOfficeCalcBasic

参考サイト　ttp://www.h3.dion.ne.jp/~sakatsu/OOo_vs_VBA.htm

無題2はIDE(BasicEditor),

実際に開いているのは、無題1とSo-netBlog統合管理.dos

 

 

Sub openComponetsTitle
'開いている(起動している)コンポーネントの名前一覧をMsgboxに表示
'
Dim oComponet As Object
Dim msgTxt As String
'
For Each oComponent In StarDesktop.Components
   If HasUnoInterfaces(oComponent, "com.sun.star.frame.XModel") then
               msgTxt=msgTxt & oComponent.Title & chr(10)+chr(13)
    
   End If
Next
MsgBox msgTxt,,"開いているファイル名一覧"
End Sub

 

タグ：開いているComponents一覧

コメント 1

Tarif Viagra Pharmacie <a href=https://buycialisuss.com/#>Cialis</a> No Rx Fluoxetine <a href=https://buycialisuss.com/#>Buy Cialis</a> Viagra Berichte
by Janinsessy (2020-04-22 15:14)