VBA通过文件夹循环(mac)

我是VBA的新手,但我正在尝试。

在名为“DataFile.xlsm”(存储在共享networking驱动器上)的Excel for Mac 2011工作簿中,我需要一个清除表单1(名为“Data”)当前内容的macros,然后遍历一个标识的文件夹也在共享networking驱动器(及其子文件夹)上find任何名称以“ Info Sheet ”开头的Excel工作簿。 对于每个这样的工作簿,我需要复制Sheet 1 C2:C12,转置这些单元格,并将它们粘贴到“DataFile”的Sheet 1(名为“Data”)的新行A列中。

我已经搞砸DIR和MacID的东西,但无法弄清楚。 因此,我只能在工作表级别上工作(一个工作簿内的所有数据),但是我需要它在工作簿级别(一个文件夹内的所有数据)工作。

请帮忙。 我已经花了很多时间在这里,并没有得到任何好处。

这是我在工作表级别上的工作:

Sub copy_studentsheets_to_datasheet_withclearing() Dim ws As Worksheet 'clear contents from target sheet Sheets("Data").Select Range("a3:k600").ClearContents Range("a3:k600").ClearFormats 'copy specified range from each worksheet (other than the "Data" worksheet) and paste and transpose to new row in Data worksheet For Each ws In ActiveWorkbook.Worksheets If ws.Name = "Data" Then 'do nothing Else ws.Select Range("C2:C12").Select Selection.Copy Sheets("Data").Select Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1:K1").Select Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True End If Next ws ActiveWorkbook.Save End Sub