Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]再来求一个EXCEL导入处理的方法 ！


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

主题：[求助]再来求一个EXCEL导入处理的方法 ！
帅哥哟，离线，有人找我吗？
大红袍
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/11 15:00:00 [显示全部帖子]


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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/11 15:04:00 [显示全部帖子]

 一样啊，看2楼的各种方法。

 

http://www.foxtable.com/help/topics/2334.htm

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/12 10:09:00 [显示全部帖子]


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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/12 10:31:00 [显示全部帖子]

 上传具体实例，说明最后要导入的效果。

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/12 11:59:00 [显示全部帖子]

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim book As new XLS.Book(dlg.FileName)
    Dim sheet As XLS.Sheet = book.Sheets(0)
    Dim dic As new Dictionary(Of String, String())
    For i As Integer = 0 To 3
        Dim ary(sheet.Cols.Count-4) As String
        For j As Integer = 4 To sheet.Cols.Count - 1
            ary(j-4) = sheet(i, j).Text
        Next
        dic.Add(sheet(i, 3).Text, ary)
    Next
    For i As Integer = 5 To sheet.Rows.count-1
        For j As Integer = 4 To sheet.Cols.Count-1
            If sheet(i,j).Text > "" Then
                Dim nr As DataRow = DataTables("表a").addnew
                nr("FULLSTYLE") = sheet(i, 0).Text
                nr("SIZESCALE") = sheet(i, 3).Text
                nr("SIZE") = dic(sheet(i, 3).Text)(j-4)
                nr("TOTAL") = sheet(i,j).text
            End If
        Next
    Next
End If

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/12 17:38:00 [显示全部帖子]

dic(sheet(i, 3).Text)(j-4)  ---这行不是太明白！求指点！

 

首先把各个尺码M、L、N等保存到了一个字典存放。那么直接根据字符 M、L、N 就能取出对应的值 10、11H、12H
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询