Нижеприведенный макрос не работает, из-за ошибки синтаксиса )="EUR" - т.к. внутри кавычек появляются кавычки - как решить эту проблему - посмотрите файл, не забудьте подключить библиотеку DAO
Sub ImportSQLFromBD()
Dim BD As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
strSQL = "SELECT ForexQuotes.Котировка, ForexQuotes.OPEN" & _
"FROM ForexQuotes" & _
"WHERE (((ForexQuotes.Котировка)="EUR"));"
Set BD = OpenDatabase(ThisWorkbook.Path & "\BD.mdb")
Set rs = BD.TableDefs("ForexQuotes").OpenRecordset(dbOpenDynaset)
ThisWorkbook.Worksheets("Лист1").Range("A1").CopyFromRecordset rs
End Sub
Sub ImportSQLFromBD()
Dim BD As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
strSQL = "SELECT ForexQuotes.Котировка, ForexQuotes.OPEN" & _
"FROM ForexQuotes" & _
"WHERE (((ForexQuotes.Котировка)="EUR"));"
Set BD = OpenDatabase(ThisWorkbook.Path & "\BD.mdb")
Set rs = BD.TableDefs("ForexQuotes").OpenRecordset(dbOpenDynaset)
ThisWorkbook.Worksheets("Лист1").Range("A1").CopyFromRecordset rs
End Sub