e4a 易安卓 操作EXCEL的例子

duke20

e4a 易安卓 操作EXCEL的例子
读取手机里表格xlsx的总共行数，然后随机获取对应行数里a列里的数据等

duke20

我自己已经解决咯，感谢平台。

你的猫

' 事件 按钮1.被单击()
子程序 按钮1_被单击()
    ' 定义变量
    变量 文件路径 为 文本型
    变量 工作簿 为 对象
    变量 工作表 为 对象
    变量 总行数 为 整数型
    变量 随机行号 为 整数型
    变量 随机数据 为 文本型

    ' 设置Excel文件路径（放在手机存储根目录的test文件夹下）
    文件路径 = 取存储卡路径() + "/test/测试数据.xlsx"

    ' 检查文件是否存在
    如果 文件是否存在(文件路径) = 假 则
        弹出提示("Excel文件不存在！")
        返回
    结束 如果

    ' 加载Excel文件
    尝试
        工作簿 = Excel操作.读取工作簿(文件路径)
        工作表 = Excel操作.获取工作表(工作簿, 0) ' 第一个工作表

        ' 获取总行数
        总行数 = Excel操作.获取行数(工作表)
        标签1.标题 = "总行数：" + 到文本(总行数)

        ' 生成随机行号（从第2行开始，避免标题行）
        随机行号 = 取随机数(1, 总行数 - 1) ' 假设第一行是标题

        ' 获取A列随机行的数据
        随机数据 = Excel操作.读取单元格(工作表, 随机行号, 0) ' 0表示A列

        标签2.标题 = "随机行[" + 到文本(随机行号 + 1) + "] A列数据：" + 随机数据

        ' 关闭工作簿
        Excel操作.关闭工作簿(工作簿)
    捕获 异常 为 e
        弹出提示("操作Excel出错：" + 取异常信息(e))
    结束 尝试
结束 子程序

' 事件 按钮2.被单击() - 写入测试数据
子程序 按钮2_被单击()
    ' 创建测试Excel文件
    变量 文件路径 为 文本型
    变量 工作簿 为 对象
    变量 工作表 为 对象

    文件路径 = 取存储卡路径() + "/test/测试数据.xlsx"

    ' 创建目录
    创建目录(取存储卡路径() + "/test")

    尝试
        ' 创建工作簿
        工作簿 = Excel操作.创建工作簿()
        工作表 = Excel操作.创建工作表(工作簿, "数据表")

        ' 写入标题行
        Excel操作.写入单元格(工作表, 0, 0, "姓名")
        Excel操作.写入单元格(工作表, 0, 1, "年龄")
        Excel操作.写入单元格(工作表, 0, 2, "城市")

        ' 写入示例数据
        Excel操作.写入单元格(工作表, 1, 0, "张三")
        Excel操作.写入单元格(工作表, 1, 1, "25")
        Excel操作.写入单元格(工作表, 1, 2, "北京")

        Excel操作.写入单元格(工作表, 2, 0, "李四")
        Excel操作.写入单元格(工作表, 2, 1, "30")
        Excel操作.写入单元格(工作表, 2, 2, "上海")

        Excel操作.写入单元格(工作表, 3, 0, "王五")
        Excel操作.写入单元格(工作表, 3, 1, "28")
        Excel操作.写入单元格(工作表, 3, 2, "广州")

        ' 保存文件
        Excel操作.保存工作簿(工作簿, 文件路径)
        Excel操作.关闭工作簿(工作簿)

        弹出提示("测试Excel文件创建成功！")
    捕获 异常 为 e
        弹出提示("创建Excel出错：" + 取异常信息(e))
    结束 尝试
结束 子程序