Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动开发时 上传了excel文件 怎么写代码后台自动将excel文件的数据导入到对应的表中呢？


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

主题：移动开发时 上传了excel文件 怎么写代码后台自动将excel文件的数据导入到对应的表中呢？
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

      For Each fl As String In e.Files(key)
                sb.AppendLine(fl & "<br>")
                e.SaveFile(key,fl,"d:\web\uploadfiles\" & fl) '保存接收到的文件
    Dim mg As New Merger
    mg.SourcePath = "d:\web\uploadfiles\" & fl
    mg.Format = "excel" '指定格式
    mg.SourceTableName = "订单" '指定要合并的表
    mg.DataTableName = "订单" '指定接收数据的表
    mg.Merge() '开始合并
            Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/25 17:23:00 [显示全部帖子]

如果使用html自带的文件功能就麻烦了，要自己使用ajax上传：https://www.baidu.com/s?wd=js%20%E4%B8%8A%E4%BC%A0%E8%A1%A8%E5%8D%95%E5%92%8C%E6%96%87%E4%BB%B6

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


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/26 8:49:00 [显示全部帖子]

调试看看

    For Each key As String In e.Files.Keys
        If key = "up1" Then
    For Each fl As String In e.Files(key)
        msgbox(fl)
        e.SaveFile(key,fl,"d:\web\uploadfiles\" & fl) '保存接收到的文件
msgbox(FileSys.FileExists("d:\web\uploadfiles\" & fl))
        Dim mg As New Merger
        mg.SourcePath = "d:\web\uploadfiles\" & fl
        mg.Format = "excel" '指定格式
        mg.SourceTableName = "表彰$" '指定要合并的表                             
        mg.DataTableName = "表彰" '指定接收数据的表
        mg.Merge() '开始合并
datatables("表彰").save
    Next
        End If
next

另外看看execl有没有符合格式：http://www.foxtable.com/webhelp/topics/2280.htm
有没有和表彰表有相同的列名
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Else
    msgbox("1")
    For Each key As String In e.Files.Keys
                msgbox( key) 能不能弹出
        If key = "up1" Then
            For Each fl As String In e.Files(key)
                msgbox(fl) 能不能弹出
                e.SaveFile(key,fl,"d:\web\uploadfiles\" & fl) '保存接收到的文件
                msgbox(FileSys.FileExists("d:\web\uploadfiles\" & fl)) 能不能弹出
                Dim mg As New Merger
                mg.SourcePath = "d:\web\uploadfiles\" & fl
                mg.Format = "excel" '指定格式
                mg.SourceTableName = "表彰$" '指定要合并的表
                mg.DataTableName = "表彰" '指定接收数据的表
                mg.Merge() '开始合并
                DataTables("表彰").save
            Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/26 9:25:00 [显示全部帖子]

没有接收到任何文件，看4楼

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


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

去掉红色的判断能不能接收文件？

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


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/26 10:55:00 [显示全部帖子]

所以说红色代码要不要都没有什么用的，要自己使用ajax上传：https://www.baidu.com/s?wd=js%20%E4%B8%8A%E4%BC%A0%E8%A1%A8%E5%8D%95%E5%92%8C%E6%96%87%E4%BB%B6

如果看不懂，建议还是用回帮助里的Uploader吧
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 5 次数据查询