將工作簿的文件夾循環並使用Excel VBA將所有工作表導出爲製表符分隔的文本

Question

我將Excel VBA腳本拼湊在一起，將所有工作表寫入打開的工作簿以分隔製表符分隔的文件（這仍然是「宏」 ？我正在Excel真空中學習）。它一次在一個工作簿上運行良好。這裏是。

Sub exportSheetsToText() 
    Dim sWb As String 
    Dim sFile As String 
    Dim oSheet As Worksheet 

    sWb = Left(ActiveWorkbook.FullName, InStr(ActiveWorkbook.FullName, ".") - 1) 

    For Each oSheet In Worksheets 
     oSheet.Copy 
     sFile = sWb & "-" & oSheet.Name & ".txt" 
     ActiveWorkbook.SaveAs fileName:=sFile, FileFormat:=xlText 
     ActiveWorkbook.Close SaveChanges:=False 
     Next oSheet 
End Sub 

我想縮小這個範圍，以便我可以將此宏應用於工作簿文件夾。我寫了我認爲會遍歷每個滿足過濾器的工作簿的內容，但它不寫入任何.txt文件。這裏是。

Sub exportsSheetsToTextForAll() 

    Dim sPath As String 
    Dim sWildcard As String 
    Dim sMacro As String 
    Dim oWb As Workbook 
    Dim oPersWb As Workbook 

    Application.AutomationSecurity = msoAutomationSecurityForceDisable 
    Set oPersWb = Workbooks("PERSONAL.XLSB") 
    sMacro = "'" & oPersWb.Name & "'" & "!exportSheetsToText()" 
    sPath = "C:\Users\richard\Documents\Research\Data\Excel\Datastream - payout" 
    sWildcard = "New*.xlsx" 
    sFile = Dir(sPath & "\" & sWildcard) 


    Do While Len(sFile) > 0 
     Workbooks.Open Filename:=sPath & "\" & sFile 
     Application.Run sMacro 
     ActiveWorkbook.Close SaveChanges:=False 
     sFile = Dir 
    Loop 

End Sub 

遍歷所有的我的測試文件，但我沒有看到任何效果（即沒有.txt文件並沒有錯誤）。

最後我將在宏中使用非常大的工作簿，因此禁用宏（我本地沒有宏，它們位於專用數據機器上）並在打開之前關閉一個大型工作簿非常重要下一個。

任何想法？謝謝！

Answer 1

@ Siddarth關於將參數傳遞給exportSheetsToText()的想法是關鍵。還有，我的宏名傳遞給了Application.Run。以下工作，更清潔。

Sub exportsSheetsToTextForAll() 

    Application.AutomationSecurity = msoAutomationSecurityForceDisable 

    excelFiles = Dir(ThisWorkbook.Path & "\" & "New*.xlsx") 
    fromPath = ThisWorkbook.Path 

    Do While Len(excelFiles) > 0 
     Debug.Print Files 
     Set oWb = Workbooks.Open(Filename:=fromPath & "\" & excelFiles) 
     Application.Run "exportSheetsToText", oWb 
     oWb.Close SaveChanges:=False 
     excelFiles = Dir 
    Loop 

End Sub 

Sub exportSheetsToText(iWb As Workbook) 

    For Each ws In iWb.Worksheets 
     ws.Copy 
     Set wb = ActiveWorkbook 
     textFile = Left(iWb.FullName, InStr(iWb.FullName, ".") - 1) & "-" & ws.Name & ".txt" 
     wb.SaveAs Filename:=textFile, FileFormat:=xlText 
     wb.Close SaveChanges:=False 
    Next ws 
End Sub