"""
创建演示用的 Excel 文件，包含测试用的 VBA 代码
"""

import xlwings as xw

# VBA 测试代码
VBA_TEST_CODE = """Option Explicit

Sub TestErrorProcedure()
    Dim x As Integer
    Dim y As Integer
    Dim result As Double

    x = 10
    y = 0
    result = x / y  ' 这里会触发除以零错误

    Debug.Print "Result: " & result
End Sub

Sub TestTypeMismatch()
    Dim x As String
    Dim y As Integer

    x = "Hello"
    y = x  ' 这里会触发类型不匹配错误

    Debug.Print "Y: " & y
End Sub

Sub TestSubscriptError()
    Dim arr(1 To 3) As Integer
    Dim value As Integer

    arr(1) = 10
    arr(2) = 20
    arr(3) = 30
    value = arr(5)  ' 这里会触发下标越界错误

    Debug.Print "Value: " & value
End Sub

Sub TestSuccessfulProcedure()
    Dim x As Integer
    Dim y As Integer
    Dim sum As Integer

    x = 10
    y = 20
    sum = x + y

    Debug.Print "Sum: " & sum
End Sub
"""

def create_demo_file():
    """创建演示用的 Excel 文件"""
    app = xw.App(visible=True)
    wb = app.books.add()

    # 添加 VBA 模块
    vba_project = wb.api.VBProject
    module = vba_project.VBComponents.Add(1)  # 1 = vbext_ct_StdModule
    module.Name = "Module1"
    module.CodeModule.AddFromString(VBA_TEST_CODE)

    # 保存文件
    file_path = r"D:\python\xlwings\demo.xlsm"
    wb.save(file_path)
    wb.close()

    print(f"演示文件已创建: {file_path}")
    print("\n包含的测试过程:")
    print("  - TestErrorProcedure: 除以零错误")
    print("  - TestTypeMismatch: 类型不匹配错误")
    print("  - TestSubscriptError: 下标越界错误")
    print("  - TestSuccessfulProcedure: 成功执行的测试")

    app.quit()

if __name__ == "__main__":
    create_demo_file()