VBA问题：多选文件后无法将文件名/路径依次写入指定Excel单元格

看起来你已经开启了文件对话框的多选功能，但问题出在没处理选中的文件集合——当AllowMultiSelect = True时，fd.SelectedItems是一个包含所有选中文件的集合，直接取第一个元素自然只会写入第一个文件啦。

下面是修改后的完整代码，帮你实现多选文件后依次写入Excel单元格：

Sub SelectAndWriteFiles()
    Dim fd As FileDialog
    Dim fileItem As Variant
    Dim startCell As Range
    Dim counter As Integer
    
    ' 初始化文件对话框与写入起始单元格
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Set startCell = ThisWorkbook.Sheets("Sheet1").Range("A1") ' 替换成你指定的起始单元格
    counter = 0 ' 用来控制写入的位置偏移
    
    With fd
        .AllowMultiSelect = True
        .Filters.Clear
        .Filters.Add "All files", "*.*", 1
        .Filters.Add "SIG Files", "*.SIG"
        .Filters.Add "FLG Files", "*.FLG"
        .Filters.Add "TCS Files", "*.TCS"
        .Filters.Add "ROU Files", "*.ROU"
        .Title = "请选择需要导入的文件" ' 可选：给对话框加个标题
        
        ' 如果用户确认选择文件
        If .Show = -1 Then
            ' 遍历所有选中的文件
            For Each fileItem In .SelectedItems
                ' 写入到起始单元格的偏移位置（这里是逐行写入，要逐列的话把Offset(counter,0)改成Offset(0,counter)）
                startCell.Offset(counter, 0).Value = fileItem
                counter = counter + 1 ' 偏移量加1，准备写下一个文件
            Next fileItem
        Else
            ' 用户取消选择时的提示
            MsgBox "你取消了文件选择操作"
        End If
    End With
    
    ' 释放对象，避免内存占用
    Set fd = Nothing
    Set startCell = Nothing
End Sub

关键修改说明： #

• 新增fileItem变量，用For Each...Next循环遍历fd.SelectedItems集合，确保每个选中的文件都被处理
• 用counter和startCell.Offset()控制写入位置，实现文件名依次排列（逐行/逐列可按需调整）
• 增加了用户取消选择的判断逻辑，交互更友好

额外小技巧： #

如果只想写入文件名（不含路径），可以把赋值语句改成：

startCell.Offset(counter, 0).Value = Mid(fileItem, InStrRev(fileItem, "\") + 1)

内容的提问来源于stack exchange，提问作者baash