Для примера возмём запрос типа:

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MyDataBase;Description=MyDataBase;UID=User1;APP=Microsoft Office 2003;WSID=C6131;DATABASE=MyDataBase;Trusted_Connecti" _
), Array("on=Yes")), Destination:=Range("AU15"))
.CommandText = Array( _
"SELECT TABLE1.ITEMNUMBER, TABLE1.ITEMNAME" & Chr(13) & "" & Chr(10) & "FROM MyDataBase.SUPERVISOR.TABLE1 TABLE1" & Chr(13) & "" & Chr(10) & "WHERE (TABLE1.ITEMNUMBER='111')" _
)
.Name = "Запрос"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

Есть два вопроса:
1. Всё класно, но как мне его изменить, что бы при вставке данных в лист Экселя происходило автоматическое форматирование вставляемых данных? Могу я, например, вклинить в этот запрос функции Format()...CStr()...итд??
2. Данные вставляються, но они получаються связанными с запросом. Как сделать что бы вставлялся не запрос, а только значения??

Благадарю за коментарии!