マクロ/Calc/ba001

TDF LibreOffice Document Liberation Project Community Blogs Weblate Nextcloud Redmine Ask LibreOffice Donate

• Wikiホーム
• 開発
• デザイン
• 品質保証
• イベント
• ドキュメント
• ウェブサイト
• ローカライズ
• アクセシビリティ
• マーケティング
• Diversity
• Wikiヘルプ

• マクロ
• マクロ全般
• Writerマクロ
• Calcマクロ
• Impressマクロ
• Drawマクロ
• Baseマクロ
• Mathマクロ
• Basic/Python

説明

セルの内容をスプレッドシートから別のスプレッドシートにコピーします。スプレッドシートは開いている必要があります。

Basic code

Sub main()
DOC_NAME_SOURCE = "source.ods"
SHEET_NAME_SOURCE = "source"
CELL_NAME_SOURCE = "A1"

    doc_source = get_doc(DOC_NAME_SOURCE)
    sheet_source = doc_source.Sheets.getByName(SHEET_NAME_SOURCE)
    cell_source = sheet_source.getCellRangeByName(CELL_NAME_SOURCE)

    doc = ThisComponent
    sheet = doc.CurrentController.ActiveSheet
    cell = sheet.getCellRangeByName(CELL_NAME_SOURCE)
 
    If cell_source.Type = 1 Then
        cell.Value = cell_source.Value
    ElseIf cell_source.Type = 2 Then
        cell.String = cell_source.String
    Else
        cell.Formula = cell_source.Formula
    End If
End Sub

Function get_doc(title)
    docs = StarDesktop.getComponents()
    enumeration = docs.createEnumeration()
    Do While enumeration.hasMoreElements()
        doc = enumeration.nextElement()
        If doc.Title = title Then
            Exit Do
        End If
    Loop
    get_doc = doc
End Function