当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。
記事そのもののリンクについてはご自由に行っていただいてよいです。

テクてく Lotus 技術者 Slack に参加しよう!

2009年1月16日金曜日

Excelを起動してブックに入力する

書いた気がしていたのだが、書いていなかったので紹介しましょう。
今回は、Excelとの連携です。
と言っても、LotusScriptからExcelを起動して、ブックに書き込むというものです。

サンプルは、Excelを起動して、ブックに文字と式を書き込むというものです。

Sub Click(Source As Button)
    Dim ExcelObject As Variant
    
    'Excelの起動
    Set ExcelObject = CreateObject( "Excel.Application" )
    ExcelObject.Visible = True
    
    'エラーチェック
    If ExcelObject Is Nothing Then
        Msgbox"Excelがインストールされていません。"
        Exit Sub
    End If
    
    'Excelファイルに埋め込む
    With ExcelObject
        .Workbooks.Add
        .Range("A2").Select
        .ActiveCell.FormulaR1C1 = "A"
        .Range("A3").Select
        .ActiveCell.FormulaR1C1 = "B"
        .Range("A4").Select
        .ActiveCell.FormulaR1C1 = "C(A+B)"
        .Range("B2").Select
        .ActiveCell.FormulaR1C1 = "1"
        .Range("B3").Select
        .ActiveCell.FormulaR1C1 = "2"
        .Range("B4").Select
        .ActiveCell.FormulaR1C1 = "=R[-2]C+R[-1]C"
        .Range("B5").Select
    End With
End Sub







Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: