打开文件的一种方法:
Sub Openfile(str As String)
'功能:打开文件
'参数:str--->路径和文件名
'示例1:Openfile("C:\test.xlsx")
'示例2:Openfile("C:\test.text")
If Dir(str) <> "" Then '判断文件是否存在,存在,则将其打开cgy2011-5-2
    Application.FollowHyperlink str
End If
End Sub