Big Time Help...

[daniribs7]

Can't get this to work, could somebody please help me out, to export my report out as an excel file from the Macro:

Sub BANCO_AUSTRAL()

Dim Doc As Document
Dim Rep As Report
Application.Documents.Open ("c:\BalancsvSheet.rep&quot
Application.Documents.Open("c:\BalancsvSheet.rep&quot.Application.Documents.Open("c:\BalancsvSheet.rep&quot.Reports.Item("c:\BalancsvSheet.rep&quot.ExportAsText ("C:\TEMP\Test" + ".xls&quot
Application.Documents.Open("c:\BalancsvSheet.rep&quot.Close

MsgBox ("COMPLETE. THANK YOU&quot
End Sub

 

[daniribs7]

Does anybody know how to solve this?

I need a solution to this ASAP.

 

[Sridharan]

I really don't understand your coding as to what it is doing. But in a nutshell if you want to export a report to excel with the formating then it is a big working. But with ExportAsText what you are doing is exporting the report as a text file but only thing here is the file extension will be xls. Have a look at the coding below.

Sub Test()
ActiveDocument.ActiveReport.ExportAsText ("C:\\Test.xls")
End Sub

Call this macro and it will export the current report to XLS file. No need for you to open the report explicitly.

Good Luck
Sri

 

[blom0344]

Look here:

http://www.IntegraSolutions.net/download/ExportExcelMail.zip

T. Blom
Information analyst
tbl@shimano-eu.com