Использование ссылки на ячейку в строке подключения

Question

Я использую приведенную ниже строку подключения в своем excel VBA. Но мне нужно настроить его таким образом, чтобы база данных и сервер были выбраны из ячейки, такой как A $ 1 $. Поэтому я могу изменить данные базы данных, когда захочу.

Function Connect(Server As String, _ 
       Database As String) As Boolean 

    Set CN = New ADODB.Connection 
    On Error Resume Next 

    With CN 
     ' Create connecting string 
     .ConnectionString = "Provider=SQLOLEDB.1;" & _ 
          "Integrated Security=SSPI;" & _ 
          "Server=" & Server & ";" & _ 
          "Database=" & Database & ";" 
     ' Open connection 
     .Open 
    End With 
    ' Check connection state 
    If CN.State = 0 Then 
     Connect = False 
    Else 
     Connect = True 
    End If 

End Function 

Заранее спасибо

Answer 1

Что-то вроде:

Sub check_database_connectivity() 
    Dim server_name As String 
    Dim database_name As String 

    server_name = ActiveSheet.Range("A1").Value 
    database_name = ActiveSheet.Range("A2").Value 

    If Connect(server_name, database_name) = True Then 
     'do something 
    End If 
End Sub