如何用libxl修改现有表格数据

haijie1223

如题，如何用libxl修改一个现有的execl表格中的数据？能不能给个demo。

821888290

test.7z (1.45 MB, 下载次数: 61)

2020-12-22 14:21 上传

点击文件名下载附件
这个可以了

MYSTERDEVIL

直接写内容进去就可以了

hourglass01

  

子程序名	返回值类型	公开	备 注
test_2

变量名	类 型	静态	数组	备 注
XL	LibXL
font	整数型
format	整数型
file	文本型
r1	整数型
r2	整数型
c1	整数型
c2	整数型
newFormat	整数型
newFont	整数型
R	整数型
G	整数型
B	整数型
bool1	逻辑型
bool2	逻辑型

file ＝ 取运行目录 () ＋ “\test.xlsx”
删除文件 (file)
判断 (XL.创建XLSX () ＞ 0)

信息框 (“创建XLSX失败，” ＋ XL.取错误消息 (), 0, , )
返回 ()

XL.zc (“GCCG”, “windows-282123090cc0e6036db16b60a1o3p0h9”)
XL.添加表格 (“表名1”)
font ＝ XL.添加字体 ()
XL.字体置字体_ (“宋体”, 20, #Color_Red, 真, 真, #Underline_Double, 真, )
format ＝ XL.添加格式 ()
XL.格式置字体 (font)
XL.格式置边框_ ( #Borderstyle_Thin, #Color_Blue, , , , , , , , , , , )
XL.表格置单元格文本和格式 (1, 1, “LibXL”, format)
font ＝ XL.添加字体 ()
XL.字体置字体_ (“黑体”, 16, #Color_Blue, , , , , )
format ＝ XL.添加格式 ()
XL.格式置字体 (font)
XL.格式置边框_ ( #Borderstyle_Double, #Color_Gold, , , , , , , , , , , )
XL.表格置单元格文本和格式 (3, 3, “LibXL2”, format)
XL.表格置列宽格式隐藏 (1, 1, 22, , )
XL.表格取使用区域_ (r1, c1, r2, c2)
调试输出 (r1, c1, r2, c2)
调试输出 (XL.表格取单元格文本和格式 (1, 1, newFormat))
XL.置格式句柄 (newFormat)
newFont ＝ XL.格式取字体句柄 ()
XL.置字体句柄 (newFont)
调试输出 (XL.字体取字体 ())
调试输出 (XL.字体取字号 ())
调试输出 (XL.字体取字体颜色 ())
XL.置RGB模式 (真)
XL.分解RGB (XL.字体取字体颜色 (), R, G, B)
调试输出 (R, G, B)
调试输出 (XL.格式取上边框 ())
连续赋值 (0, r1, c1, r2, c2)
XL.表格取单元格位置1 (“A$1”, r1, c1, bool1, bool2)
调试输出 (r1, c1, bool1, bool2)
调试输出 (XL.表格取单元格位置2 (3, 4, 真, 假))
XL.保存EXCEL (file)
XL.释放 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 test_2<br /> .局部变量 XL, LibXL<br /> .局部变量 font, 整数型<br /> .局部变量 format, 整数型<br /> .局部变量 file, 文本型<br /> .局部变量 r1, 整数型<br /> .局部变量 r2, 整数型<br /> .局部变量 c1, 整数型<br /> .局部变量 c2, 整数型<br /> .局部变量 newFormat, 整数型<br /> .局部变量 newFont, 整数型<br /> .局部变量 R, 整数型<br /> .局部变量 G, 整数型<br /> .局部变量 B, 整数型<br /> .局部变量 bool1, 逻辑型<br /> .局部变量 bool2, 逻辑型<br /> <br /> file ＝ 取运行目录 () ＋ “\test.xlsx”<br /> 删除文件 (file)<br /> <br /> .判断开始 (XL.创建XLSX () ＞ 0)<br /> <br /> .默认<br />     信息框 (“创建XLSX失败，” ＋ XL.取错误消息 (), 0, , )<br />     返回 ()<br /> .判断结束<br /> <br /> XL.zc (“GCCG”, “windows-282123090cc0e6036db16b60a1o3p0h9”)<br /> XL.添加表格 (“表名1”)<br /> <br /> font ＝ XL.添加字体 ()<br /> XL.字体置字体_ (“宋体”, 20, #Color_Red, 真, 真, #Underline_Double, 真, )<br /> format ＝ XL.添加格式 ()<br /> XL.格式置字体 (font)<br /> XL.格式置边框_ (#Borderstyle_Thin, #Color_Blue, , , , , , , , , , , )<br /> XL.表格置单元格文本和格式 (1, 1, “LibXL”, format)<br /> <br /> font ＝ XL.添加字体 ()<br /> XL.字体置字体_ (“黑体”, 16, #Color_Blue, , , , , )<br /> format ＝ XL.添加格式 ()<br /> XL.格式置字体 (font)<br /> XL.格式置边框_ (#Borderstyle_Double, #Color_Gold, , , , , , , , , , , )<br /> XL.表格置单元格文本和格式 (3, 3, “LibXL2”, format)<br /> <br /> XL.表格置列宽格式隐藏 (1, 1, 22, , )<br /> XL.表格取使用区域_ (r1, c1, r2, c2)<br /> 调试输出 (r1, c1, r2, c2)<br /> <br /> 调试输出 (XL.表格取单元格文本和格式 (1, 1, newFormat))<br /> XL.置格式句柄 (newFormat)<br /> newFont ＝ XL.格式取字体句柄 ()<br /> XL.置字体句柄 (newFont)<br /> 调试输出 (XL.字体取字体 ())<br /> 调试输出 (XL.字体取字号 ())<br /> 调试输出 (XL.字体取字体颜色 ())<br /> XL.置RGB模式 (真)<br /> XL.分解RGB (XL.字体取字体颜色 (), R, G, B)<br /> 调试输出 (R, G, B)<br /> 调试输出 (XL.格式取上边框 ())<br /> 连续赋值 (0, r1, c1, r2, c2)<br /> XL.表格取单元格位置1 (“A$1”, r1, c1, bool1, bool2)<br /> 调试输出 (r1, c1, bool1, bool2)<br /> 调试输出 (XL.表格取单元格位置2 (3, 4, 真, 假))<br /> <br /> XL.保存EXCEL (file)<br /> XL.释放 ()

haijie1223

hourglass01 发表于 2020-12-22 11:18
[e=1].版本 2
.支持库 spec

你好！这个是新创建的excel并添加的表格。如果是已经存在的excel文件呢，怎么修改已经存在的内容？

haijie1223

MYSTERDEVIL 发表于 2020-12-22 10:44
直接写内容进去就可以了

能不能给个demo，谢谢！

821888290

haijie1223 发表于 2020-12-22 13:41
能不能给个demo，谢谢！

我刚好也在搞这个,这个可能对你有帮助!

haijie1223

821888290 发表于 2020-12-22 13:53
我刚好也在搞这个,这个可能对你有帮助!

感谢！代码在我电脑上运行，崩溃了。

821888290

.版本 2

file ＝ 取运行目录 () ＋ “\生产流程单二维码55.xls”
XL.创建XLSX ()
XL.zc (“GCCG”, “windows-282123090cc0e6036db16b60a1o3p0h9”)
XL.打开EXCEL (file)
XL.置表格句柄 (XL.取表格句柄 (0))

' font ＝ XL.添加字体 ()
' XL.字体置字体_ (“宋体”, 20, #Color_Red, 真, 真, #Underline_Double, 真, )
' format ＝ XL.添加格式 ()
' XL.格式置字体 (font)
' XL.格式置边框_ (#Borderstyle_Thin, #Color_Blue, , , , , , , , , , , )
' XL.表格置单元格文本和格式 (1, 1, “LibXL999”, format)

font ＝ XL.添加字体 ()
XL.字体置字体_ (“黑体”, 12, #Color_Blue, , , , , )
format ＝ XL.添加格式 (0)
XL.格式置字体 (font)
XL.表格置单元格文本和格式 (3, 3, “LibXL200001”, format)
XL.表格置单元格文本和格式 (0, 0, “LibXL200005”, format)

haijie1223

821888290 发表于 2020-12-22 14:08
.版本 2

file ＝ 取运行目录 () ＋ “\生产流程单二维码55.xls”

XL.表格置单元格文本和格式 (1, 1, “LibXL999”, format)
这一行里面的字符串，我改长了 LibXL11111111111111111333333 改成这样就崩溃。