VBA / Access INSERT в оператор, передавая числовую строку как число

Question

Я читаю данные из рабочей книги в таблицу доступа. Проблема в том, что у меня есть числовые данные в ячейках, отформатированных в текстовом формате, которые имеют начальный ноль, и когда оператор INSERT into читает его, он обрезает начальный ноль. Передаваемые ему данные имеют начальный ноль, а столбец таблицы, в который они идут, - в текстовом формате.

Есть ли обходной путь, чтобы SQL передавал числовую строку в виде строки?

различные msgbox, которые вы видите, были для отладки.

Dim StringVar As Variant
Dim strLn As String
    'Asks user for Filepath
    StringVar = InputBox("Please enter file path", "Import", "")
    'Ends Function if no input or cancel is detected
    MsgBox (StringVar)
    If StringVar = "" Or StringVar = False Then
        MsgBox ("No input, Please try again")
        Exit Sub
    End If
    'Scrubs outer quotes if present
    StringVar = Replace(StringVar, Chr(34), "", 1, 2)
    MsgBox ("File Path Checked")
Dim FSO As Object
    Set FSO = CreateObject("Scripting.Filesystemobject")
    'Checks that our file exists, exits if not
    If (Not FSO.FileExists(StringVar)) Then
        MsgBox ("File does not exist, try again")
        Exit Sub
    End If
Dim xlApp As Object 'Excel.Application
Dim xlWrk As Object 'Excel.Workbook
Dim xlSheet As Object 'Excel.Worksheet
Dim i As Long
    MsgBox ("working on an excel sheet")
    Set xlApp = VBA.CreateObject("Excel.Application")

    'toggle visibility for debugging
    xlApp.Visible = False

    Set xlWrk = xlApp.Workbooks.Open(StringVar) 'opens the excel file for processing
    Set xlSheet = xlWrk.Sheets("Sheet1") 'modify to your perticular sheet
    MsgBox ("About to change the format")
    xlSheet.Columns("A").NumberFormat = "@"

    MsgBox ("Format changed")
    'walks through the excel sheet to the end and inserts the lines below the headerline into the database
    For i = 2 To xlSheet.UsedRange.Rows.Count
        DoCmd.RunSQL "Insert Into Split_List(Criteria) values(" & xlSheet.Cells(i, 1).Value & ")"
        If (MsgBox(i, vbOKCancel) = vbCancel) Then Exit Sub
    Next i
    MsgBox ("Brought in " & i & " lines")
    'Quits the file and closes the object
    xlWrk.Save
    xlWrk.Close
    xlApp.Quit

    Set xlSheet = Nothing
    Set xlWrk = Nothing
    Set xlApp = Nothing

Answer 1

Я нашел ответ на свой вопрос в этом вопросе Должен ли я заключать в кавычки числа в SQL?

Я не передавал идентификаторы, которые являются кодами как строки, я передавал их как числапоэтому в инструкции Insert Into, куда я поместил 'xlSheet.Cells (i, 1) .Value', мне нужно было поместить одинарные кавычки в оператор SQL вокруг этого значения, чтобы оно передавалось в виде строки

в выражениедолжно выглядеть так

DoCmd.RunSQL "Insert Into Split_List(Criteria) values('" & xlSheet.Cells(i, 1).Value & "')"
                                                      ^                                 ^