Foxtable(狐表)用户栏目专家坐堂 → [求助]导入时遇到小麻烦


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

主题:[求助]导入时遇到小麻烦

美女呀,离线,留言给我吧!
sweet果果
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:142 威望:0 精华:0 注册:2020/12/12 15:40:00
[求助]导入时遇到小麻烦  发帖心情 Post By:2020/12/18 13:14:00 [只看该作者]

Dim dlg As new OpenFileDialog
dlg.Filter = "excel|*.xls;*.xlsx"    ‘--------------出现问题,同一张表,如果是保存.xlsx后缀的表导入正常,如果是.xls后缀的表就出现错误!!外部表不是预期的格式
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim dtb As New DataTableBuilder("A表")
    For i As Integer = 0 To sheet.cols.Count - 1
        Output.Show(sheet(0,i).text)            
        If sheet(0,i).text > ""
            dtb.AddDef(sheet(0,i).text, Gettype(String),255)          
        End If
    Next
    dtb.Build()
End If


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/18 13:58:00 [只看该作者]

调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm,看是哪一句代码出错?

 回到顶部
美女呀,离线,留言给我吧!
sweet果果
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:142 威望:0 精华:0 注册:2020/12/12 15:40:00
  发帖心情 Post By:2020/12/18 14:35:00 [只看该作者]

蓝老师,提示是下面的问题,好奇怪哟

Dim dlg2 As New OpenFileDialog
dlg2.Filter = "Excel文件|*.xls;*.xlsx"
dlg2.MultiSelect = True '允许选择多个文件
If dlg2.ShowDialog =DialogResult.OK Then 
    For Each fl As String In dlg2.FileNames
        Dim mg As New Merger
        mg.SourcePath = fl
        mg.Format = "Excel" 
        mg.SourceTableName = "Sheet1$"
        mg.DataTableName = "数据表"
        MessageBox.Show(1)
        mg.Merge()   '---------------提示是这里的问题  
        MessageBox.Show(2)
    Next
    Dim lm As String = Tables("数据表").Cols(0).Name
    DataTables("数据表").DeleteFor(" " & lm & " Is null ")
    MessageBox.Show("数据合并成功,请下载保存")
End If

错误提示如下:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.5.29.8
错误所在事件:
详细错误信息:
外部表不是预期的格式。
[此贴子已经被作者于2020/12/18 14:35:45编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/18 14:40:00 [只看该作者]

if fl.endswith(".xls")
mg.Format = "Excel" 
else
mg.Format = "Excel2007" 
end if

 回到顶部