VBA复制文件(如CSV)

Sub copyfile()
    Dim fso As Object, sf$, df$
    Dim fileNameObj As Variant
    Dim i As Integer
     fileNameObj = Application.GetOpenFilename("CSV 文件 (*.CSV),*.CSV")
    If fileNameObj <> False Then
        
    Else
        MsgBox "请选择件"
    End If
    sf = fileNameObj
    df = ThisWorkbook.Path & "\源数据.CSV"
    FileCopy sf, df

End Sub