Sub Макрос1()
 '
 
 ' Макрос1 Макрос
 
 ' Макрос записан 30.06.2004 (Inna)
 
 '
 
 '
 
Dim MyConn As ADODB.Connection
Dim MyRst As ADODB.Recordset
Dim MyPr As String
Dim MyCoord As String
Dim Ct As Long
Set MyConn = New ADODB.Connection
MyPr = "Provider=MSDASQL;DSN=tango;UID=sa;PWD=xxxx;"
MyConn.Open MyPr
Set MyRst = New ADODB.Recordset
MyRst.Open "Select * from TCorp", MyConn, adOpenStatic, adLockReadOnly
Ct =  1 
Do Until MyRst.EOF
MyCoord = "A" & Ct
Worksheets("Лист1").Range(MyCoord).Formula = MyRst( 1 )
MyRst.MoveNext
Ct = Ct +  1 
Loop
    ActiveWorkbook.Save
MyRst.Close
Set MyRst = Nothing
Set MyConn = Nothing
End Sub