Executing the Menu Commands in Excel

3459 단어 ExcelVBA
This is the first article in the Excel Automation category and there are many more to come. Excel provides Methods for Add-ins to add new Menu options. Automation for testing or using these options requires us to execute the Menu Option through code. In this article we will explore how the same is done
We will use the following object for this
  • Application - The top level application object
  • CommandBars - The collection of CommandBar objects. Derived from the Application object
  • CommandBar - Individual CommandBar object
  • Controls - Child Controls of the CommandBar object

    • Now we follow various steps to execute a specified Menu item
    Open a New Excel Application 
    Set xlsApp = CreateObject("Excel.Application")

    Open a new or an Existing file 
    'To open a new one
Set xlsWorkBooks = xlsApp.WorkBooks.Add
 
'To open an existing one
Set xlsWorkBooks = xlsApp.WorkBooks.Open ("C:/MyTest.xls")

    Note: Above code would not be required if the code is being run inside a excel macro only
    Get the CommandBar object
    This can be a bit tricky if you are not aware of which CommandBar object you are looking for. Below code can be used to see all of them 
    For i = 1 to xlsApp.CommandBars.Count
   Debug.Print xlsApp.CommandBars(i).Name
Next

    To get a individual CommandBar object we can also use its name as shown in code below 
    xlsApp.CommandBars("Worksheet Menu Bar").Name

    Getting the Sub Menus and Executing them
    Once we have the Specific CommandBar object we were looking for we can use the Controls object to find the child menus/options 
    xlsApp.CommandBars("Worksheet Menu Bar").Controls("Tools").Controls("Spelling...").Execute
    Excel을 DataSet으로 변환하여 데이터베이스에 저장
    jar 패키지의 중국어 파일 이름으로 인한jar 패키지 압축 해제 이상(java.lang.IllegalArgumentException)

    좋은 웹페이지 즐겨찾기

    개발자 우수 사이트 수집

    개발자가 알아야 할 필수 사이트 100선 추천 우리는 당신을 위해 100개의 자주 사용하는 개발자 학습 사이트를 정리했습니다
    best100-homepage