Excel读写库 LibXL3.94 最新修改版！！

nevergiveup520

郑炜孙 发表于 2021-6-13 13:52
反馈:
点击按钮1程序会闪退, 无论是调试还是编译.
按钮2里面是模块自带的test代码,完美运行.

我也碰到这样的问题  ，换回老版本 可以正常使用   。  新版本的自己重新加固编译下就可以解决吗？

梦之情

大佬有没有例程，我想打开指定的文件，和保存文件

a71705

MYSTERDEVIL 发表于 2021-6-13 19:21
你自己判断下

好的谢谢，我还以为有什么内置命令我不知道

MYSTERDEVIL

a71705 发表于 2021-6-13 18:29
请教一下，比如想取F列的使用行数应该咋处理。我看了下内置的结束使用行是返回整体使用行数 ...

你自己判断下

a71705

请教一下，比如想取F列的使用行数应该咋处理。我看了下内置的结束使用行是返回整体使用行数

MYSTERDEVIL

郑炜孙 发表于 2021-6-13 13:52
反馈:
点击按钮1程序会闪退, 无论是调试还是编译.
按钮2里面是模块自带的test代码,完美运行.

我晕，必须要先创建，你了解下libxl官方

郑炜孙

反馈:
点击按钮1程序会闪退, 无论是调试还是编译.
按钮2里面是模块自带的test代码,完美运行.

就是说点击按钮1程序就闪退, 点击按钮2就正常输出excel文件.
系统是Win10, 易语言5.9, 生成的模块没有使用加固.

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
book	EXCEL工作簿类
sheet	EXCEL工作表类

子程序名	返回值类型	公开	备 注
_按钮1_被单击

信息框 (book.版本号 (), 0, , )
' book.打开文件()也会闪退

子程序名	返回值类型	公开	备 注
_按钮2_被单击

book.创建XLSX ()
book.置默认字体 (“宋体”, 10)
计次循环首 (5, i)
book.添加工作表 (“sheet” ＋ 到文本 (i))
计次循环尾 ()
sheet ＝ book.选择工作表_ (“sheet1”)
sheet.置标签颜色 ( #Color_Orange )
font ＝ book.添加字体 ()
Format ＝ book.添加格式 ()
Format.字体 (font)
font.字体颜色 ( #Color_Brown )
font.斜体 (真)
font.字体尺寸 (15)
font.加粗 (真)
font.下划线样式 ( #Underline_双下划线 )
Format.边框样式 ( #Borderstyle_点画线粗 )
Format.边框颜色 ( #Color_Olivegreen )
Format.自动换行 (真)
sheet.置单元格文本 (0, 0, 取重复文本 (10, “欢迎使用EXCEL操作库” ＋ #换行符 ), Format)
sheet.复制粘贴 (0, 0, 5, 2)
sheet.置自动调整列宽区域 (0, 50, 0, 20)
book.保存文件 (“test.xlsx”)
book.释放 ()
' 运行文件 (取运行目录 () ＋ “\test.xlsx”)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 book, EXCEL工作簿类<br /> .程序集变量 sheet, EXCEL工作表类<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 信息框 (book.版本号 (), 0, , )<br /> 'book.打开文件()也会闪退<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> book.创建XLSX ()<br /> book.置默认字体 (“宋体”, 10)<br /> .计次循环首 (5, i)<br /> book.添加工作表 (“sheet” ＋ 到文本 (i))<br /> .计次循环尾 ()<br /> sheet ＝ book.选择工作表_ (“sheet1”)<br /> sheet.置标签颜色 (#Color_Orange)<br /> font ＝ book.添加字体 ()<br /> Format ＝ book.添加格式 ()<br /> Format.字体 (font)<br /> font.字体颜色 (#Color_Brown)<br /> font.斜体 (真)<br /> font.字体尺寸 (15)<br /> font.加粗 (真)<br /> font.下划线样式 (#Underline_双下划线)<br /> Format.边框样式 (#Borderstyle_点画线粗)<br /> Format.边框颜色 (#Color_Olivegreen)<br /> Format.自动换行 (真)<br /> sheet.置单元格文本 (0, 0, 取重复文本 (10, “欢迎使用EXCEL操作库” ＋ #换行符), Format)<br /> <br /> sheet.复制粘贴 (0, 0, 5, 2)<br /> sheet.置自动调整列宽区域 (0, 50, 0, 20)<br /> book.保存文件 (“test.xlsx”)<br /> book.释放 ()<br /> ' 运行文件 (取运行目录 () ＋ “\test.xlsx”)

郑炜孙

反馈:
点击按钮1程序会闪退, 无论是调试还是编译.
按钮2里面是模块自带的test代码,完美运行.

就是说点击按钮1程序就闪退, 点击按钮2就正常输出excel文件.
系统是Win10, 易语言5.9, 生成的模块没有使用加固.

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
book	EXCEL工作簿类
sheet	EXCEL工作表类

子程序名	返回值类型	公开	备 注
_按钮1_被单击

信息框 (book.版本号 (), 0, , )
' book.打开文件()也会闪退

子程序名	返回值类型	公开	备 注
_按钮2_被单击

book.创建XLSX ()
book.置默认字体 (“宋体”, 10)
计次循环首 (5, i)
book.添加工作表 (“sheet” ＋ 到文本 (i))
计次循环尾 ()
sheet ＝ book.选择工作表_ (“sheet1”)
sheet.置标签颜色 ( #Color_Orange )
font ＝ book.添加字体 ()
Format ＝ book.添加格式 ()
Format.字体 (font)
font.字体颜色 ( #Color_Brown )
font.斜体 (真)
font.字体尺寸 (15)
font.加粗 (真)
font.下划线样式 ( #Underline_双下划线 )
Format.边框样式 ( #Borderstyle_点画线粗 )
Format.边框颜色 ( #Color_Olivegreen )
Format.自动换行 (真)
sheet.置单元格文本 (0, 0, 取重复文本 (10, “欢迎使用EXCEL操作库” ＋ #换行符 ), Format)
sheet.复制粘贴 (0, 0, 5, 2)
sheet.置自动调整列宽区域 (0, 50, 0, 20)
book.保存文件 (“test.xlsx”)
book.释放 ()
' 运行文件 (取运行目录 () ＋ “\test.xlsx”)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 book, EXCEL工作簿类<br /> .程序集变量 sheet, EXCEL工作表类<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 信息框 (book.版本号 (), 0, , )<br /> 'book.打开文件()也会闪退<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> book.创建XLSX ()<br /> book.置默认字体 (“宋体”, 10)<br /> .计次循环首 (5, i)<br /> book.添加工作表 (“sheet” ＋ 到文本 (i))<br /> .计次循环尾 ()<br /> sheet ＝ book.选择工作表_ (“sheet1”)<br /> sheet.置标签颜色 (#Color_Orange)<br /> font ＝ book.添加字体 ()<br /> Format ＝ book.添加格式 ()<br /> Format.字体 (font)<br /> font.字体颜色 (#Color_Brown)<br /> font.斜体 (真)<br /> font.字体尺寸 (15)<br /> font.加粗 (真)<br /> font.下划线样式 (#Underline_双下划线)<br /> Format.边框样式 (#Borderstyle_点画线粗)<br /> Format.边框颜色 (#Color_Olivegreen)<br /> Format.自动换行 (真)<br /> sheet.置单元格文本 (0, 0, 取重复文本 (10, “欢迎使用EXCEL操作库” ＋ #换行符), Format)<br /> <br /> sheet.复制粘贴 (0, 0, 5, 2)<br /> sheet.置自动调整列宽区域 (0, 50, 0, 20)<br /> book.保存文件 (“test.xlsx”)<br /> book.释放 ()<br /> ' 运行文件 (取运行目录 () ＋ “\test.xlsx”)

xuweicheng

66666666666666666666666666666666666

lm88818

感谢大佬分享