如何在鼠标右键添加新建“Excel”表格呢？

同一台电脑有不同的软件一般默认由高版本打开软件。设置右键快捷方式来打开不同的excel版本的方法：1、点击“开始——运行”，输入sendto 回车，打开sendto文件夹（sendto的意思是发送到、快捷方式），然后再点击“开始——搜索——文件或文件夹——所有文件或文件夹”，在上面输入excel.exe 点击“搜索”。2、在搜索结果里分别找到2003和2010（或2007）版的excel，点击右键拖住将其分别拖入到sendto文件界面中，点“在当前位置创建快捷方式”，然后重命名此快捷方式（将excel前面的字删除，在excel后添加2003或2010即可，关闭所有对话框，这样就在右键的“发送到”快捷菜单中添加两个快捷方式即excel2003和excel2010。以后打开文件夹时，只需右键该文件，“发送到”相应的版本就行了，选哪个就是哪个版本。同样道理，可以设置word。

在宏编辑器下。选中ThisWorkbook，输入如下代码。

Private Sub Workbook_Open()

删除右键菜单

添加右键菜单

End Sub

新建一个模块，输入如下代码：

'------------------------------------------------------------------------分割线

Sub 添加右键菜单()

        With Application.CommandBars("cell").Controls _

            .Add(Type:=msoControlButton, _

                temporary:=True)

            .Caption = "功能1"

            .FaceId = 986

            .OnAction = "MyMacro1"

        End With

'------------------------------------------------------------------------分割线

        With Application.CommandBars("cell").Controls _

            .Add(Type:=msoControlButton, _

                temporary:=True)

            .Caption = "功能2"

            .FaceId = 931

            .OnAction = "MyMacro2"

        End With

'------------------------------------------------------------------------分割线

End Sub

'------------------------------------------------------------------------分割线

Sub 删除右键菜单()

'删除右键菜单,重置

Application.CommandBars("cell").Reset

End Sub

Sub mymacro1()

 Application.Run "PERSONAL.xls!功能1"

End Sub

Sub mymacro2()

 Application.Run "PERSONAL.xls!功能2"

End Sub

Public Sub 功能1()

'输入功能1的代码

End Sub

Public Sub 功能1()

'输入功能2的代码

End Sub

保存excel以后，关闭重新打开，右键即可看到效果。

在运行中输入REGEDIT

进入注册表,

如果是2003版及以下的版本,找到

HKEY_CLASSES_ROOT\ .xls\Excel.Sheet.8\ShellNew

双击ShellNew,新增一个字符串Filename.并且将数据赋值为excel8.xls

如如是2007以上版本,则找到

HKEY_CLASSES_ROOT\.xlsx\Excel.Sheet.12\ShellNew

双击ShellNew,新增一个字符串Filename.并且将数据赋值为excel12.xlsx

退出注册表,在桌面单击右键,可以在新建菜单项中发现你新增的EXCEL文件快捷方式.

---