access to excel
i'm trying to view some data from access in excel. i'm using code found
on this site written in excel as shown below but excel seems to fail to recognise the datatype "Database". Any ideas? Sub DAOCopyFromRecordSet() '"C:\db1.mdb" As _ String, "dbt_Pruefbericht" As String, "dbf_MessDaten" As _ String, Range("A1") As Range) ' Example: DAOCopyFromRecordSet "C:\FolderName\db1.mdb", "TableName", "FieldName", Range("C1") Dim db As Database Dim rs As Recordset Dim intColIndex As Integer Set TargetRange = TargetRange.Cells(1, 1) Set db = OpenDatabase("C:\db1.mdb") Set rs = db.OpenRecordset("dbt_Pruefbericht", dbOpenTable) _ ' all records 'Set rs = db.OpenRecordset("SELECT * FROM " & TableName _ & " WHERE " & FieldName & " = 'MyCriteria'", dbReadOnly) ' filter _ records ' write field names For intColIndex = 0 To rs.Fields.Count - 1 TargetRange.Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name Next ' write recordset TargetRange.Offset(1, 0).CopyFromRecordset rs Set rs = Nothing db.Close Set db = Nothing End SubDatabase |
access to excel
cheers Tom it now recognises Database as well as other objects
|
All times are GMT +1. The time now is 07:28 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com