求大佬帮忙看看改如何修改一下

从一个表格中读取数据比如 A1:K10000 然后再粘贴到当前工作表A2
Sub GetData_2()
Dim WB As Workbook, SHT As Worksheet
Set WB = GetObject(C:\Users\j1558\Downloads\grafana_data_export.csv)
Set SHT = WB.Worksheets(1)
For i = 3 To 10
Sheets(3).Cells(i, 1) = SHT.Cells(i, 3)
Next i
网页链接
Set WB = Nothing
MsgBox "OK"
End Sub