老师，您帮忙看看怎么回事，我尝试删除表格、创建表格。我将帮助中的代码粘贴到命令窗口，无法删除表格Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
.DeleteTable("表c")
End With
Builder.Close()
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()
此主题相关图片如下：捕获.png
之后我新增一个表，名为表a，将上述代码的表c改为表a后，可以执行到 messagebox.show (1)，但是，表a并没有删除，而新表也没有增加。（手工删除表a，给出提示：表a不存在或已经删除）。之后在命令窗口load Excel123，表格Excel123显示出来了。我估计，出现上述错误的原因是要删除的表已经不存在了，但还在界面上显示存在；增加新表后，没有及时在界面上显示，需要加载才能显示。是不是datatable与table不同步？如果真是这样，如何刷新界面？
请老师指点！谢谢！
加好友 
发短信
Post By：2018/12/17 15:06:00 [显示全部帖子]
