GetOpenFilename multiselect

[Emily]

The code below does not work when the first With is marked as remark, any idea?

Thanks
Emily

Sub DisplayFiles()

    Dim FileNames As Variant
    Dim i  As Integer
    'With Application
    '    .DisplayAlerts = False
    '    .EnableEvents = False
    '    .ScreenUpdating = False
    'End With
    
    FileNames = Application.GetOpenFilename("Excel Files,*.xls", , , , True)
        
    If IsArray(FileNames) Then
        For i = LBound(FileNames) To UBound(FileNames)
             MsgBox FileNames(i)
        Next i
    End If
    With Application
        .DisplayAlerts = True
        .EnableEvents = True
        .ScreenUpdating = True
    End With

End Sub

 

[robinlavoie]

Hello,

I don't see anything wrong with your code. I tried it. No problem. I use Office 2000.

RL

 

[Mudface]

Not sure quite what the problem is, but this seems to work fine-

Sub DisplayFiles()
    Dim FileNames As Variant
    Dim i  As Integer
    
    With Application
        .DisplayAlerts = False
        .EnableEvents = False
        .ScreenUpdating = False
        
        FileNames = .GetOpenFilename("Excel Files,*.xls", , , , True)
        
        If IsArray(FileNames) Then
            For i = LBound(FileNames) To UBound(FileNames)
             MsgBox FileNames(i)
            Next i
        End If
    
        .DisplayAlerts = True
        .EnableEvents = True
        .ScreenUpdating = True
    End With

End Sub

 

[Emily]

My Testing enviorment is WinMe + Office Xp

 

[Norie]

Emily

Works for me with or without the first With being commented out.

I'm running Excel 2000 on Windows 98.

What is the actual problem you are having?

Are you actually using this code to work with the files selected?

 

[Emily]

It cannot show message box twice when 2 files were selected. It works fine when the comment are removed

I am running on Chinese Window WinMe + Office Xp

 

[Emily]

It needs to add Application.ScreenUpdating = False if the code is stored in a worksheet which have conditional formatting. Reason unknown.


Please read:

http://www.mcse.ms/message472480.html