最北端で暮らすSEのknowhow

Dim connection As Object
Dim recordset As Object
Dim command As Object
connection = CreateObject("ADODB.Connection")
recordset = CreateObject("ADODB.Recordset")
command = CreateObject("ADODB.Command")

'SQLServerに接続してみる
connection.Open "Provider=SQLOLEDB;Data Source=DB_SERVER\SQLEXPRESS;Initial Catalog=DB_NAME;User ID=sa;Password=123456;"

command.ActiveConnection = connection
command.CommandTimeout = 0
command.CommandText = "SELECT * FROM TABLE_NAME;"
recordset = command.Execute

If recordset.RecordCount > 0 Then
    If recordset.Eof = false Then
       recordset.MoveFirst
     MsgBox(recordset.Fields.Item("field1").Value)
       'MsgBox(recordset.Fields.Item("field1").Name) ←これは使えない
 End If
End if

Dim fileURL As String
Dim directory As String
fileURL = ConvertFromURL(ThisComponent.getURL())
directory = Left(fileURL, Len(fileURL) - Len(ThisComponent.getTitle()))
MsgBox(directory)

Print ConvertFromURL(ThisComponent.getURL())

Dim styleFamilies As Object
styleFamilies = ThisComponent.StyleFamilies
Dim styles As Object
styles = styleFamilies.getByName("PageStyles")
Dim style As Object
style = styles.getByName("標準")
style.HeaderIsOn = False 'ヘッダーOFF
style.FooterIsOn = False 'フッターOFF
style.CenterHorizontally = True '横方向中央配置
style.Height = 25000 '用紙高さ250mm
style.Width = 17600 '用紙幅176mm
style.scaleToPages = 1 '1ページに収める

主なプロパティ

Dim document As Object
Dim dispatcher As Object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

Dim args(1) As new com.sun.star.beans.PropertyValue
args(0).Name = "Template"
args(0).Value = "標準"
args(1).Name = "Family"
args(1).Value = 8 'シートに適用する場合は8

dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args())

ThisComponent.CurrentController.Select(ThisComponent.Sheets.getByName("SheetName").getCellRangeByName("A1"))
Dim dispatcher as Object
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(ThisComponent.getCurrentController().getFrame(),  ".uno:Copy", "", 0, Array())

コピー先ドキュメントを指定する場合は args(0).Value の箇所にTitleを指定する。TitleはgetArgs()メソッドで取得できる配列から取得する。※ドキュメントのウインドウタイトルとは異なるので注意

Dim newSheetName As String
newSheetName = "コピー先"
ThisComponent.Sheets.copyByName("コピー元シート名", newSheetName, 0)
ThisComponent.CurrentController.Select(ThisComponent.Sheets.getByName(newSheetName))
Dim document as Object
Dim dispatcher as Object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Dim args(2) as new com.sun.star.beans.PropertyValue
args(0).Name = "DocName"
args(0).Value = ""
args(1).Name = "Index"
args(1).Value = 32767
args(2).Name = "Copy"
args(2).Value = false
dispatcher.executeDispatch(document, ".uno:Move", "", 0, args())

Dim title As String
Dim args As Object
args = ThisComponent.getArgs()
For i = 0 To Ubound(args)
    If args(i).Name = "Title" Then
        title = args(i).Value
        Exit For
    End if
Next i
MsgBox(title)

MsgBox("メッセージ", 1, "タイトル") 'メッセージ/Type/タイトルを指定

Type引数

戻り値