[已解决]打开当前文件所在文件下的指定文件

yjwdjfqb

用VBA打开当前文件所在文件下的指定文件

如本附件中的BBB.xls文件

附件.rar (9.45 KB, 下载次数: 25)

2013-12-23 17:07 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-12-23 19:20

1.     Dim strFilename$
   
2.     strFilename = ThisWorkbook.Path & "\bbb.xls"
   
3.     If Len(Dir(strFilename)) Then
   
4.         Workbooks.Open strFilename
   
5.     Else
   
6.         MsgBox "没有找到此文件"
   
7.     End If

复制代码

跳转到最佳答案楼层

hwc2ycy

如果是以代码所在的工作簿的路径为准，则是thisworkbook.path
如果以活动工作簿为准，则是Activeworkbook.path

hwc2ycy

1. Sub 按钮1_单击()
   
2.     Dim wb As Workbook
   
3.     On Error Resume Next
   
4.     Set wb = GetObject(ThisWorkbook.Path & "\bbb.xls")
   
5.     If wb Is Nothing Then
   
6.         MsgBox "没有找到此文件"
   
7.     Else
   
8.         Windows(wb.Name).Visible = True
   
9.     End If
   
10. End Sub

复制代码

hwc2ycy

1.     Dim strFilename$
   
2.     strFilename = ThisWorkbook.Path & "\bbb.xls"
   
3.     If Len(Dir(strFilename)) Then
   
4.         Workbooks.Open strFilename
   
5.     Else
   
6.         MsgBox "没有找到此文件"
   
7.     End If

复制代码

yjwdjfqb

谢谢老师!