主题：excel表格导入的多层列名问题

用代码生成表格

 

Dim dlg As new OpenFileDialog
dlg.Filter = "excel|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet1 As XLS.Sheet = Book.Sheets(0)
    Dim Builder As New ADOXBuilder
    Builder.Open()
    Dim tbl = Builder.NewTable("测试") '创建表
    For c As Integer = 0 To sheet1.Cols.count-1
        Dim cname As String = sheet1(0,c).text & iif(sheet1(1,c).text="", "", "_" & sheet1(1,c).text)
        'msgbox(cname)
       
        With tbl
            .AddColumn(cname.replace("*", "乘"),ADOXType.String)
        End With
    Next
    Builder.AddTable(tbl) '增加表
    Builder.Close()
    DataTables.load("测试") 
End If

不然，你就只能先把excel的表头处理成一层的列名，再导入。