GetOpenFilename çoklu seçim hk.

[tamer42]

Merhaba,

Aşağıdaki 1. kodu;
2. koddaki örnekte olduğu bibi for each ................... next döngüsü içinde yazmak istersek nasıl bir düzenleme yapmamız gerekir?

1.

Sub test12()

Dim fileToOpen As Variant
    Dim strFileName As String
    Dim i As Long
    Dim str As String


fileToOpen = Application.GetOpenFilename(MultiSelect:=True)

    If IsArray(fileToOpen) Then

        For i = LBound(fileToOpen) To UBound(fileToOpen)
       
            strFileName = fileToOpen(i)
           
        Next i
    Else
          MsgBox "Dosya seçilmedi!"
    End If
   
End Sub

--------------------------------
2.

   Dim yol As String
Set fso = VBA.CreateObject("scripting.filesystemobject")
yol = "C:\Users\User1\Desktop\Eğitim\Mali_Veri\"

For Each kls In fso.getfolder(yol).Files

uzanti = fso.GetExtensionName(kls.Path)

If uzanti = "xlsx" Then

end if

next kls

ilginize şimdiden teşekkürler,
iyi Çalışmalar.

 

[Necdet]

Merhaba,
Deneyiniz.

Sub test12()

    Dim FileToOpen As Variant
    Dim FileName As Variant
    
    
    FileToOpen = Application.GetOpenFilename(MultiSelect:=True)
    
        If IsArray(FileToOpen) Then
    
            For Each FileName In FileToOpen
                MsgBox FileName
            Next FileName
        Else
            If FileToOpen = True Then
                MsgBox FileToOpen
            Else
                MsgBox "Dosya Seçilmedi.."
            End If
        End If
      
End Sub

 

[tamer42]

Merhaba,
Deneyiniz.

Sub test12()

    Dim FileToOpen As Variant
    Dim FileName As Variant
   
   
    FileToOpen = Application.GetOpenFilename(MultiSelect:=True)
   
        If IsArray(FileToOpen) Then
   
            For Each FileName In FileToOpen
                MsgBox FileName
            Next FileName
        Else
              MsgBox "Dosya seçilmedi!"
        End If
     
End Sub

Teşekkürler Necdet Hocam

 

[Necdet]

Merhaba,
Kodu yeniledim, tek seçim olduğunda siz dosya seçilmedi mesajını veriyorsunuz, onu düzelttim.