Foxtable(狐表)用户栏目专家坐堂 → 写入EXCEL


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

主题:写入EXCEL

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


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
写入EXCEL  发帖心情 Post By:2022/7/7 10:11:00 [只看该作者]

如何通过相同的列(身份证号)将表A中的单价、金额一一对应写入EXCEL相应列中呢?

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


加好友 发短信
等级:狐精 帖子:3223 积分:21401 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/7/7 10:14:00 [只看该作者]

不是应该用报表功能吗

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


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2022/7/7 10:17:00 [只看该作者]

银行的表是固定的,样式不能动。

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


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2022/7/7 10:22:00 [只看该作者]

复制粘贴也可能行,但数据多,容易出错。一但出错还不好发现,最好是代码。

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/7 10:35:00 [只看该作者]

遍历execl所有行,获取身份证,然后去表A查询对应的行数据,再填入execl当前行。大概

Dim Book As New XLS.Book("c:\test\订单.xls")
Dim 
Sheet As XLS.Sheet = Book.Sheets(0)

For
 n As Integer = 1 To Sheet.Rows.Count -1
    
Dim 身份证 As String = sheet(n,0).Text
    
Dim dr As DataRow = DataTables("订单").Find("身份证 = '" & 身份证 & "'")
    If 
dr Isnot Nothing Then '如果不存在同编号的订单
      
sheet(n,xx列索引).value = dr("xx列")
    End If

Next
Book.Save("c:\test\订单2.xls")

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


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2022/7/7 14:47:00 [只看该作者]

老师,这样好象是不行吧。因为人家的原excel表里还有好多列内容,这个代码伸似乎是重新写了一个excel表。
能否直接从数据库表中取值写入原来excel表的指定列呢。

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/7 14:50:00 [只看该作者]

好好理解下代码吧。保存的时候保存回原文件名覆盖即可,上面之所以改名为订单2,是让一些代码都不怎么看得懂的用户测试代码的时候有后悔的机会。

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


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2022/7/7 15:58:00 [只看该作者]

不知为什么,在身份证列身份证号前加了一个字母G。有的有,有的没有,数据量较大,请问老师,如何去掉身份证号前的字母G呢?

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/7 16:15:00 [只看该作者]


 回到顶部