以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助，这种Excel数据导入代码怎么写？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108250)
--  作者：lyb
--  发布时间：2017/10/19 0:21:00
--  求助，这种Excel数据导入代码怎么写？
一个项目有两行数据，两行数据合并为
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:开标项目安排.zip

一个记录，一个项目的两行数据有相邻，也有不相邻的。
--  作者：有点甜
--  发布时间：2017/10/19 9:45:00
--  
Dim dlg As new OpenFileDialog
dlg.Filter = "Excel|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    Dim App As New MSExcel.Application
    try
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        Dim Rg As MSExcel.Range = Ws.UsedRange
        Dim ary = rg.value
        Dim nms() As String = {"", "招标人代理机构代码", "项目经办人","标段编号", "标段名称", "", "开标日期"}
        DataTables("表A").StopRedraw
        For n As Integer = 3 To rg.Rows.Count
            Dim ro As Row = Tables("表A").AddNew
            For i As Integer = 0 To nms.length - 1
                If nms(i)>"" Then
                    If ary(n,i+1) <> Nothing Then
                        ro(nms(i)) = cstr(ary(n,i+1)).trim
                    ElseIf n > 3 AndAlso ary(n-1,i) <> Nothing Then
                        ro(nms(i)) = cstr(ary(n-1,i+1)).trim
                    End If
                End If
            Next
        Next
        MessageBox.Show("导入成功!","恭喜!")
    catch ex As exception
        msgbox(ex.message)
        MessageBox.Show("导入失败!","恭喜!")
    finally
        DataTables("表A").ResumeRedraw
        app.quit
    End try
End If
--  作者：lyb
--  发布时间：2017/10/19 10:51:00
--  
数据没有合并，但可以导入了，消化一下，谢谢甜版！
--  作者：有点甜
--  发布时间：2017/10/19 11:31:00
--  
以下是引用lyb在2017/10/19 10:51:00的发言：
数据没有合并，但可以导入了，消化一下，谢谢甜版！

 

如果要合并，参考

 

http://www.foxtable.com/webhelp/scr/1373.htm