VBA代码报错求助：实现用户选择CSV并复制首表至活动工作簿

你遇到的下标越界错误，核心原因是**Application.GetOpenFilename返回的是文件完整路径，而非已打开工作簿的名称**，且你没有先打开这个CSV文件就直接用Workbooks(FileToOpen)去访问，自然找不到对应的工作簿对象。

以下是修正并优化后的代码，完全匹配你的需求：

Sub Popular()
    Dim FileToOpen As Variant
    Dim sourceWB As Workbook
    Dim targetWS As Worksheet
    Dim sourceDataRange As Range
    
    ' 弹出文件选择窗口，仅允许选择CSV文件
    FileToOpen = Application.GetOpenFilename( _
        Title:="Please Choose the RTCM File", _
        FileFilter:="CSV Files (*.csv), *.csv")
    
    ' 用户取消选择时退出
    If FileToOpen = False Then
        MsgBox "No file specified.", vbExclamation, "Duh!!!"
        Exit Sub
    End If
    
    ' 引用当前工作簿的活动工作表作为目标
    Set targetWS = ThisWorkbook.ActiveSheet
    ' 清空目标工作表原有数据
    targetWS.UsedRange.ClearContents
    
    ' 打开选中的CSV文件，禁止弹窗提示
    Application.ScreenUpdating = False
    Set sourceWB = Workbooks.Open(Filename:=FileToOpen, ReadOnly:=True)
    
    ' 获取第一个工作表的全部已用数据范围（适配未知表名）
    Set sourceDataRange = sourceWB.Sheets(1).UsedRange
    
    ' 直接将值复制到目标工作表，无需激活/复制粘贴
    targetWS.Range("A1").Resize(sourceDataRange.Rows.Count, sourceDataRange.Columns.Count).Value = sourceDataRange.Value
    
    ' 关闭源CSV文件，不保存更改
    sourceWB.Close SaveChanges:=False
    Application.ScreenUpdating = True
End Sub

关键改动说明： #

• 用Workbooks.Open打开文件：通过返回的工作簿对象sourceWB直接操作，彻底避免路径/名称匹配错误
• 使用Sheets(1)访问第一个工作表：无需知道表名，完美适配CSV文件只有一个工作表的特性
• 取消Activate操作：直接通过对象引用操作工作表，代码更高效、稳定，避免因窗口切换导致的错误
• 直接赋值替代复制粘贴：比Copy/PasteSpecial更快，且不会影响剪贴板内容
• 添加ScreenUpdating控制：执行过程中隐藏Excel界面刷新，提升运行速度

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