2011年4月10日日曜日

既存ドキュメント(ブック)を開く

Sub ExampleOpenDoc()
Dim objDoc As Object
  objDoc = StarDesktop.loadComponentFromURL _
                        ("file:///D:/SampleFolder/sample.ods", "_blank", 0, Array())
End Sub
  
既に存在する ODS ドキュメントを開く場合も StartDesktop オブジェクトの
loadComponentFromURL メソッドを使用する。この場合、第一引数には、
対象のドキュメントファイルを URL 形式で指定する。上記例は、D ドライブ
のSampleFolder フォルダにある sample.ods ドキュメントを開くコードである。
  
ファイルパスを指定する方法もある。下記プロシージャは、ファイルの絶対
パスを ConvertToUrl 関数を使用して URL 形式に変換している。
  
Sub ExampleOpenDoc2()
  Dim objDoc As Object
       Dim strUrl As String
strUrl = ConvertToUrl("D:\SampleFolder\sample.ods")
objDoc = StarDesktop.loadComponentFromURL(strUrl, "_blank", 0, Array())
End Sub
  
ここで、ConvertToUrl 関数の書式は下記の通り :
  
ConvertToUrl(Pathname)
  
Pathname には、ファイル名を表す文字列式を指定する。フォルダ名、及び、
ドライブ名を含めて指定することも可。

0 件のコメント:

コメントを投稿