[求助]导入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师：把Excel多个工作表分批导入项目中的同一个表中（Excel表的结构是一样的）

此主题相关图片如下：360软件小助手截图20140918095151.png

老师，表头有办法导入吗，

我每张Excel 表多有一个表头如果要导入项目就显示格式不对。

[此贴子已经被作者于2014-9-18 10:10:47编辑过]

狐表隐藏大全：

ApplicationMenu.Visible = False '程序菜单
QAT.Visible = False '快速访问栏

'配置栏***************************
一、
Dim o As Object = BaseMainForm.Controls("C1Ribbon1")
o.ConfigToolBar.Visible = False
二、
For Each o As Object In Configbar.Items
o.Visible = False
Next
'配置栏***************************

'功能区***************************
一、
BaseMainForm.Controls("C1Ribbon1").Visible = False
二、
For Each r As object In RibbonTabs
r.Visible = False
Next
'功能区***************************

BaseMainForm.ShowIcon = False '程序图标
BaseMainForm.Icon = Nothing '不设置程序图标(但会显示默认图标) 'New Icon(ProjectPath & "Images\55.ico")
BaseMainForm.Text = "" '程序标题
BaseMainForm.Controls("C1StatusBar1").Visible = False '状态栏
TableCaptionVisible = False '表标题
For Each t As Table In Tables
t.Visible = False '主表
Next

以上设置后,只剩下一个净光的窗口

BaseMainForm.Visible = False '主界面

这下彻底不见了

老师，我抄了你的代码把系统功能隐藏了现在没办法恢复了。

老师，我要通过组合框进行选择Excel 工作表1、Excel 工作表2......然后通过按钮导入

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    If Connections.Contains("test") Then
        If DataTables.Contains("农行交易动态") Then DataTables.Unload("农行交易动态")
        Connections.Delete("test")
    End If
    Connections.Add("test", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Extended Properties=Excel 8.0;")
    Dim tns As String = ""
    For Each tn As String In Connections("test").GetTableNames
        tns &= tn & "|"
    Next
    e.Form.Controls("ComboBox1").ComboList = tns.TrimEnd("|")
End If

老师，我不摆在临时表中

年、月要分别在日期列20140203中提取对应的数字注：日期列不是日期型的

[此贴子已经被作者于2014-9-18 17:48:16编辑过]

此主题相关图片如下：图像 4.png

主题：[求助]导入