我想用一个作为用户表单的Excel文件中的VBA，把数据写入另一份作为数据库的Excel文件，且不打开它。

数据库Excel文件在第一行有表头，带有特定样式，后续行的数据格式各不相同。

我本可以使用Workbooks.Open方法打开数据库Excel文件再写入，但这会引发一些我想避免的问题。

我在不打开该文件的情况下写入它，使用ADODB连接和 INSERT INTO SQL命令。

我原本希望它能以上一行的样式插入新数据，或至少使用工作表的默认样式（即如果在Excel中手动打开该文件并添加新行时看到的样式）。

然而，新行似乎被应用了表头的样式，导致非常奇怪的结果：

1372行是原始内容的最后一行，1373行和1374行是用我的SQL命令插入的两行。

如果把第1372行的样式复制到新行，我得到预期的结果，因此 INSERT 命令工作正常。这只是一个单元格样式的问题。

我尝试在工作表末尾创建一个与第1372行相同样式的空行，但 INSERT 命令在空行之后插入数据，留下一个空白行，仍然使用了表头样式。

这是我的代码的一部分：

' Create the connection string
connStr = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ExcelFilePath & ";" & "Extended Properties=""Excel 12.0;HDR=Yes"";"

' Create the Connection and Command Objects
Set conn = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")

' Open the connection
conn.Open connStr

sql = "INSERT INTO [Table$] ([Field1], [Field2]) VALUES ('Value1', 'Value2');"

' Execute the command
cmd.ActiveConnection = conn
cmd.CommandText = sql

我觉得ADODB没有对单元格样式进行控制的能力，那么为什么会这样？我该如何让Excel不使用表头样式？

解决方案

好吧，我觉得找到了答案。看起来ADODB使用的是它正在写入的文件第一行的全局格式，但这种格式未必就是你看到的样子。

我注意到了左上角的绿色三角形。当我改变A1的背景颜色时，它的颜色并没有改变。实际上整张第一行有一种特殊格式，绿色背景和45° 对齐的文本……正是我插入的行所使用的样式。

于是我改变了整张第一行的样式。然后我把表头中单元格的样式改回之前的样式。左上角的三角形现在变成白色。插入的行现在使用了正确的样式！