Excel VBA с подключением ADODB создает текст вместо значений

Question

В настоящее время я использую ADODB-соединение для обновления некоторых ячеек. Обновление работает отлично (обновляет соответствующие строки). Однако, когда он вставляет значения, он добавляет апостроф (т. Е. «5 вместо 5»), что означает, что он не может быть отформатирован или добавлен правильно. Я пробовал использовать замену, но он не может найти апостроф, и я попытался использовать val(), но пока не повезло.

Код (упрощенный) выглядит следующим образом: все переменные (sheet, tableAddressB и т. Д.) Работают нормально, а просто «5» в этом случае не обновляется как число.

Dim cn As New ADODB.Connection 
    Dim strSQL As String 
    Dim tableAddressB As String 

    Set cn = New ADODB.Connection 
    cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & Application.PathSeparator & ActiveWorkbook.Name & ";Extended Properties=""Excel 8.0;HDR=No;"";" 
    cn.Open 

    tableAddressB = Sheet & "$" & Range(Sheet & "Details").Address(False, False) 
    strSQL = "Update [" & tableAddressB & "] Set [" & tableAddressB & "].F5 = 5 " & _ 
      "Where [" & tableAddressB & "].F3 between #1/1/2016# and #3/1/2016#" 

    cn.Execute strSQL 
    cn.Close 

Благодарим за помощь!

Answer 1

Благодаря Иеруэну и Никласу. Помещение Range.NumberFormat и настройка соответственно (Range.Numberformat = "0.00") отлично работает.

Спасибо и за вашу помощь!