Изменить команду Excel SQL с помощью макросов

Question

Мне нужно создать макрос Excel 2010, который изменяет текст команды SQL соединения Excel.Я работаю с SQL Server, если это имеет значение.

Как я могу это сделать?Я нашел несколько ссылок в Интернете, но ни одна из них не сработала.

Самый последний код, который я использовал:

Dim comText As String

comText = "select  top 10000 [activitypointer0.subject] as subject , [activitypointer0.activityid] as activityid , [activitypointer0.instancetypecodename] as instancetypecodename , [activitypointer0.scheduledend] as scheduledend , [activitypointer0.createdbyname] as createdbyname , [activitypointer0.activitytypecodename] as activitytypecodename , [a_9cdbdceab5ee4a8db875050d455757bd.name] as [a_9cdbdceab5ee4a8db875050d455757bd.name]"
comText = comText & " from  FilteredActivityPointer as [activitypointer0] left outer join FilteredAccount as [a_9cdbdceab5ee4a8db875050d455757bd] on ([activitypointer0.regardingobjectid]  =  [a_9cdbdceab5ee4a8db875050d455757bd.accountid])"
comText = comText & " where  ([activitypointer0.activitytypecode] = 4201 and ([activitypointer0.ownerid] in (N'{69CB3CDE-0998-E011-916A-00155D000607}' , N'{D8D40800-B798-E011-916A-00155D000607}' , N'{7ECB3CDE-0998-E011-916A-00155D000607}' , N'{70CB3CDE-0998-E011-916A-00155D000607}')) and [activitypointer0.statecode] = 1 and  [activitypointer0.scheduledendutc] >= '20111231 22:00:00'  and  [activitypointer0.scheduledendutc] < '20120131 22:00:00' )"
comText = comText & " order by  [activitypointer0.subject] asc , [activitypointer0.activityid] asc"

With ActiveWorkbook.Connections("conCRM").ODBCConnection
    .commandText = comText
End With

ActiveWorkbook.Connections("conCRM").Refresh

Это дает мне ошибку об именах столбцов.

Answer 1

Возможно, вам следует использовать имена столбцов, такие как [activitypointer0].[subject] вместо [activitypointer0.subject] (и другие подобные), если полученная ошибка только «жалуется» на имена столбцов.