Мой код дает мне ошибку компиляции, ожидаемый: разделитель списка или); затем я добавляю некоторые) или "в разных шаблонах и просто получаю несоответствие типов

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
    "ODBC;DSN=REPORTDB;UID=reports;PWD=reports;SERVER=REPORTDB;", Destination:=Range("$A$1") _
    ).QueryTable
    .CommandText = Array( _
    "SELECT NCM_HEADER.NCR_KEY, NCM_HEADER.PART_NUMBER, NCM_HEADER.PART_NAME, NCM_HEADER.NCR_DISPLAY_STATUS, NCM_HEADER.WORK_ORDER, NCM_SIGNOFF.GROUP_NAME, NCM_SIGNOFF.DATE_IN_QUEUE" & Chr(13) & "" & Chr(10) _
    & "FROM HMS.NCM_HEADER NCM_HEADER, HMS.NCM_SIGNOFF NCM_SIGNOFF" & Chr(13) & "" _
, _
"" & Chr(10) & "WHERE NCM_HEADER.NCR_KEY = NCM_SIGNOFF.NCR_KEY AND ((NCM_HEADER.WORK_ORDER = '03530' And (NCM_HEADER.NCR_DISPLAY_STATUS = 'OPEN'))" _
   )     

 .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_REPORTDB_1"
    .Refresh BackgroundQuery:=False
    End With

Проблема начинается и заканчивается с помощью SELECT NCM вплоть до "открытия". Я не могу заставить это работать, хотя у меня есть другой код в тех же шаблонах и БД, которые работают. Просто не могу найти что-то не так с этой строкой, выделенной жирным шрифтом.

Произведено редактирование после ОТКРЫТИЯ на))" _); теперь выдается несоответствие типов.

0 ответов

Другие вопросы по тегам