excel - 使用 OLEDB 将列添加到 Excel 中的工作表

Question

你好
我正在尝试通过命令将新列添加到 Excel 工作表

ALTER TABLE [MyTable] 添加列 Field_dest nvarchar

但是在执行命令时出现异常“无效操作”
我在最后尝试了带和不带 $ 的表名，但得到了相同的结果
我的问题是
1)上面的命令有问题吗？
2) excel 表是否支持命令 ALTER 表？
3) 将列添加到 excel 工作表中的替代方法 - 最好通过 OLEDB 吗？

提前致谢

Answer 1

更改表将不起作用，AFAIK，但是，您可以创建表或选择进入，这将允许您创建一个新工作表。我不能让它在一张打开的纸上运行。

Dim cn As Object
Dim scn As String
Dim sSQL As String

strFile = "C:\Docs\test.xls"

scn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
strFile & ";Extended Properties=""Excel 8.0;HDR=Yes;"""

Set cn = CreateObject("ADODB.Connection")

cn.Open scn

''Note that there is no $ on the sheet to be created
sSQL = "SELECT *,'' As NewField INTO [Sheet17] FROM [Sheet4$]"

''Jet data types
sSQL = "CREATE TABLE [Sheet8] (AText text, ANother text)"

cn.Execute sSQL

如果您针对打开的文件运行，您将收到一个错误，即 Sheetn 不存在。