Dim Builder As New ADOXBuilder Builder.Open() With Builder .DeleteTable("表c") End With Builder.Close() DataTables.Unload("表C")
messagebox.show (1)
Dim Builder1 As New ADOXBuilder Dim tbl As ADOXTable Dim i As Integer Builder1.Open() tbl = Builder1.NewTable("Excel123") '创建表 With tbl For i =1 To 15 .AddColumn("列" & i ,ADOXType.String, 250) Next End With Builder1.AddTable(tbl) '增加表 Builder1.Close() DataTables.load("Excel123")