Sub RecordS()
With Worksheets("Лист1").Range("А1")
.Recordset = OpenDatabase("O:\Sales.mdb")
.OpenRecordset ("Клиент")
.CopyFromRecordset ("Клиент")
End With
End Sub
Говорит что Sub or Function Not Defined указывая на метод OpenDatabase.
Что не так?
With Worksheets("Лист1").Range("А1")
.Recordset = OpenDatabase("O:\Sales.mdb")
.OpenRecordset ("Клиент")
.CopyFromRecordset ("Клиент")
End With
End Sub
Говорит что Sub or Function Not Defined указывая на метод OpenDatabase.
Что не так?