从其他工作薄导入数据vba

nnsea

Sub 导入数据()
    Workbooks.Open Filename:="C:\Users\无名海\Desktop\销售分析\销售数据.csv"
    Range("I15").Select
    Windows("天猫淘宝销售万能分析.xlsm").Activate
    Range("a1").Select
    Windows("销售数据.csv").Activate
    Range("A1:BF1054").Select
    Range("C3").Activate
    Selection.Copy
    Windows("天猫淘宝销售万能分析.xlsm").Activate
    Sheets("1-导入数据").Select
    Range("导入数据[订单编号]").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A6").Select
End Sub