Foxtable(狐表)用户栏目专家坐堂 → 多个EXECL合并如何实现


  共有864人关注过本帖树形打印复制链接

主题:多个EXECL合并如何实现

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/2 9:51:00 [显示全部帖子]

表10在哪?最终效果是怎么样的

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/2 10:19:00 [显示全部帖子]

逐行读出其它sheet,然后填入需要的sheet

大概这样
Dim Book As New XLS.Book("c:\test\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) '表10所在的sheet
Dim st As XLS.Sheet
Dim k As Integer = Sheet.Rows.Count
For i As Integer = 1 To Book.Sheets.Count - 1
    st = Book.Sheets(i)
    k += 1
    For n As Integer = 1 To st.Rows.Count - 1
        For m As Integer = 0 To st.Cols.Count - 1
            Sheet(k, m).Value = st(n, m).Value
        Next
    Next
Next 

[此贴子已经被作者于2024/11/2 10:19:47编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/2 14:44:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/2 16:21:00 [显示全部帖子]

回7楼,应该是标题有多行,数据不是从第2行开始

回8楼,不存在第11个sheet

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/2 16:48:00 [显示全部帖子]

execl文件发上来看看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/2 17:38:00 [显示全部帖子]

首先文件里只有6个sheet,索引从0开始。

其次数据都是从第2列,第3行开始的,自己改改代码里取行和列的索引

最后自己写的代码有保存了吗?!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/3 19:45:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/4 8:47:00 [显示全部帖子]

用了什么代码?结合4楼,16楼改

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/4 10:06:00 [显示全部帖子]

16楼有什么地方看不懂?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/4 10:46:00 [显示全部帖子]

是4楼代码,看16楼的红字说明,学会取索引更改4楼的索引

 回到顶部
总数 11 1 2 下一页