高级表格写入Excel如何操作呢？

掉毛兔子

1.高级表格设定好格式，设置个打印预览，效果非常好。
2.接下来我打算设置一个导出EXCEL表格的功能。表格宽度高度都已经设置完成！
直接导出效果也是不错的！
现在就是不知道如何插入高级表格中的内容啊！
还请大神们帮忙解决一下！万分感谢！

掉毛兔子

顶以下！别沉了！

njbcy

.版本 2
.支持库 eGrid
.支持库 eExcel2000
.支持库 shell

.子程序 高级表格导出Excel
.参数 表格, 高级表格
.参数 通用对话框, 通用对话框
.参数 Excel程序, Excel程序
.参数 Excel工作簿, Excel工作簿
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 i, 整数型
.局部变量 单元格对象, 对象
.局部变量 导出文件名, 文本型


通用对话框.初始目录 ＝ 取特定目录 (#系统桌面)
通用对话框.过滤器 ＝ “*XLS(Excel文件)|*.xls”
通用对话框.类型 ＝ 1
.如果 (通用对话框.打开 () ＝ 真)
    导出文件名 ＝ 通用对话框.文件名
.否则
    返回 ()
.如果结束

.如果真 (Excel程序.创建 () ＝ 假)
    信息框 (“Excel程序创建失败！可能没有安装 Excel 程序”, 0, , )
    返回 ()
.如果真结束

Excel工作簿.置程序 (Excel程序)
Excel工作簿.激活工作簿 ()
Excel工作簿.表格序号 ＝ 1
Excel程序.标题 ＝ 导出文件名
Excel程序.显示 ＝ 真
.计次循环首 (表格.行数, x)
    .计次循环首 (表格.列数, y)
        连续赋值 (转换字母 (y) ＋ 到文本 (x), Excel工作簿.首单元格, Excel工作簿.尾单元格)
        Excel工作簿.内容 ＝ 表格.取数据 (x － 1, y － 1)
    .计次循环尾 ()
.计次循环尾 ()
Excel工作簿.保存 (导出文件名)
Excel工作簿.释放 ()
Excel工作簿.关闭 ()
Excel程序.释放 ()
Excel程序.退出 ()

.版本 2

.子程序 转换字母, 文本型
.参数 数值, 整数型
.局部变量 字母, 文本型
.局部变量 首字母, 文本型
.局部变量 次字母, 文本型

.如果 (数值 ≤ 26)
    字母 ＝ 字符 (64 ＋ 数值)
.否则
    首字母 ＝ 多项选择 (数值 ＼ 26, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”)
    次字母 ＝ 字符 (64 ＋ 数值 ％ 26)
    字母 ＝ 首字母 ＋ 次字母
.如果结束
返回 (字母)

掉毛兔子

njbcy 发表于 2023-5-30 15:41
.版本 2
.支持库 eGrid
.支持库 eExcel2000

已经解决了！