不同版本Excel的菜单序号可以通过VFP程序取得

* 编号：A0026
* 功能：不同版本Excel的菜单序号可以通过以下程序取得
* 说明：1、需要在VFP7.0以上运行
*       2、菜单序号18为Excel2003的‘打印’项

oXls=Getobject("","excel.sheet")
XlApp=oXLS.Application
XlSheet=XlApp.ActiveSheet
bars=xlapp.CommandBars.Count
Str1=''
For i=1 To bars
    Str1=Str1+Chr(13)+Alltrim(Str(i))+'、'+xlapp.CommandBars(i).accName+'(NAME:'+xlapp.CommandBars(i).Name+' INDEX:'+Alltrim(Str(xlapp.CommandBars(i).Index))+')'
    bars2=xlapp.commandbars(i).accChildCount
    For j=1 To bars2
        Try
            obj=xlapp.commandbars(i).Controls(j)
            Str1=Str1+Chr(13)+' '+Alltrim(Str(j))+'、'+xlapp.commandbars(i).Controls(j).accname+'(ID:'+Alltrim(Str(xlapp.CommandBars(i).Controls(j).Id))+')'
            For k=1 To obj.accChildCount
                Try
                    If Not Empty(obj.Controls(k).accname )
                        Str1=Str1+Chr(13)+' '+Alltrim(Str(k))+'、'+obj.Controls(k).accName+' (ID：'+ Alltrim(Str(obj.Controls(k).Id))+')'
                    Endif
                Catch
                    Exit
                Endtry
            Endfor
        Catch
            Exit
        Endtry
    Endfor
    Wait Windows Alltrim(Str(i))+' / '+Alltrim(Str(bars))+' '+Str(i/bars*100,10,2)+'%' Nowait
Endfor
Save To Xls.txt All Like Str1
Modify Command Xls.txt
Return