Excel VBA - 将数字作为文本导入 Access 表

Question

我有以下 Excel VBA 代码，它读取 Excel 中的一列并将值导入 Access 中的表：

Dim Cn As Object
Dim strSql As String
Dim strConnection As String
Set Cn = CreateObject("ADODB.Connection")
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=C:\myDatabase.accdb"
Cn.Open strConnection

For i = 2 To ActiveSheet.UsedRange.Rows.Count
    Cn.Execute "INSERT INTO myTable VALUES (" & Cells(i, 1).Value & ")"
Next i

Cn.Close
Set Cn = Nothing

问题在于，即使列中的值在技术上是数字（0001234、0123456、0001 等），该列的格式为文本，而 Access 表中的字段格式为文本。但是上面的代码仍然将它们作为数字导入，这会删除前导 0(s)。有没有办法强制它们作为文本值导入？

谢谢！！

---

编辑：我尝试在列中的值前面加上一个单引号（例如：'0001234 而不是 0001234），但它们仍以数字形式导入。

EDIT2：我也试过这个：

Dim Cn As Object
Dim strSql As String
Dim strConnection As String
Dim CellValue as String
Set Cn = CreateObject("ADODB.Connection")
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=C:\myDatabase.accdb"
Cn.Open strConnection

For i = 2 To ActiveSheet.UsedRange.Rows.Count
    CellValue = Cells(i, 1).Value
    Cn.Execute "INSERT INTO myTable VALUES (" & CellValue & ")"
Next i

Cn.Close
Set Cn = Nothing

但导入时，这些值仍然会删除前导 0。

EDIT3 - 已解决！！ 我必须在 Cells(i, 1).Value 周围加上双引号。现在前导 0 保持不变！

Dim Cn As Object
Dim strSql As String
Dim strConnection As String

Set Cn = CreateObject("ADODB.Connection")
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=C:\CarrierAudit.accdb"
Cn.Open strConnection

For i = 2 To ActiveSheet.UsedRange.Rows.Count
    Cn.Execute "INSERT INTO Pinnacol_NDC VALUES (""" & Cells(i, 1).Value & """)"
Next i

Cn.Close
Set Cn = Nothing

Answer 1

当前，该行中的字符串

Cn.Execute "INSERT INTO myTable VALUES (" & CellValue & ")"

将评估为 0001234：

INSERT INTO myTable VALUES (0001234)

因为 0001234 周围没有引号，所以被 SQL 当作数字而不是字符串来处理。 将该行代码更改为：

Cn.Execute "INSERT INTO myTable VALUES (""" & CellValue & """)"

额外的引号“”是VBA字符串转义序列，表示在计算字符串时应将双引号放入字符串中，生成以下内容：

INSERT INTO myTable VALUES ("0001234")

这将导致 SQL 将其视为文本字符串并正确插入。

Answer 2

尝试使用CellValue = Cells(i, 1).Text 访问单元格的文本值