Sub AddMultipleFileNamesToSheet() Dim ws As Worksheet Dim selectedCell As Range Dim fileDialog As fileDialog Dim filePath As Variant Dim fileName As String Dim i As Integer Set ws = ActiveSheet Set selectedCell = Application.Selection Set fileDialog = Application.fileDialog(msoFileDialogFilePicker) With fileDialog .AllowMultiSelect = True .Title = "Select Files" .Filters.Clear .Filters.Add "All Files", "*.*" If .Show = -1 Then i = selectedCell.Row For Each filePath In .SelectedItems fileName = Dir(filePath) ws.Cells(i, selectedCell.Column).Value = fileName i = i + 1 Next filePath End If End With End Sub
@mohamedeid1993
3 ай бұрын
الله ينور عليك يا هندسه ❤
@QuantitiesSurveying
3 ай бұрын
@@mohamedeid1993 🌺🌺
@mohamedeid1993
3 ай бұрын
لو حابب اعمل العكس يا هندسه يعني لو عندي بقي اسامي موحوده في خلايا الاكسيل وعايز اسمي بيها مجموعه ملفات بنفس الترتيب
@QuantitiesSurveying
3 ай бұрын
@@mohamedeid1993 حاضر يا هندسة بسيطة ان شاء الله هابقى اعمل فيديو مخصوص للحوار دة
Пікірлер: 5