Помогите plzzzz
Мой макрос в Excel запрашивает данные о базе в SQL Server выглядет это так:
Connection = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;User ID=Name;Initial Catalog=database;Data Source=NameServ"
With ActiveSheet.QueryTables.Add(Connection:="OLEDB;" & Connection, Destination:=Range("A5"))
.CommandType = xlCmdSql
.CommandText = "exec sp_helpdb"
.Name = "mydata"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
...он должен выводить данные по всем базам, но некоторые базы находятся в off и выводит ошибку не выполняя до конца!!!
КАК МНЕ ОБОЙТИ БАЗЫ КОТОРЫЕ НАХОДЯТСЯ В OFF???:confused:
Connection = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;User ID=Name;Initial Catalog=database;Data Source=NameServ"
With ActiveSheet.QueryTables.Add(Connection:="OLEDB;" & Connection, Destination:=Range("A5"))
.CommandType = xlCmdSql
.CommandText = "exec sp_helpdb"
.Name = "mydata"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
...он должен выводить данные по всем базам, но некоторые базы находятся в off и выводит ошибку не выполняя до конца!!!
КАК МНЕ ОБОЙТИ БАЗЫ КОТОРЫЕ НАХОДЯТСЯ В OFF???:confused: