Использование VBA для удаления псевдонима из строки запроса SQL?

Question

У меня есть строка запроса SQL. В этой строке находятся несколько разных столбцов данных, все из одной таблицы. Для упрощения, вот краткий пример: SELECT 'A'.'B', 'A'.'C', 'A'.'D' Где 'A' - это псевдоним. Мой вопрос: есть ли способ использовать VBA для выполнения этой строки запроса и удалить все экземпляры псевдонима 'A' и просто вернуть столбцы данных 'B', 'C', 'D'? Пожалуйста, не полный код, мне нравятся стартовые точки. Мне нравится заполнять фигуры самостоятельно. Это помогает процессу обучения.

Answer 1

1. Восстановление SQL под QueryTable так:

Восстановление SQL:

Range("A1").Select 'Your query worksheet 
With Selection.QueryTable 
    queryText = .CommandText 
End With 

2. Затем замените псевдонимы на LEFT, RIGHT, INSTR или RegExp объект (если вы хотите узнать что-то полезное и быстрое использование RegExp - регулярные выражения). Если вам понадобится пример regex, дайте мне знать в комментариях. Если вы хотите изучить Regex в VBA, я сделал tutorial here.

3. Заменить запрос и обновить QueryTable

Заменить и обновить запрос

Range("A1").Select 'Your query worksheet 
With Selection.QueryTable 
    .CommandText = queryText 
    .Refresh BackgroundQuery:=False 
End With 

Answer 2

Вы выбираете прямо со стола? Переход прямо из таблицы даст вам имя столбца, если вы не выполняете какую-либо функцию в своем запросе. Другой вариант:

Выберите [A] AS ColumnName, [B] AS имя_столбца2 и т.д.