在VBA中運行導入的宏的問題

-1

我想從指定位置的指定位置導入指定文件夾中的所有工作簿中的宏文件，並且希望在每個工作簿上運行宏，我可以通過所提到的代碼成功地在所有工作簿中導入它下面但不能運行這些宏。在VBA中運行導入的宏的問題

Sub RecursiveFolders() 
    Dim FileSys As Object 
    Dim objFolder As Object 
    Dim objSubFolder As Object 
    Dim objFile1 As Scripting.File 
    Dim wkbOpen As Workbook 
    Dim szImportPath As String 
    Dim objFSO As Scripting.FileSystemObject 
    Dim cmpComponents As VBIDE.VBComponents 

    Set objFSO = New Scripting.FileSystemObject 
    Set FileSys = CreateObject("Scripting.FileSystemObject") 
    Set objFolder = FileSys.GetFolder("C:\Users\Yashika Vaish\Desktop\testform") 

    Application.ScreenUpdating = False 

    For Each objSubFolder In objFolder.SubFolders 
     For Each objFile In objSubFolder.Files 

      Set wkbOpen = Workbooks.Open(Filename:=objFile) 
      szImportPath = FolderWithVBAProjectFiles & "C:\Macros" 
      Set cmpComponents = wkbOpen.VBProject.VBComponents 

      For Each objFile1 In objFSO.GetFolder(szImportPath).Files 

       If (objFSO.GetExtensionName(objFile1.Name) = "cls") Or _ 
        (objFSO.GetExtensionName(objFile1.Name) = "frm") Or _ 
        (objFSO.GetExtensionName(objFile1.Name) = "bas") Then 
        cmpComponents.Import objFile1.Path 
       End If 
      Next objFile1 

      Application.DisplayAlerts = False 

      MsgBox "Import is ready" 
      Application.Run "HeaderChange_User_Financial_Input" 
      Application.Run HeaderChange_User_Financial_Input 
      Application.Run HeaderChange_User_Operation_Input 
      Application.Run SelectRangeUnitMap 
      Application.Run reportingunitmap 
      Application.Run HeaderChange_Finacial_Standard 
      Application.Run HeaderChange_Operation_Standard 
      wkbOpen.Close savechanges:=True 
     Next 
    Next 

    Application.ScreenUpdating = True 
    Application.DisplayAlerts = True 
End Sub

此代碼給我彈出無法運行宏，

它可能不可用或所有的宏被禁用

但沒有密碼保護所以爲什麼我不能運行宏，請幫忙。

來源

2017-07-25 yashika vaish

您是否將宏安全設置設置得太高？在'Excel 2010' - 'File'〜'Options'〜'Trust Center'〜'Trust Center Settings'〜'Macro Settings'〜確保_Disable所有沒有notification_的宏沒有設置。我通常建議通過notification_set禁用所有的宏。 –

您需要包括工作簿名稱調用宏（未測試）時：

strFile = ActiveWorkbook 
Application.Run "'" & strFile.Name & "'!HeaderChange_User_Financial_Input"

來源

2017-07-25 10:13:37 kulapo

因爲你沒有使用Option Explicit你沒有看到您的問題，因此，我建議經常使用Option Explicit來將來在編輯器中標記這類事情。

這裏的問題是，在

Application.Run HeaderChange_User_Financial_Input

VBA假定HeaderChange_User_Financial_Input是含有宏引用一個可變。但是這個變量是空的，因爲它從不設置，因此它找不到那個宏。

我假設你的意思HeaderChange_User_Financial_Input是宏的名稱，而不是一個變量，這樣使用一個字符串，而不是

Application.Run "HeaderChange_User_Financial_Input"

代碼中的所有Application.Run。

來源

2017-07-25 11:17:23

在VBA中運行導入的宏的問題

回答

相關問題