Foxtable(狐表)用户栏目专家坐堂 → 自定义函数导入excel时不是更新而是增加行,窗口导入正确


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

主题:自定义函数导入excel时不是更新而是增加行,窗口导入正确

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/8 8:53:00 [显示全部帖子]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=157107

execl文件发上来测试

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/8 10:14:00 [显示全部帖子]

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

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

同样的方法改呀。命令窗口调用什么代码测试?发上来

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/8 14:27:00 [显示全部帖子]

我问的是在命令窗口使用什么代码调用这个函数的?

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

execl文档本身有问题,直接使用office打开就出错了,另存一下测试就没有问题了

另外如果使用数组赋值逻辑列,直接赋值即可不需要判断逻辑列

                For Each m As String In nms.keys

                    If dt.DataCols(m).Expression > "" Then
                        '表达式列
                    Else If dt.DataCols(m).IsNumeric Then
                        ndr (m) = val(ary(l,nms(m)))
                    Else If dt.DataCols(m).IsDate Then
                        Dim d As Date
                        If Date.TryParse(ary(l,nms(m)), d)
                            ndr (m) = d
                        End If
                    Else
                        ndr (m) = ary(l,nms(m))
                    End If
                    
                Next

 回到顶部