运行时错误13类型不匹配错误

我想写一个代码来从MS访问数据库导入数据，每当我运行宏我不断收到此错误，我无法弄清楚代码有什么问题。你能告诉我是什么错误：运行时错误13类型不匹配错误

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array(_ 
      "ODBC;DSN=MS Access Database;DBQ=" & db_fullname & ";DefaultDir=" & db_dir & ";DriverId=25;FIL" _ 
      ), Array("=MS Access;MaxBufferSize=2048;PageTimeout=5;")), Destination:=Range(_ 
      "$A$1")).QueryTable 
      .CommandText = Array(_ 
      "SELECT INNW_CFC_1X.Date_Cascade_Sector_Band, INNW_CFC_1X.Cascade_Sector_band, INNW_CFC_1X.Date, INNW_CFC_1X.Market, INNW_CFC_1X.`BSC Name`, INNW_CFC_1X.`Cluster ID`, INNW_CFC_1X.`Cascade ID`, INNW_CFC" _ 
      , _ 
      "_1X.`BTS ID`, INNW_CFC_1X.Sector, INNW_CFC_1X.Band, INNW_CFC_1X.cfc18, INNW_CFC_1X.cfc30, INNW_CFC_1X.cfc53, INNW_CFC_1X.`Total RF CFC`, INNW_CFC_1X.cfc84, INNW_CFC_1X.cfc85, INNW_CFC_1X.`Total Capaci" _ 
      , _ 
      "ty CFC`, INNW_CFC_1X.cfc26, INNW_CFC_1X.cfc49, INNW_CFC_1X.cfc102, INNW_CFC_1X.cfc2, INNW_CFC_1X.cfc54, INNW_CFC_1X.cfc99, INNW_CFC_1X.`Total BH CFC`, INNW_CFC_1X.cfc31, INNW_CFC_1X.cfc29, INNW_CFC_1X" _ 
      , _ 
      ".cfc81, INNW_CFC_1X.`Total Parameter CFC`, INNW_CFC_1X.cfc16, INNW_CFC_1X.cfc17, INNW_CFC_1X.`Total IVHHO CFC`" & Chr(13) & "" & Chr(10) & "FROM `" & db_fullname & "`.INNW_CFC_1X " & Chr(13) & "" & Chr(10) & "WHERE (INNW_CFC_1X.Date>={ts '" & start_date2 & " 00:00:00'} And INNW_CFC_1X.Date<={ts '" & end_date2 & "" _ 
      , _ 
      " 00:00:00'}) " & query_string & "") 

    .RowNumbers = False 
    .FillAdjacentFormulas = False 
    .PreserveFormatting = True 
    .RefreshOnFileOpen = False 
    .BackgroundQuery = True 
    .RefreshStyle = xlInsertDeleteCells 
    .SavePassword = False 
    .SaveData = True 
    .AdjustColumnWidth = True 
    .RefreshPeriod = 0 
    .PreserveColumnInfo = True 
    .ListObject.DisplayName = "Table_Query_from_MS_Access_Database" 
    .Refresh BackgroundQuery:=False 
End With

来源

2013-07-15 user2585048

当出现错误时突出显示哪行？ –

整个选择语句突出显示 – user2585048

访问使用方括号[]替代的背蜱其他数据库使用（MySQL的）。

日期也是一个reserved word在Access中，也应该括在方括号中，或者更好！，重命名此字段。

顺便说一句这很难读，但它看起来像所有的数据来自一个表INNW_CFC_1X，所以你不必重复所有字段的这个表名。

来源

2013-07-15 21:55:16

运行时错误13类型不匹配错误

回答

相关问题