主题：合并导入问题

合并外部数据时提示不是合法日期 通过杂项高速合并时 日期变成数字 具体看图 

说明的单元格的就不是日期数据。

 

上传要导入的数据表，贴出你写的代码。

比如excel可以这样导入

 

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

 

我上传了附件 都去哪了

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:desktop.zip

此主题相关图片如下：2015-10-26_155643.jpg


此主题相关图片如下：2015-10-26_155736.jpg


此主题相关图片如下：2015-10-26_155840.jpg

针对不同格式的表能不能 用一个对话框选择合并的列项目 可以读出外部表的字段 和 内部表的字段 然后选择外部表的哪个字段等于内部表的哪个字段

相当于把下面的代码分开用对话框选择:

Dim sCols() As String = {"列名1", "列名2", "列名3"}
Dim dCols() As String = {"列名A", "列名B", "列名C"} 

因为外部表的列名不是固定的 所以有这个想法

你的excel文件有问题要额外处理啊一下，参考代码

 

Dim dlg As new OpenFileDialog
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("总计划表")
        Tables("表A").ResumeRedraw()
        Tables("表A").StopRedraw()
        Dim nms() As  String = {"第一列","第二列"}
       
        For n As Integer = 2 To ws.UsedRange.Rows.Count -1
            Dim r As  Row = Tables("表A").AddNew()
            For  m As  Integer = 0 To nms.Length - 1
                If Tables("表A").Cols(nms(m)).IsDate Then
                    Dim d As Date
                    If Date.TryParse(ws.cells(n,m+1).Text, d)
                        r(nms(m)) = d
                    End If
                Else
                    r(nms(m)) = ws.cells(n,m+1).Text
                   
                End If
            Next
        Next
        Tables("表A").ResumeRedraw()
       
    catch ex As exception
        msgbox(ex.message)
        app.quit
    End try
End If

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65686&skin=0