Experts Exchange connects you with the people and services you need so you can get back to work.
Dim strSrc As String
Dim strFilter As String
Dim rs As Recordset
Dim oXL As Object
Dim oWkb As Object
Dim rng As Object
Dim fld As Field
strSrc = Application.Screen.ActiveDatasheet.Recordset.Name
strFilter = Application.Screen.ActiveDatasheet.Filter
Set rs = DBEngine(0)(0).OpenRecordset("Select * From " & strSrc & " Where " & strFilter)
Set oXL = CreateObject("Excel.Application")
Set oWkb = oXL.Workbooks.Add
oXL.Visible = True
Set rng = oWkb.Worksheets("Sheet1").Range("A1")
For Each fld In rs.Fields 'headers
rng.Value = fld.Name
Set rng = rng.Offset(0, 1)
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.