OpenOffice.org3のマクロについて教えて下さい。
お世話になります。
現在、OpenOffice.org3にてマクロ(OpenOffice Basic)を使ってWebサイトより株価取得のプログラムを作成しております。
同じ機能を持ったVBAにて実行する処理時間に比べてOpenOfficeでは非常に長い処理時間を要しています。
そこで、下記VBAマクロに相当するマクロの処理状況を表示させる方法をご存知の方がいらっしゃれば、ご教示頂けます様お願いします。
【VBA】
Dim blnSaveStatus As Boolean
Dim strBarNow As String
Dim strBarWk As String
Dim int進捗率 As Integer
Dim intマス数 As Integer
Dim i As Integer
blnSaveStatus = Application.DisplayStatusBar
Application.DisplayStatusBar = True
strBarNow = "現在 0%:□□□□□□□□□□"
Application.StatusBar = strBarNow
For i = 1 To ループ回数
~~ ループ内の処理 ~~
:
:
int進捗率 = Int(i * 100 / ループ回数) ' 進捗率(%)
intマス数 = Int(i * 10 / ループ回数) ' 10個マスだから10%単位
strBarWk = "現在 " & int進捗率 & "%:" & _
String(intマス数,"■") & String(10 - intマス数,"□")
If (strBarWk <> strBarNow) Then
Application.StatusBar = strBarWk ' 変化がある時だけバー更新
strBarNow = strBarwk
End If
Next i
Application.StatusBar = False ' ステータスバーの制御をExcelに戻す
Application.DisplayStatusBar = blnSaveStatus
お礼
早々のご回答、ありがとうございます。 確認致しましたらExcelでも"結合"でした。失礼致しました。 ああ、こんなところにあったんだ、とそのものピッタリのご回答でした。 本当にありがとうございました。