0

我在使用 VBA 代码时遇到了一些问题，该代码应该将 excel 数据导入我的访问数据库。当我运行代码时，我收到一个运行时错误“运行时错误 1004 应用程序定义或对象定义错误”。

With wks
    'arrêter l'importation lorsque l'on rencontre une case vide
    While .Range(A & i).Value <> ""
    '(où pKeyCol représente la colonne et i la ligne)

        If (cnt = 10) Then
'pour éviter les messages lors de l'ajout des enregistrements
DoCmd.SetWarnings False
        End If

        'condition de remplissage de la table => eviter les doublons
        'si l'enregistrement existe déjà dans la table destination,
        'on passe à la ligne suivante sans l'importer
        If DCount("*", acTable, pKey & " LIKE '" & .Range(A & i).Value & "'") = 0 Then

            'requête SQL (ajouter autant de champs que nécessaire)
            cSQL = "INSERT INTO " & acTable & " ( [champ1], [champ2], [champ3], [champ5], [champ6], [champ11],[champ14], [champ15], [champ18],[champ20], [champ21], [champ22],[champ23], [champ24]) VALUES (" & Chr(34) & .Range("A" & i) & Chr(34) & "," & Chr(34) & .Range("F" & i) & Chr(34) & "," & Chr(34) & .Range("AI" & i) & Chr(34) & "," & Chr(34) & .Range("X" & i) & Chr(34) & ", " & Chr(34) & .Range("H" & i) & Chr(34) & "," & Chr(34) & .Range("K" & i) & Chr(34) & "," & Chr(34) & .Range("R" & i) & Chr(34) & "," & Chr(34) & .Range("S" & i) & Chr(34) & "," & Chr(34) & .Range("AC" & i) & Chr(34) & "," & Chr(34) & .Range("AD" & i) & Chr(34) & "," & Chr(34) & .Range("AE" & i) & Chr(34) & "," & Chr(34) & .Range("AF" & i) & Chr(34) & "," & Chr(34) & .Range("AG" & i) & Chr(34) & "," & Chr(34) & .Range("AH" & i) & Chr(34) & ");"
            'exemple avec les colonnes E et G

            'exécute la requète
            DoCmd.RunSQL cSQL

        End If

        'on incrémente la variable i pour passer à la ligne suivante
        i = i + 1
        cnt = cnt + 1
    Wend

End With

我认为这是负责的部分。我认为问题可能是因为 cSQL = part 中的 champ 。我在法语环境中部分地对此进行了编码。所以这可能是问题所在。

4

1 回答 1

2

除非A是一个变量，那么它应该是：

.Range("A" & i)

例如，这变成.Range("A1")了。

如果i最初为 0，那么这将产生错误。

acTable是预先存在的 Access 枚举的名称，因此不应用作变量名称（标识符）。这是一个字符串，所以我会使用strTableor sTable。

于 2013-07-29T08:02:41.407 回答