We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Function modImportExport_OpenFile(strFileExtension As String, Optional bolAllowMultiSelect As Boolean = False) ' the input is used do set the filtering on the dialog box ' Returns Filename/Path OR Canceled Dim objfd As Object Dim vrtSelectedItem As Variant Dim strExtType As String Set objfd = Application.FileDialog(3) Select Case strFileExtension Case "xls", "xlsx" strExtType = "*.xls,*.xlsx" Case "txt", "asc", "csv" strExtType = "*.txt,*.acs,*.csv,*.prn" Case Else strExtType = "*.*" End Select With objfd .Title = "Please Select Your File" .AllowMultiSelect = bolAllowMultiSelect .Filters.Clear .Filters.Add "Files", strExtType, 1 If .show = -1 Then For Each vrtSelectedItem In .SelectedItems 'Return File Name and Path modImportExport_OpenFile = vrtSelectedItem '<< Something needs to happen here to put selected files (1 or more) into an array to return Next vrtSelectedItem Else 'The user pressed Cancel. modImportExport_OpenFile = "Canceled" End If End With 'Set the object variable to Nothing. Set objfd = Nothing End Function
|Convert HTML file to PDF (via MS Access)||3||32|
|How to have several copies of the same forms open simultaneously||9||36|
|Macro/VBA to send email based on criteria being met from form||1||37|
|get and set file atrributes||5||8|