Question

我在Access 2007中有一个应用程序正在创建一个包含 N 工作表的工作簿，我创建了一个宏，可以插入到这个工作簿中，工作得很好。但下一步是向Marco添加一个快捷键，到目前为止，我已经看到了在线方法的帮助。第一次尝试没有错误，但没有分配快捷键

1） Excel_App.OnKey "^{h}", "Sheet1.HideChange"

2）Excel_App.MacroOptions Macro:="Sheet1.HideChange", Description:="Hide Columns in Line Level", hasshortcutkey:=True, ShortcutKey:="h"

我的变量分配给我的方法

Dim Excel_App As Excel.Application
Dim wkb As Excel.Workbook
Dim wks, wks2, wks3, wks4, wks5, wks6, wks7, wks8 As Excel.Worksheet
Dim i As Integer
Dim xlmodule As Object 'VBComponent
Dim coaches As Recordset
Set Excel_App = New Excel.Application
Excel_App.Visible = False
Set wkb = Excel.Workbooks.Add

下面是我上次放置快捷方式的地方，我试图在保存之前和之后移动代码行但是我仍然得到1004错误。

    With wkb


             ActiveSheet.Move Before:=Worksheets(1)
            .Title = "CHANGE REQUEST"
            .Subject = "CHANGE REQUEST"

                      ' Add a macro to the module...
                     Dim strCode As String
                     strCode = _
                        "Sub HideChange()" & vbCr & _
                        "  Columns(""A:A"").Select Selection.EntireColumn.Hidden = True  " & vbCr & _
                        "end sub"
                    Dim module As VBComponent
                    Set module = wkb.VBProject.VBComponents(2)
                    module.CodeModule.AddFromString strCode
             Excel_App.MacroOptions Macro:="Sheet1.HideChange", Description:="Hide Columns in Line Level", hasshortcutkey:=True, ShortcutKey:="h"
            .SaveAs FileName:=strDir & "\CHANGE REQUEST FORM.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

            .Close
    End With

 Excel_App.Quit

任何人都可以帮我弄清楚它是如何工作的吗？如果您需要更多详细信息，请询问，谢谢您的时间！

Answer 1

尝试从“Sheet1.HideChanges”中删除“Sheet1”，不需要（或更正）。

MacroOptions :MSDN OnKey :MSDN

错误1004使用MacroOption Access 2007时

1 个答案: