如何设置excel的文件关联-office2007关联,office重新关联

Private Sub Workbook_SheetBeforeRightClick(ByVal sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Application.CommandBars("cell")
.Reset
End With
With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, Temporary:=True)
.Caption = "保存工程(&S) Ctrl+S" '此处定义的是显示在菜单上的字符
.OnAction = "保存" '此处定义的就是指定的宏的名称
.FaceId = 3 '显示的图标
End With
Application.CommandBars("CELL").ShowPopup
End Sub

我也被这个问题困扰，我自己解决的办法是:
不用右键菜e69da5e6ba907a686964616f334单里面的粘贴
复制数据后直接按CTRL+V粘贴，然后EXCEL会自动出现一个粘贴选项，再在里面选择自定义粘贴的方式

1、首先，在打开的电脑上找到运行的程序，并点击打开它。

2、然后，在打开的运知行对话窗口中，输入“excel /regserver”，并点击确定按钮。

3、接着，在弹出道的新窗口中会对Excel进行重新配置，等待它配置完。

4、之后，右键回单击电脑桌面上的一个Excel文档，在弹出的菜单中依次点击打开方式——选择程序。

5、最后，在打开方式的小窗口中，点答选Excel，并勾选“始终使用选择的程序打开这种文件”即可。

重新装一次office2003就可以了
如果不想安装，那么可以通过软件里设置关联文件，或者注册表修改对应扩展名的键值。

通常在办公软件安装后，会自动关联Word、Excel、PPT等。
如果无法关联，右击文件--打开方式--选择office里面的Word或者------确定即可。