以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  SaveExcel影响了其他表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140226)

--  作者:huangxueyao
--  发布时间:2019/9/1 10:09:00
--  SaveExcel影响了其他表
Dim k1 As String = "D:\\赠品活动模板\\赠品清单.xls" \'表的保存路径
Dim k2 As String = "一仓库存" \'表名
Dim k3 As String = "三仓库存" \'表名

Dim tb1 As Table = e.Form.controls("table1").Table
Dim db1 As DataTable = tb1.DataTable


Sel ect Case e.form.controls("ComboBox1").value
    Case "一仓"
        tb1.SaveExcel(k1, k2)
    Case "三仓"
        tb1.SaveExcel(k1, k3)
End Sel ect

以上为代码,可以顺利执行,但是会把其他sheet的数据也修改了,什么情况?

--  作者:huangxueyao
--  发布时间:2019/9/1 15:10:00
--  
很奇怪,测试了下,只有当我用了textjoin函数的时候才会出现我说的情况
--  作者:huangxueyao
--  发布时间:2019/9/1 15:13:00
--  
是不是因为textjoin不兼容旧版本的excel?
--  作者:有点蓝
--  发布时间:2019/9/1 21:19:00
--  
这个得问微软了。改为xlsx文件试试