嘿，这个需求其实挺简单的，咱们直接针对核心部分调整就行！原来的宏是用当前文件路径作为文件对话框的初始位置，现在只要改成从指定单元格读取路径，再把这个路径传给对话框的初始位置参数就搞定了。

核心修改步骤 #

• 先从你指定的单元格（比如Sheet1的A1）读取文件夹路径
• 加个简单的有效性检查，避免路径为空或无效时出问题
• 把读取到的路径传给GetOpenFilename的InitialFileName参数

修改后的完整示例代码 #

Sub ImportFromSpreadsheet()
    Dim folderPath As String
    Dim filePath As Variant
    
    ' 替换成你的目标工作表和单元格，比如这里用Sheet1的A1存储路径
    folderPath = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    
    ' 检查路径是否有效：如果单元格为空，或者路径不存在，就 fallback 到当前文件路径
    If folderPath = "" Or Dir(folderPath, vbDirectory) = "" Then
        folderPath = ThisWorkbook.Path
        MsgBox "指定单元格的路径无效，将自动使用当前文件所在路径作为初始位置"
    End If
    
    ' 打开文件对话框，初始位置设为读取到的文件夹
    filePath = Application.GetOpenFilename( _
        FileFilter:="Excel Files (*.xlsx;*.xls), *.xlsx;*.xls", _
        Title:="选择数据源文件", _
        InitialFileName:=folderPath ' 这行是关键修改！
    )
    
    If filePath <> False Then
        ' 这里放你原来的导入数据逻辑，比如打开文件、复制数据等
        MsgBox "已选中文件: " & filePath
    End If
End Sub

注意事项 #

• 一定要替换代码里的工作表名和单元格地址，改成你实际存储路径的位置，比如如果路径存在"设置"工作表的B2单元格，就改成ThisWorkbook.Sheets("设置").Range("B2").Value
• 单元格里的路径不需要强制加结尾的斜杠（比如C:\Data和C:\Data\都可以），Excel会自动处理
• 加上路径检查是为了提升用户体验，避免因为单元格内容错误导致对话框跳转到系统默认的"我的文档"位置

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