搜索
首页 电脑/网络 互联网

如何通过VBA打开一个局域网中指定路径的文件?

如何通过VBA打开一个局域网中指定路径的文件夹

全部回答

2013-12-07

605 0
    注意 c:\a 目录下的文件不要太多,免得死机 Sub 打开excel表格() Dim myPath$, myFile$, AK As Workbook Application。
  ScreenUpdating = False '冻结屏幕,以防屏幕抖动 myPath = "c:\a\" '把文件路径定义给变量 myFile = Dir(myPath & "*。  xls") '依次找寻指定路径中的*。
  xls文件 Do While myFile <> "" '当指定路径中有文件时进行循环 If myFile <> ThisWorkbook。Name Then Set AK = Workbooks。
  Open(myPath & myFile) '打开符合要求的文件 End If myFile = Dir '找寻下一个*。  xls文件 Loop Application。
  ScreenUpdating = True '冻结屏幕,此类语句一般成对使用 End Sub。

类似问题换一批

热点推荐

热度TOP

相关推荐
加载中...

热点搜索 换一换

电脑/网络
互联网
程序设计
电脑装机
操作系统/系统故障
硬件
笔记本电脑
百度
反病毒
软件
互联网
互联网
QQ
上网帮助
网站推荐
举报
举报原因(必选):
取消确定举报