每次高速导入Excel文件时都要求改文件名太麻烦 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 每次高速导入Excel文件时都要求改文件名太麻烦

共有3679人关注过本帖树形打印复制链接主题：每次高速导入Excel文件时都要求改文件名太麻烦

xrz

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：712 威望：0 精华：0 注册：2015/3/12 15:35:00

每次高速导入Excel文件时都要求改文件名太麻烦 发帖心情

Post By：2015/3/16 19:35:00 [只看该作者]

老师，你能帮忙去除掉每次“高速导入”Excel文件时都要求改文件名的麻烦吗？还有那个讨厌的“$”。另外：我发现要想顺利地把Excel文件导入Foxtable中需要把所有想导入的Excel文件都打开，这是什么原因呢？
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20150316191951.png

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/16 19:45:00 [只看该作者]

不是告诉过你怎么做了么？用代码导入

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    For Each f As String In dlg.FileNames
        Dim book As new XLS.Book(f)
        For Each s As XLS.Sheet In book.Sheets
            Dim ip As New Importer
            ip.SourcePath = f
            ip.SourceTableName = s.Name & "$"
            ip.NewTableName = s.Name & Format(Date.Now, "yyyyMMddHHmmssfff")
            ip.Format = "Excel"
            ip.Import()
        Next
    Next
End If