Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 分步导入excel时这个代码怎么写呢？


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

主题：[求助] 分步导入excel时这个代码怎么写呢？
帅哥哟，离线，有人找我吗？
hrlong
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：80 积分：924 威望：0 精华：0 注册：2018/2/9 21:32:00 		[求助] 分步导入excel时这个代码怎么写呢？  发帖心情 Post By：2018/10/15 14:58:00 [显示全部帖子]

导入excel时，想采用先找到文件，然后导入
但是我把正常的文件目录，改成了TextBox1,想通过这个导入，但是不行，请问该怎么弄呢？


Dim mg As New Merger
mg.SourcePath = "TextBox1"
mg.Format = "excel" '指定格式
mg.SourceTableName = "sheet0$" '指定要合并的表
mg.DataTableName = "oyi店铺引流关键词" '指定接收数据的表
mg.Merge() '开始合并



图片点击可在新窗口打开查看此主题相关图片如下：导入.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
hrlong
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：80 积分：924 威望：0 精华：0 注册：2018/2/9 21:32:00 		  发帖心情 Post By：2018/10/15 15:30:00 [显示全部帖子]

图片点击可在新窗口打开查看谢谢

但是导入时发生错误，显示：类型不匹配

因为excel文档里的数字是已文本形式储存的，请问，怎样才能不修改元文件的格式（把以文本形式存储的数字转化为数字）而直接导入呢
 回到顶部
帅哥哟，离线，有人找我吗？
hrlong
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：80 积分：924 威望：0 精华：0 注册：2018/2/9 21:32:00 		  发帖心情 Post By：2018/10/15 17:15:00 [显示全部帖子]

请问老师  我改用上面代码，怎么修改呢
红色的这个部分该怎么加上去呢

Dim Book As New XLS.Book = e.form.controls("TextBox1").Text
Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim t As Table = Tables("杭康设备总表")
    t.StopRedraw()
    Dim newcount As Integer = 0
    Dim oldcount As Integer = 0
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As DataRow = t.DataTable.Find("序号 = '" & sheet(n, 0).text & "'")
        If r Is Nothing Then
            r = t.DataTable.AddNew()
            newcount += 1
        Else
            oldcount += 1
        End If
        For i As Integer = 0 To sheet.Cols.Count -1
            Dim cname As String = sheet(0, i).text
            If t.Cols.Contains(cname) Then
                If t.Cols(cname).IsBoolean Then
                    If sheet(n, i).Text = 1 OrElse sheet(n, i).Text = "true" Then
                        r(cname) = True
                    Else
                        r(cname) = False
                    End If
                Else
                    r(cname) = sheet(n, i).Text
                End If
            End If
        Next
    Next
    t.ResumeRedraw()


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


加好友 发短信
等级：幼狐 帖子：80 积分：924 威望：0 精华：0 注册：2018/2/9 21:32:00 		  发帖心情 Post By：2018/10/15 18:16:00 [显示全部帖子]

我想实现，只要要导入的excel日期列的该行的日期大于数据库内的最大日期，就把该行导入，请问这个代码该怎么弄

Dim Book As New XLS.Book(e.form.controls("Text1").Text)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim t As Table = Tables("店铺数据")
    t.StopRedraw()
    Dim newcount As Integer = 0
    Dim oldcount As Integer = 0
    For n As Integer = 1 To Sheet.Rows.Count -1
Dim d1 As Date = DataTables("店铺数据").Compute("max(日期)") ‘数据库内的表的日期列
Dim d2 As Date = DataTables("店铺数据").(“日期”) ’导入的excel内的数据列
        If d1<d2 Then
            r = t.DataTable.AddNew()
            newcount += 1
        Else
            oldcount += 1
        End If
        For i As Integer = 0 To sheet.Cols.Count -1
            Dim cname As String = sheet(0, i).text
            If t.Cols.Contains(cname) Then
                If t.Cols(cname).IsBoolean Then
                    If sheet(n, i).Text = 1 OrElse sheet(n, i).Text = "true" Then
                        r(cname) = True
                    Else
                        r(cname) = False
                    End If
                Else
                    r(cname) = sheet(n, i).Text
                End If
            End If
        Next
    Next
    t.ResumeRedraw()


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


加好友 发短信
等级：幼狐 帖子：80 积分：924 威望：0 精华：0 注册：2018/2/9 21:32:00 		  发帖心情 Post By：2018/10/15 22:05:00 [显示全部帖子]

图片点击可在新窗口打开查看，又出问题了，因为excel中每天有几十条数据
用下面的代码时
每天只导入一条数据
但是设想需要的是 把这几十条数据都导入进去，请问怎么改呢

Dim Book As New XLS.Book(e.form.controls("Text1").Text)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim t As Table = Tables("店铺数据")
    t.StopRedraw()
    Dim newcount As Integer = 0
    Dim oldcount As Integer = 0
    For n As Integer = 1 To Sheet.Rows.Count -1
Dim d1 As Date = DataTables("店铺数据").Compute("max(统计日期)") '数据库内的表的日期列 
Dim d2 As Date = cdate(sheet(n, 0).Text)
        If d1 < d2  Then
  Dim r As Row = Tables("店铺数据").AddNew()
        For i As Integer = 0 To sheet.Cols.Count -1
            Dim cname As String = sheet(0, i).text
            If t.Cols.Contains(cname) Then
                If t.Cols(cname).IsBoolean Then
                    If sheet(n, i).Text = 1 OrElse sheet(n, i).Text = "true" Then
                        r(cname) = True
                    Else
                        r(cname) = False
                    End If
                Else
                    r(cname) = sheet(n, i).Text
                End If
            End If
        Next
            End If
    Next
 回到顶部
帅哥哟，离线，有人找我吗？
hrlong
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：80 积分：924 威望：0 精华：0 注册：2018/2/9 21:32:00 		  发帖心情 Post By：2018/10/16 8:42:00 [显示全部帖子]

谢谢老师不厌其烦的为我解答

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


加好友 发短信
等级：幼狐 帖子：80 积分：924 威望：0 精华：0 注册：2018/2/9 21:32:00 		  发帖心情 Post By：2018/10/16 14:50:00 [显示全部帖子]

请问老师，原来的excel有一列的标题是：签收时长（秒）
因为软件标题不能用（）
所以标题是：签收时长；
请问这样的名称不同的列；
下面的代码该哪里改下来导入数据呢
Dim Book As New XLS.Book(e.form.controls("Text1").Text)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim t As Table = Tables("店铺数据")
    t.StopRedraw()
    Dim newcount As Integer = 0
    Dim oldcount As Integer = 0
Dim d1 As Date = DataTables("店铺数据").Compute("max(统计日期)") '数据库内的表的日期列
    For n As Integer = 1 To Sheet.Rows.Count -1 
Dim d2 As Date = cdate(sheet(n, 0).Text)
        If d1 < d2  Then
  Dim r As Row = Tables("店铺数据").AddNew()
        For i As Integer = 0 To sheet.Cols.Count -1
            Dim cname As String = sheet(0, i).text
            If t.Cols.Contains(cname) Then
                If t.Cols(cname).IsBoolean Then
                    If sheet(n, i).Text = 1 OrElse sheet(n, i).Text = "true" Then
                        r(cname) = True
                    Else
                        r(cname) = False
                    End If
                Else
                    r(cname) = sheet(n, i).Text
                End If
            End If
        Next
            End If
    Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询