Export with a list box

Jollywg

I'm trying to figure out how to export based on a list box. here is the code that i have, and for some reason its not working.

Expand|Select|Wrap|Line Numbers

 If (lstExport.Selected(1) = vbTrue) Then

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "tblSaveMVROutlets", "C:\Maps_MVRs\Append_Work_Files\Analysis\MVRs_Outlets_Export.xls", True

    MsgBox "Exported", vbOKOnly

    End If

End Sub

Any help would be greatly appreciated

ADezii

To efficiently process Selected Items in a List Box, use this code as a Template:

Expand|Select|Wrap|Line Numbers

 Dim varItem As Variant
 
With Me![lstExport]

  'Make sure at leats 1 Item is selected

  If .ItemsSelected.Count > 0 Then

    For Each varItem In .ItemsSelected

      'Process entry in the Bound Column

      Debug.Print .Column(0, varItem)

    Next

  Else

    Exit Sub

  End If

End With

Export with a list box

re: Export with a list box

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about