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) & […]

使用VBA FileSystemObject，指定文件的文件扩展名

我正在使用下面的代码来从文件夹及其子文件夹中列出所有带有xls，xlsx或xlsm扩展名的文件。 下面的代码工作，但问题是，它列出所有从子文件夹扩展名的文件，但只列出主文件夹中的Excel文件。 我无法弄清楚这个代码有什么问题。 你可以帮我吗？ Sub List_XL_Files(ByVal SheetName As String, ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean) Dim FSO As Object Dim SourceFolder As Object Dim SubFolder As Object Dim FileItem As Object Dim lRoMa As Long Set FSO = CreateObject("Scripting.FileSystemObject") Set SourceFolder = FSO.GetFolder(SourceFolderName) lRoMa = ThisWorkbook.Sheets(SheetName).Cells(Rows.Count, 2).End(xlUp).Row + 1 ReDim arrFolders(ctr) With ThisWorkbook.Sheets(SheetName) […]

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") > […]

使用vba将文件从一个文件夹复制到另一个文件夹

关于这个话题有一些类似的post，我知道。 但是，我有一个代码，这个代码与我在这里看到的所有代码都不一样（当谈论这个主题的时候）。 我收到的错误是说，该文件找不到。 但是这是不可能的，因为我在fso.CopyFile中使用SOURCE的文件夹中search文件。 所以我必须解决这个错误，如果可能的话，我想将文件复制到另一个文件夹并更改名称。 例如，如果我有文件“Excel.xls”，我想复制名称“Excel_old.xls”，使用下面的代码是可能的，还是太难了，它不值得？ 这是代码： Sub CopyFiles() 'Macro to copy all files modified yesterday Dim n As String, msg As String, d As Date Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Set fils = fso.GetFolder("C:\Users\Desktop\Files\").Files 'Verify all files in the folder, check the modification date and then copy 'to another folder (named […]

VBAmacros列出多个文件夹中的文件

我有下面的代码，我想获得水平列出的各种文件夹中的文件。 我怎样才能修改这段代码，以便列A中给定的文件path，我得到列C列中的文件？ 我的知识只允许我做一个文件夹（而不是我想看的150） `enter code here` Sub ListFiles() iCol = 3 Call ListMyFiles(Range("A5"), Range("B5")) End Sub Sub ListMyFiles(mySourcePath, IncludeSubfolders) Set MyObject = New Scripting.FileSystemObject Set mySource = MyObject.GetFolder(mySourcePath) On Error Resume Next For Each myFile In mySource.Files iRow = 5 Cells(iRow, iCol).Value = myFile.Name iCol = iCol + 1 Next If IncludeSubfolders Then For Each […]