VBA练习

oyzjo

Sub Test()
Dim i As Integer
Dim strPath As String
Dim TheSheet As Worksheet
Set TheSheet = ActiveWorkbook.Worksheets("sheet1")
strPath = "E:\可丢\hua"
With Application.FileSearch
       .LookIn = strPath
       .SearchSubFolders = True
       .Filename = "*.*"
      If .Execute > 0 Then
         For i = 1 To .FoundFiles.Count
               'Range("A" & i) = .FoundFiles(i)
               Workbooks.Open (.FoundFiles(i))
               For j = 1 To ActiveWorkbook.Worksheets.Count
                 'ActiveWorkbook.Worksheets(i).Cells(1, 1).Value = "a"
                 ActiveWorkbook.Worksheets(j).UsedRange.Copy
                 While TheSheet.Range("a" & iRow).Value <> ""
                    iRow = iRow + 1
                 Wend
                 TheSheet.Range("A" & iRow).Paste
                 ActiveWorkbook.Save
                 ActiveWorkbook.Close
               Next j
         Next i
      End If
End With
End Sub

rmsc_kr

已经看不懂了
{:011:}

2288liu

不
懂啊