主题：每次高速导入Excel文件时都要求改文件名太麻烦

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

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

合并数据，参考

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

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