Перенос данных с Excel в Access, импорт из Excel в Access

[Nikita085]

Благодарю за помощь)

[Nikita085]

For iCol = 1 To LastCol
             sValues = IIf(iCol > 1, sValues & ", ", "") & _
                        IIf(iCol > 3, "", "'") & _
                        IIf(.Cells(iRow, iCol).Value = 0, "Null", Replace(CStr(.Cells(iRow, iCol).Value), ",", ".")) & _
                        IIf(iCol > 3, "", "'")

С помощью вот такого кусочка создаю строку значений: первые три значения - тестовые, остальные числовые.
Как создать значение с форматом - Дата (к примеру -22)?
Что то не могу разобраться с синтаксисом SQL
Помогите пожалуйста)

[Aleksandr H.]

Сообщение от Nikita085

первые три значения - тестовые.

для каких тестов?

Сообщение от Nikita085

Что то не могу разобраться с синтаксисом SQL

И где же SQL с которым работаете?

[Nikita085]

Сообщение от Aleksandr H.

для каких тестов?

Текстовый формат) Ошибочка при наборе((((

Сообщение от Aleksandr H.

И где же SQL с которым работаете?

sSQL = "INSERT INTO [" & "DataBase" & "] (" & sFields & ") VALUES (" & sValues & ");"

Формируется массив данных sValues и потом вставляется в Access

[Aleksandr H.]

Option Explicit

Sub GenerateSqlStatements()
    Dim rCount As Integer ' max row index
    Dim cCount As Integer ' max col index
    Dim sql As String
    Dim sqlFieldNames As String
    Dim sqlValues As String
    Dim r As Integer ' row index
    Dim c As Integer ' column index
    With Sheets(1)
        rCount = .Cells(.Rows.Count, 1).End(xlUp).Row
        cCount = .Range("T1").Column
        sqlFieldNames = "("
        For c = 1 To cCount
            sqlFieldNames = sqlFieldNames & "[" & .Cells(1, c) & "],"
        Next c
        sqlFieldNames = Left(sqlFieldNames, Len(sqlFieldNames) - 1) & ")"
'        Debug.Print sqlFieldNames
        For r = 2 To rCount
            sqlValues = vbNullString
            For c = 1 To cCount
                If c <= 3 Then
                    sqlValues = sqlValues & "'" & CStr(.Cells(r, c).Value) & "',"
                ElseIf c = 10 Or c = 17 Then ' Data fields
                    sqlValues = sqlValues & "#" & Replace(CStr(Format(.Cells(r, c).Value, "YYYY.MM.DD hh:mm:ss")), ".", "/") & "#,"
                Else
                    sqlValues = sqlValues & "" & CStr(Replace(.Cells(r, c).Value, ",", ".")) & ","
                End If
            Next c
            sqlValues = "(" & Left(sqlValues, Len(sqlValues) - 1) & ")"
            sql = "INSERT INTO [table] " & sqlFieldNames & " VALUES " & sqlValues
'            Debug.Print sql
            ' TODO // SOME CODE HERE TO EVALUATE SQL-STATEMENT
        Next r
    End With
End Sub

[Nikita085]

Сообщение от Aleksandr H.

Option Explicit

Sub GenerateSqlStatements()
    Dim rCount As Integer ' max row index
    Dim cCount As Integer ' max col index
    Dim sql As String
    Dim sqlFieldNames As String
    Dim sqlValues As String
    Dim r As Integer ' row index
    Dim c As Integer ' column index
    With Sheets(1)
        rCount = .Cells(.Rows.Count, 1).End(xlUp).Row
        cCount = .Range("T1").Column
        sqlFieldNames = "("
        For c = 1 To cCount
            sqlFieldNames = sqlFieldNames & "[" & .Cells(1, c) & "],"
        Next c
        sqlFieldNames = Left(sqlFieldNames, Len(sqlFieldNames) - 1) & ")"
'        Debug.Print sqlFieldNames
        For r = 2 To rCount
            sqlValues = vbNullString
            For c = 1 To cCount
                If c <= 3 Then
                    sqlValues = sqlValues & "'" & CStr(.Cells(r, c).Value) & "',"
                ElseIf c = 10 Or c = 17 Then ' Data fields
                    sqlValues = sqlValues & "#" & Replace(CStr(Format(.Cells(r, c).Value, "YYYY.MM.DD hh:mm:ss")), ".", "/") & "#,"
                Else
                    sqlValues = sqlValues & "" & CStr(Replace(.Cells(r, c).Value, ",", ".")) & ","
                End If
            Next c
            sqlValues = "(" & Left(sqlValues, Len(sqlValues) - 1) & ")"
            sql = "INSERT INTO [table] " & sqlFieldNames & " VALUES " & sqlValues
'            Debug.Print sql
            ' TODO // SOME CODE HERE TO EVALUATE SQL-STATEMENT
        Next r
    End With
End Sub

Вставил в модуль листа - не переносит в файл Access((

[Aleksandr H.]

Сообщение от Nikita085

не переносит в файл Access((

А он и не должен переносить.

Проблемы какие были ?
1)

Сообщение от Nikita085

Что то не могу разобраться с синтаксисом SQL

2)

Сообщение от Nikita085

Как создать значение с форматом - Дата

макрос показывает как сформировать sql строку. Как ее выполнить - ваша задача

[Nikita085]

Aleksandr H.
Спасибо за подсказку!
Буду пробовать привинтить)

[Nikita085]

Добрый вечер!
Уважаемые специалисты по VBA
Привинтил в свой макрос перенос данных из Excel в Access

Option Explicit

Sub Insert2Access()
    Dim CON As Object: Set CON = CreateObject("ADODB.Connection")
    Dim rCount As Integer ' max row index
    Dim cCount As Integer ' max col index
    Dim sql As String
    Dim sqlFieldNames As String
    Dim sqlValues As String
    Dim r As Integer ' row index
    Dim c As Integer ' column index
    Dim sSQL$
    
    CON.Open IIf(Val(Application.Version) < 12, "Provider='Microsoft.Jet.OLEDB.4.0'", "Provider='Microsoft.ACE.OLEDB.12.0'") & _
            "; Data Source=" & ThisWorkbook.Path & "\Data.accdb" & ";Mode=Share Deny None; Jet OLEDB:Database;"
        With Worksheets("Лист1")
        rCount = .Cells(.Rows.Count, 1).End(xlUp).Row
        cCount = .Range("T1").Column
        sqlFieldNames = "("
        For c = 1 To cCount
            sqlFieldNames = sqlFieldNames & "[" & .Cells(1, c) & "],"
        Next c
        sqlFieldNames = Left(sqlFieldNames, Len(sqlFieldNames) - 1) & ")"
'        Debug.Print sqlFieldNames
        For r = 2 To rCount
            sqlValues = vbNullString
            For c = 1 To cCount
                If c <= 3 Then
                    sqlValues = sqlValues & "'" & CStr(.Cells(r, c).Value) & "',"
                ElseIf c = 10 Or c = 17 Then ' Data fields
                    sqlValues = sqlValues & "#" & Replace(CStr(Format(.Cells(r, c).Value, "YYYY.MM.DD hh:mm:ss")), ".", "/") & "#,"
                Else
                    sqlValues = sqlValues & "" & CStr(Replace(.Cells(r, c).Value, ",", ".")) & ","
                End If
            Next c
            sqlValues = "(" & Left(sqlValues, Len(sqlValues) - 1) & ")"
            sql = "INSERT INTO [table] " & sqlFieldNames & " VALUES " & sqlValues
            CON.Execute sql
        Next r
    End With
    CON.Close
    If Err = 0 Then MsgBox "Перенесено" & rCount - 1 & " строк."
End Sub

:

CON.Execute sql - эта строчка выдает ошибку: Run-time error 2147217904 (80040e10):
Отсутствует значение для одного или нескольких требуемых параметров

[Aleksandr H.]

начните с того что ваше поле [F2] содержит "Анулирован", а в таблице поле F2 числовое.