[讨论]从Microsoft Excel菜单指定宏打开 Office 文档

joyark

<B >将公司常用文件录制宏写入菜单上使工作进行快捷<B >

<B >如有其它打开宏的写法请提供研究<B >

<B >1.       <B >打开<B >Microsoft Excel<B >文件的宏<B >

Sub Excel1()

On Error Resume Next

Dim i%

Dim sh As Worksheet

  Application.ScreenUpdating = False

Workbooks.Open Filename:="D:\菜單調用文件宏\Excel文件\職位文字.xls"’文件地址

Windows("職位文字.xls").Activate’文件名稱

Sheets("Sheet1").Select

End Sub

<B >2.       <B >打开<B >Microsoft Word<B >文件的宏<B >

Sub Word1()

ActiveWorkbook.FollowHyperlink "D:\菜單調用文件宏\Word文件\保护文件夹.doc", , True’文件地址

End Sub



Sub Word2 ()

Dim wd As New Word.Application

    wd.Documents.Open ("D:\常用文字\保护文件夹.doc")’文件地址

    wd.Visible = True

End Sub

’需要引用Microsoft word 10.0 object library

<B >3.       <B >打开<B >Microsoft Access<B >文件的宏<B >

Sub Access1()

ActiveWorkbook.FollowHyperlink "D:\菜單調用文件宏\空白管理文件手册.mdb", , True’文件地址

End Sub

<B >4.       <B >打开<B >Microsoft PowerPoint<B >文件的宏<B >

Sub ppt1()

ActiveWorkbook.FollowHyperlink "D:\常用文字\销售黑客.ppt", , True’文件地址

End Sub<B >

<B >5.       <B >打开<B >Microsoft Help<B >文件的宏<B >

Sub help1()

Application.Help "D:\菜單調用文件宏\幫忙文件\管理秘籍.chm"’文件地址

End Sub

secowu

?~_~~

白鹭青天

白鹭青天

老鬼

不错啊，可以写成通用函数加以引用

dongzhong

好东东，对于初学者来说，这些都是非常好和珍贵的!