Karam | Blog

Dim c_ As ADODB.Connection
Dim r_ As ADODB.Recordset
Set c_ = New ADODB.Connection
With c_
           .Provider = "Microsoft.Jet.OLEDB.4.0"
           .ConnectionString = "Data Source=C:/base.xls;" & _
           "Extended Properties=Excel 8.0;"
           .CursorLocation = adUseClient
           .Open
End With
Set r_ = New ADODB.Recordset r_.CursorLocation = adUseClient
  sql = "select * from [Hoja1$] WHERE [Hoja1$].COD = 'GPO2' and [Hoja1$].MES = 2 order by [Hoja1$].IMPORTE DESC"
r_.Open sql, c_, adOpenDynamic, adLockOptimistic
If r_.RecordCount > 0 Then
     'Mostramos las columnas del primer regisro del RecordSet
     MsgBox r_(0).Value & Chr(13) & r_(1).Value & Chr(13) & r_(2).Value & Chr(13) & r_(3).Value & Chr(13) & r_(6).Value
End If

Export.FormatType = 1 ' Crystal Report
Export.FormatType = 2  ' Data Interchange
Export.FormatType = 3  ' Record Style
Export.FormatType = 5  ' Comma seperated values
Export.FormatType = 6  ' Tab seperated values
Export.FormatType = 7  '; Character seperated values
Export.FormatType = 8  ' Text
Export.FormatType = 9  ' Tab seperated text
Export.FormatType = 10  ' Paginated Text
Export.FormatType = 11  ' Lotus 123WKS
Export.FormatType = 12  ' Lotus 123WK1
Export.FormatType = 13  ' Lotus 123WK3
Export.FormatType = 14  ' Word for Windows
Export.FormatType = 21  ' Excel 5.0
Export.FormatType = 22  ' Excel 5.0 tabular
Export.FormatType = 23  ' ODBC
Export.FormatType = 24  ' HTML32 standard
Export.FormatType = 25  ' Explorer32 Extend
Export.FormatType = 27  ' Excel 7.0
Export.FormatType = 28  ' Excel 7.0 tabular
Export.FormatType = 29  ' Excel 8.0
Export.FormatType = 30  ' Excel 8.0 tabluar
Export.FormatType = 31  ' Portable Document format (PDF)
Export.FormatType = 32  ' HTML40
Export.FormatType = 33  ' Crystal Report 7.0
Export.FormatType = 34  ' Report definition
Export.FormatType = 35  ' Exact Rich Text
Export.FormatType = 36  ' XML

        Report.ParameterFields(0).AddCurrentValue   Empty
        Report.ParameterFields(0).EnableNullValue = True