Excel 中带有宏的按钮

Question

by programming (not manually) I am importing a macro and a form into a spreadsheet with a button that executes that macro. When I do it in Excel 2007 I open the spreadsheet and execute the button without problems. But in Excel 2010 I focus the button macro but with a malformed path (adds a subfolder to the original path) and can't find the macro. I would appreciate if someone can help me with this. Cheers

Answer 1

ok BigBen, Here I put code for Export and Import macro code from Excel:

Sub ExportModules(FullPathFile As String) Dim bExport As Boolean Dim wkbSource As Excel.Workbook Dim szSourceWorkbook As String Dim szExportPath As String Dim szFileName As String Dim cmpComponent As VBIDE.VBComponent Dim wb As Workbook

Set wb = Workbooks.Open(FullPathFile)
Set wkbSource = Application.Workbooks(wb.Name)

szExportPath = "C:\valq\VBAProjectFiles\"

For Each cmpComponent In wkbSource.VBProject.VBComponents

    bExport = True
    szFileName = cmpComponent.Name

    Select Case cmpComponent.Type
        Case vbext_ct_ClassModule
            szFileName = szFileName & ".cls"
        Case vbext_ct_MSForm
            szFileName = szFileName & ".frm"
        Case vbext_ct_StdModule
            szFileName = szFileName & ".bas"
        Case vbext_ct_Document
            ' This is a worksheet or workbook object.
            ' Don't try to export.
            bExport = False
    End Select

    If bExport Then
        cmpComponent.Export szExportPath & szFileName
    End If

Next cmpComponent

wb.Close
End Sub

Sub ImportModules(FullPathFile As String)

Dim wkbTarget As Excel.Workbook
Dim objFSO As Scripting.FileSystemObject
Dim objFile As Scripting.File
Dim szTargetWorkbook As String
Dim szImportPath As String
Dim szFileName As String
Dim cmpComponents As VBIDE.VBComponents
Dim szSourceWorkbook As String
Dim wkbSource As Application
Dim wb As Workbook

Set wb = Workbooks.Open(FullPathFile)
szTargetWorkbook = wb.Name
Set wkbTarget = Application.Workbooks(szTargetWorkbook)

szImportPath = "C:\valq\VBAProjectFiles\"

Set objFSO = New Scripting.FileSystemObject
If objFSO.GetFolder(szImportPath).Files.Count = 0 Then
   MsgBox "There are no files to import"
   Exit Sub
End If

Set cmpComponents = wkbTarget.VBProject.VBComponents

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

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

Next objFile

wb.Save
End Sub