Foxtable(狐表)用户栏目专家坐堂 → 请教这复合表头,怎么用vba导出到excel表里


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

主题:请教这复合表头,怎么用vba导出到excel表里

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


加好友 发短信
等级:七尾狐 帖子:1765 积分:16651 威望:0 精华:0 注册:2017/6/1 23:12:00
请教这复合表头,怎么用vba导出到excel表里  发帖心情 Post By:2018/5/30 9:45:00 [显示全部帖子]


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

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


加好友 发短信
等级:七尾狐 帖子:1765 积分:16651 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/5/30 10:42:00 [显示全部帖子]

saveexcel不行,字段太多,右面怎么赋值不会,

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


加好友 发短信
等级:七尾狐 帖子:1765 积分:16651 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/5/30 11:22:00 [显示全部帖子]

老师我没找到啊, 我是table控件数据导到excel不是表导入excel

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


加好友 发短信
等级:七尾狐 帖子:1765 积分:16651 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/5/30 11:57:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar
看不太懂,请老师帮忙改一下,谢谢,一模一样的导出就可以
[此贴子已经被作者于2018/5/30 12:08:07编辑过]

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


加好友 发短信
等级:七尾狐 帖子:1765 积分:16651 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/5/30 17:53:00 [显示全部帖子]

感谢老师的回复,非常成功!想把excel表,产品名称整个一个合并列,交替加上背景色,应该怎么加?

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


加好友 发短信
等级:七尾狐 帖子:1765 积分:16651 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/5/30 18:48:00 [显示全部帖子]

我看了,可不可以按区域一次填充颜色呢?表头和数据部分都加背景色

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


加好友 发短信
等级:七尾狐 帖子:1765 积分:16651 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/5/30 19:10:00 [显示全部帖子]

Ws.range(ws.cells(0, 2).address & ":" & ws.cells(33, 9).address).Interior.Color = RGB(192, 255, 192)   老师我这样写对吗?现报错

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


加好友 发短信
等级:七尾狐 帖子:1765 积分:16651 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/5/30 21:42:00 [显示全部帖子]

Ws.range(ws.cells(0, 2).address & ":" & ws.cells(33, 9).address).Interior.Color = RGB(192, 255, 192) 

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看
我一点一点学,先学会加颜色,再研究动态,但这句报错
[此贴子已经被作者于2018/5/30 21:43:51编辑过]

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


加好友 发短信
等级:七尾狐 帖子:1765 积分:16651 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/6/1 18:17:00 [显示全部帖子]

For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
    For c As Integer = 0 To dt.Cols.Count -1
        If    val(dt.rows(r)(c))=0
            ws.cells(r+3, c+1).Value = ""
        Else
            ws.cells(r+3, c+1).Value = dt.rows(r)(c)
        End If
    Next
Next
有的备注倒出去了,有的没有倒出去,想不明白是啥问题了

 回到顶部