下面一段EXCEL VBA代码请大家们帮我看看，是什么意思。。帮我解释一下也行，最好能帮我转成VB语句
Dim WST(1) As Worksheet
Dim Obj(1) As Object
Dim RNG(0) As Range
Dim Cou(0) As Integer
Dim Row(1) As Integer
Dim Col(1) As Integer

Sub Practice()

    Set WST(0) = ThisWorkbook.Sheets("Data")
    Set WST(1) = ThisWorkbook.Sheets("Result")
    Set RNG(0) = WST(0).Range("E1")
   
    Set Obj(0) = CreateObject("Shell.Application").BrowseForFolder(0, "", 0)
    If Not Obj(0) Is Nothing Then
        Set Obj(1) = CreateObject("Shell.Application").BrowseForFolder(0, "", 0)
        With Application.FileSearch
            .NewSearch
            .LookIn = Obj(0).Items.Item.Path
            .Filename = "*.csv"
            For Cou(0) = 1 To .Execute
                WST(0).Cells.ClearContents
                WST(1).Range("B3:AW14").ClearContents
               
                Workbooks.Open .FoundFiles(Cou(0))
                Workbooks(Dir(.FoundFiles(Cou(0)))).Sheets(1).Cells.Copy
                WST(0).Range("A1").PasteSpecial
                Application.DisplayAlerts = False
                Workbooks(Dir(.FoundFiles(Cou(0)))).Close SaveChanges:=False
               
                WST(1).Activate
                WST(1).Range("A1").Select


                这中间是显示内容我懂得



                WST(1).Copy
                Workbooks(Workbooks.Count).Close SaveChanges:=True, _
                Filename:=Obj(1).Items.Item.Path & "\" & _
                Left(Dir(.FoundFiles(Cou(0))), Len(Dir(.FoundFiles(Cou(0)))) - 4) & ".xls"
            Next
        End With
    End If