這個問題不應該很複雜。我有一個大文件夾,裏面有200個單獨的文件夾。現在,每個文件夾都有一個Excel表格。我想在控制文件夾(200旁邊)的vba文件中有一些代碼,它可以迭代200個文件夾並更改每個excel文件中的一位數據。我發現目錄的東西和文件夾迭代,但我無法在這裏和那裏合併它們,我需要一些簡單的幫助。如何編輯多個excel文件,每個文件位於一個文件夾中的不同文件夾中
我的代碼目前是:`子的button1_Click()
Dim wb As Workbook
Dim ws As Excel.Worksheet
Dim iIndex As Integer
Dim strPath As String
Dim strFile As String
'Get the directories
strPath = "C:\Users\generaluser\Desktop\testing main folder\"
strFile = Dir(strPath, vbDirectory)
'Loop through the dirs
Do While strFile <> ""
'Open the workbook.
strFileName = Dir(strPath & strFile & "New Microsoft Excel Worksheet.xlsm", vbDirectory)
'Open the workbook.
Set wb = Workbooks.Open(Filename:=strPath & strFile & "\" & strFileName, ReadOnly:=False)
'Loop through the sheets.
Set ws = Application.Worksheets(1)
'Do whatever
'Close the workbook
wb.Close SaveChanges:=True
'Move to the next dir.
strFile = Dir
Loop
末次 `
請幫@MatthewD
如果你沒有向我們展示你編寫的代碼以使它工作,那麼這很複雜。從概念上講,它可能很簡單,就是這樣,但是沒有代碼,我們沒有辦法可以夢想爲項目框架着色所需的具體細節。如果您發佈了您嘗試過的代碼,我們可以幫助您進行編輯。沒有多少人願意爲你做。 –
好吧,我不確定從哪裏開始。我知道代碼需要先抓住主文件夾,然後遍歷每個文件夾。然後對於我知道的每個文件夾,需要製作工作簿,然後調用第一張工作表,然後進行必要的編輯。它只是一個循環和一些代碼,但我不知道如何調用原始文件夾的目錄,然後循環其餘的所有內容。 –