以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  excel合并问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=44697)

--  作者:heying325
--  发布时间:2014/1/7 10:08:00
--  excel合并问题
版主你好,我是刚刚的那位合并问题的求助者,你建议我用另一种方法合并,我写了代码,可是死活跳出错误,请帮我再看看,麻烦您了!!谢谢!!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:heying325
--  发布时间:2014/1/7 10:12:00
--  
为什么会出现序号呢??
--  作者:heying325
--  发布时间:2014/1/7 10:30:00
--  
图片点击可在新窗口打开查看
--  作者:Bin
--  发布时间:2014/1/7 10:42:00
--  

        Dim Book As New XLS.Book(dlg.FileName)
        Dim Sheet As XLS.Sheet
        For i As Integer = 0 To Book.Sheets.count-1
          Sheet  = Book.Sheets(2)
        messagebox.show(sheet.Name)
        Next
你这表,似乎有问题.我循环了所有的表,都没发现有对应的表名.

你换一个表看看吧



--  作者:heying325
--  发布时间:2014/1/7 11:18:00
--  
谢谢版主!的确是表格的问题。但现在有一个新的问题,那就是foxtable表中有一个逻辑列,合并跳出这样的错误:
String was not recognized as a valid boolean.Couldn\'t store <> in 该列 Column. Expected type is Boolean.
我将excel中的这列内容该为1、0 不行,该成TRUE、False也不行!!空的还不行!!该怎么合并逻辑列呢?

--  作者:Bin
--  发布时间:2014/1/7 11:24:00
--  
加一个判断, 如果循环到这一列了.判断一下内容然后再赋值

例如

if i=18 then \'假如18列是逻辑列
  dr(XX)=IIF(sheet(N,M).value=0,false,true)
end if

--  作者:heying325
--  发布时间:2014/1/7 11:34:00
--  
额,谢谢!!