为何VBA宏无法导入无扩展名文件？如何修改代码支持全类型文件导入

原代码的核心问题在于硬编码了带.txt扩展名的文件路径，且未针对无扩展名文件做适配。下面是修正后的代码，同时解决了原代码里的变量未声明、行号计算错误等潜在问题：

Option Explicit

Sub Import_SD2()
    Dim filePath As String
    Dim wsTarget As Worksheet
    Dim lastRow As Long
    Dim fileContent As String
    Dim rows() As String
    Dim rowNum As Long
    Dim textline As String
    Dim totalRows As Long
    
    ' 打开文件选择对话框，允许选择所有类型文件（包括无扩展名）
    filePath = Application.GetOpenFilename("所有文件 (*.*), *.*", Title:="选择要导入的文件")
    If filePath = "False" Then Exit Sub ' 用户取消选择则退出
    
    Set wsTarget = ThisWorkbook.Sheets("SD")
    
    ' 清空指定区域
    wsTarget.Range("A3:XY5000").ClearContents
    ' 获取当前数据最后一行（假设A1-A2是表头）
    lastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
    
    ' 使用FileSystemObject读取文件内容，无扩展名文本文件可正常读取
    With CreateObject("Scripting.FileSystemObject").OpenTextFile(filePath, 1, False, -2) ' -2代表系统默认编码
        fileContent = .ReadAll
        .Close
    End With
    
    ' 按换行符拆分内容
    rows = Split(fileContent, vbCrLf)
    
    ' 循环处理每一行数据（从第一行有效数据开始）
    For rowNum = LBound(rows) To UBound(rows)
        textline = Trim(rows(rowNum))
        ' 跳过空行
        If textline <> "" Then
            lastRow = lastRow + 1
            ' 提取前4个字符并写入A列
            wsTarget.Cells(lastRow, 1) = Trim(Mid(textline, 1, 4))
            totalRows = totalRows + 1
        End If
    Next rowNum
    
    ' 自动调整列宽
    wsTarget.UsedRange.Columns.AutoFit
    
    MsgBox "共导入 " & totalRows & " 行数据", vbInformation
End Sub

关键修改说明： #

• 文件选择适配：用Application.GetOpenFilename替代硬编码路径，设置过滤器为*.*，允许选择无扩展名文件
• 变量声明：添加Option Explicit强制变量声明，避免隐式变量导致的错误
• 编码兼容：OpenTextFile最后一个参数设为-2（系统默认编码），避免无扩展名文件因编码问题无法读取
• 行号修正：调整lastRow的更新逻辑，确保数据从清空后的下一行开始写入，不会跳过行或出现行号混乱
• 空行处理：添加空行判断，避免导入无效的空数据行

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