用代码生成表格

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