Tag: 夹子

获取目录文件夹名称和只有Upto 2子文件夹名称

我想从目录中获取文件夹的名称，并从该目录中获取任何子文件夹的名称。 所以它是主目录 – >文件夹名称 – > SubFolder1 – > SubFolder2 下面的代码获取所有的文件夹和子文件夹名称。我从这里得到的代码。 任何想法我怎么能限制只有两个子文件夹？ Option Explicit Sub FolderNames() Application.ScreenUpdating = False Dim xPath As String Dim xWs As Worksheet Dim fso As Object, j As Long, folder1 As Object With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Choose the folder" .Show End With On Error Resume Next xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & […]

Python：总结保存在不同文件夹中的xlsx文件的值

假设我有一个包含20个子文件夹的主文件夹。 每个子文件夹只包含一个xlsx文件。 我想总结位于每个xlsx文件的列A中的所有值，从而获得sub folder-sum value配对。 然后我想重复这个多次的主文件夹。 例： MAIN FOLDER 1 SUB FOLDER 1 SUB FOLDER 2 file1.xlsx file2.xlsx A1 17 A1 20 A2 32 A2 30 A3 24 A3 10 相应的结果是： MAIN FOLDER 1 sum1 = 17+32+24 = 73 -> Pairing 1= Sub folder 1; 73 sum2 = 20+30+10 = 60 -> Pairing 2= Sub […]

将现有的VBS文件夹search应用到子文件夹？

我正在使用下面的代码search一个文件夹的文件名，打开文件运行一个Excelmacros，保存文件，并closures。 我想扩大这个循环通过子文件夹，并做同样的事情。 应该只有一层子文件夹，但该层中有多个文件夹。 dir = "C:\Users\ntunstall\Desktop\test" Sub RunMacroAndSaveAs(file, macro) Set wb = app.Workbooks.Open(file) app.Run wb2.Name & "!" & macro wb.SaveAs fso.BuildPath(file.ParentFolder, fso.GetBaseName(file) & ".xlsm"), 52 wb.Close End Sub Set fso = CreateObject("Scripting.FileSystemObject") Set app = CreateObject("Excel.Application") app.Visible = False app.DisplayAlerts = False Set wb2 = app.Workbooks.Open("C:\Users\ntunstall\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB") For Each file In fso.GetFolder(dir).Files If InStr(file.Name, "OPS") > […]