Dim rep As Report
Dim xlapp As Object
Dim ws As Worksheet
Sub test()
Set rep = Application.ActiveDocument.Reports.Item(1)
rep.ExportAsText ("c:\test.xls")
End Sub
This shud work
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.