Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共5 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:找不到可安装的 ISAM怎么简单解决?

1楼
山中树人100 发表于:2024/5/29 11:52:00
运行以下代码,显示“找不到可安装的 ISAM“,怎么解决

Dim dlg As New OpenFileDialog
dlg.Filter= "所有文件|*.*|Excel2003文件|*.xls|Excel2007文件|*.xlsx" '设置筛选器
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    MessageBox.Show("你选择的是:" & dlg.FileNames.Length & "个文件")
    If MessageBox.Show("是否合并?","请确认!",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) = DialogResult.OK Then
        DataTables("测试").StopRedraw
        For Each fl As String In dlg.FileNames
            Dim mg As New Merger
            mg.SourcePath = fl
            mg.Format = "excel2007" '指定格式
            mg.SourceTableName = "sheet1$" '指定要合并的表
            mg.DataTableName = "测试" '指定接收数据的表
            mg.Merge() '开始合并
        Next
        MessageBox.Show("导入成功!","恭喜!")
        DataTables("测试").ResumeRedraw
    End If
End If
2楼
山中树人100 发表于:2024/5/29 11:53:00
我用的window10,文件是格式为“xls”
3楼
有点蓝 发表于:2024/5/29 12:17:00
if fl.EndsWith(".xls")
 mg.Format = "excel" '指定格式
else
 mg.Format = "excel2007" '指定格式
end if
4楼
山中树人100 发表于:2024/5/29 13:18:00
格式已经重置过了,还是不行,有其他办法吗?用高速合并是可以的,但我有好多个文件,每个文件又有2个sheet,一个一个来太慢了
5楼
有点蓝 发表于:2024/5/29 13:33:00
        For Each fl As String In dlg.FileNames
            Dim mg As New Merger
            mg.SourcePath = fl
if fl.EndsWith(".xls")
 mg.Format = "excel" '指定格式
else
 mg.Format = "excel2007" '指定格式
end if
            mg.SourceTableName = "sheet1$" '指定要合并的表
            mg.DataTableName = "测试" '指定接收数据的表
            mg.Merge() '开始合并
        Next
共5 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01563 s, 2 queries.