yurec » Чт май 31, 2012 9:06 am
Dim cnnConnect As ADODB.Connection
Dim rstRecordset As ADODB.Recordset
Dim sqlSource As String 'источник запроса
Set cnnConnect = New ADODB.Connection
sqlSource = "Provider=SQLOLEDB;" & _
"Data Source=ip address сервака ;Initial Catalog=Runtime;" & _
"User ID=Имя пользователя;Password=Пароль;"
cnnConnect.Open sqlSource
Set rstRecordset = New ADODB.Recordset
Dim s As String 'строка запроса
s = "Set DateFormat dmy " + _
"SELECT * FROM ................ Запрос на выборку
rstRecordset.Open _
Source:=s, _
ActiveConnection:=cnnConnect
With Worksheets("Имя Листа").QueryTables.Add(rstRecordset, Worksheets("Имя Листа").Range("A5"))
.Name = "Contact List"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells 'xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
rstRecordset.Close
cnnConnect.Close
*********************************************************************************************************************************************88
как-то так