Solved Export from Ms Access form in to Excel (1 Viewer)

[skdn71]

Hello,

Could you please help how to exporting search results in to xlsx file, with below vba i get empty result on excel

see attachement

Private Sub Command91_Click()
DoCmd.OutputTo acOutputForm, "Listproduct", acFormatXLSX, "C:\Data\export.xlsx", True
End Sub

Private Sub txtSearch_KeyUp(KeyCode As Integer, Shift As Integer)
    Me.frmlistprod.Form.Filter = "[ItemCode]Like '*" & Me.txtSearch.Text & "*' or" _
    & "[ItemDescription]Like '*" & Me.txtSearch.Text & "*' or" _
    & "[PPU]Like '*" & Me.txtSearch.Text & "*'"
    Me.frmlistprod.Form.FilterOn = True
End Sub

 

[theDBguy]

Check out Excel automation and the CopyFromRecordset method.

 

[Uncle Gizmo]

First you need to turn your filter into a query and then you can use B tab development code here:-

Export A Table Or Query To Excel | BTAB Development

Copy this code into a standard (not form or report) module. Name the module something other than this function name and make sure to set a reference to DAO if you don't already have one. Public Function SendTQ2Excel(strTQName As String, Optional strSheetName As String) ' strTQName is the name of...

btabdevelopment.com

I also have several blogs demonstrating the above code on my website:-

Export to excel - Nifty Access

www.niftyaccess.com

 

[Gasman]

Look at TransferSpreadSheet perhaps?

 

[arnelgp]

here try your export form.

 

[skdn71]

Dear arnelgp,

Thank you is working ! Well Done

​