Foxtable(狐表)用户栏目专家坐堂 → EXCEL的问题


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

主题:EXCEL的问题

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


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/11 21:21:00 [只看该作者]

如果要优化,请上传实例测试

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


加好友 发短信
等级:一尾狐 帖子:437 积分:2943 威望:0 精华:0 注册:2011/3/15 12:49:00
  发帖心情 Post By:2021/4/12 7:39:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:pdf读取项目.rar


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


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/12 8:47:00 [只看该作者]

使用哪个execl文件测试,最终数据导入哪个表?

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


加好友 发短信
等级:一尾狐 帖子:437 积分:2943 威望:0 精华:0 注册:2011/3/15 12:49:00
  发帖心情 Post By:2021/4/12 8:51:00 [只看该作者]

按钮5和在文件夹里的excel都可以,最终是汇总在表A

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


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/12 9:04:00 [只看该作者]

没看懂数据之间的关系,只找到3个列的对应,其它列的数据是怎么对应的?以文件【伊芙丽9C3150301.xlsx】为例说明一下,并把最终需要的结果发上来看看。

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

按钮5里最终生成的“临时出货明细”我看了一下,也和表A对应不上

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


加好友 发短信
等级:一尾狐 帖子:437 积分:2943 威望:0 精华:0 注册:2011/3/15 12:49:00
  发帖心情 Post By:2021/4/12 9:17:00 [只看该作者]

是的,目前还没有对应到表A

图片点击可在新窗口打开查看此主题相关图片如下:01.jpg
图片点击可在新窗口打开查看
款式名称 = 品类,箱数需要按款号去统计,出货件数也需要按款号去统计,
客户名称和分仓信息
    Dim fx As String
    If Str1 > "" AndAlso Str1.Contains("返修") Then
        fx = "返修单"
    End If
    Dim khmc As String
    khmc = FileSys.GetName(dlg.FileName).SubString(0,3)
已经在按钮5的代码里了
出货日期
For i As Integer = 1 To x
        For j As Integer = 1 To ColMax
            Rg1 = Ws.Cells(i,j)
            If Rg1.text.Contains("出货日期") Then
                x2 = i
                y2 = j
                Dim chr As String
                Dim chr1 As String
                chr = Ws.Cells(i,j).Value.SubString(5).Trim(" ").Replace("/","-")
                Dim Day As Date = chr
                chr1 = Format(Day,"d")
                Dim ifo As new FileInfo(dlg.FileName)
                Dim Time As Date = format(ifo.LastWriteTime,"T")
                chrq = chr1 & " " & Time
                MessageBox.Show(chrq)
            End If
        Next
这个已经在临时表里了

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


加好友 发短信
等级:一尾狐 帖子:437 积分:2943 威望:0 精华:0 注册:2011/3/15 12:49:00
  发帖心情 Post By:2021/4/12 9:19:00 [只看该作者]

还有一个问题,如下图
怎么转换临时表

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


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


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/12 10:34:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:pdf读取项目.zip


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


加好友 发短信
等级:一尾狐 帖子:437 积分:2943 威望:0 精华:0 注册:2011/3/15 12:49:00
  发帖心情 Post By:2021/4/12 10:58:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:伊芙丽9c4100561.xlsx


图片点击可在新窗口打开查看此主题相关图片如下:01.jpg
图片点击可在新窗口打开查看
总数不对,箱数也不对啊


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


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/12 11:00:00 [只看该作者]

什么地方不对?应该怎么计算?

 回到顶部
总数 46 上一页 1 2 3 4 5 下一页