更新Excel工作表单元格（该单元格是一个下拉列表）

Question

Basically I have a template excel sheet that I copy to another directory. I open the connection to said new sheet using:

Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &  excel_copy & ";Extended Properties=""Excel 8.0;HDR=No;"""
Set rsHoja = cn.OpenSchema(20)
hoja=rsHoja("Table_Name")
rsHoja.close
Set rsHoja = nothing  
Set rsHoja = Server.CreateObject("ADODB.Recordset")

From This point on I've been successfully doing updates such as:

sql =  " UPDATE [Hoja1$B2:B2] SET F1='"&VALUE&"'"
rsHoja.Open sql, cn

The problem comes when I'm trying to do an update on a cell that takes it's value from a List(that is in the same sheet)

I keep getting an error:

Microsoft Access Database Engine error '80040e10'

Any idea how to assign the value to the cell from the List? I've tried the list's name[cell of the value] and other methods but I'm pretty much trying to figure it out blindly now. I've also looked everywhere with no luck.

Update 1:

I forgot to mention my file doesn't have headers if that's any help.

Answer 1

As you are using Microsoft.ACE.OLEDB.12.0 database engine for connection,

Possibilities:

1) Make sure you are using Excel 12.0 in Extended Properties if you are using .xlsx file as Data source

2) Make sure you are using Excel 8.0 in Extended Properties if you are using .xls file as Data source

Check this URL for more info on this:

https://www.connectionstrings.com/excel/

Answer 2

所以我终于找到了问题...它与我的SQL或具有列表的单元格无关，问题是（在excel工作表中）该单元格被标记为DATE，但是列表是一个字符串，所以无论何时我试图在它上面写我的字符串给类型错误...改变Excel上的单元格以字符串/一般解决了这个问题，该单元格正确获取值。