[已解决]请问打开多个工作簿的问题

ryoryo66

我经常要用打开一些EXCEL表格.用的是EXCEL2010
首先打开一个已有工作簿,然后再打开一个新工作簿,在新工作簿里用打开的方式打开另一个需要操作的工作簿,然后继续用这种方式,分别打开5个需要操作的工作簿.这样的话,5个工作簿就可以单独的操作工程,互不干扰.
这种打开的方式是单独分开的,但是每天都这样打开有点麻烦,有没有快速方便的办法,单独的打开这些表格呢?
五个工作簿的名称就定为1,2,3,4,5


请老师看看有没有简便的办法?

最佳答案

月排行榜 / 总排行榜

高

2021-3-4 12:09

Sub hfdhdf()
Dim wb As Workbook
     Set wb = Workbooks.Add   '新建工作薄
     For xx = 1 To 5
      Workbooks.Open Filename:="F:\组用\表格\三\" & xx & ".xlx*"  '依次打开5个工作薄
     Next xx
End Sub
把代码放在你的第一个工作薄里，打开后执行这些代码，或者利用open事件自动执行代码（需要改第一行为Private Sub Workbook_Open()，并必须把代码放在thisworkbook里）

跳转到最佳答案楼层

高

Sub hfdhdf()
Dim wb As Workbook
     Set wb = Workbooks.Add   '新建工作薄
     For xx = 1 To 5
      Workbooks.Open Filename:="F:\组用\表格\三\" & xx & ".xlx*"  '依次打开5个工作薄
     Next xx
End Sub
把代码放在你的第一个工作薄里，打开后执行这些代码，或者利用open事件自动执行代码（需要改第一行为Private Sub Workbook_Open()，并必须把代码放在thisworkbook里）

高

有，但是要知道那5个工作薄的路径，需要把路径写到代码里

ryoryo66

高 发表于 2021-3-4 14:20
有，但是要知道那5个工作薄的路径，需要把路径写到代码里

谢谢老师,路径就用 "F:\组用\表格\三\"

cutecpu

ryoryo66 发表于 2021-3-4 16:58
谢谢老师,路径就用 "F:\组用\表格\三\"

Workbooks.open("F:\组用\表格\三\1.xlsx")
Workbooks.open("F:\组用\表格\三\2.xlsx")
Workbooks.open("F:\组用\表格\三\3.xlsx")
Workbooks.open("F:\组用\表格\三\4.xlsx")
Workbooks.open("F:\组用\表格\三\5.xlsx")


祝順心，南無阿彌陀佛！

ryoryo66

cutecpu 发表于 2021-3-4 17:39
Workbooks.open("F:\组用\表格\三\1.xlsx")
Workbooks.open("F:\组用\表格\三\2.xlsx")
Workbooks.open ...

老师,这样打开后,5个工作簿是连在一起的啊,只能一个一个的操作使用工作簿,操作的时候另外4个不能动.
比如说我在执行1工作簿代码的时候,十秒钟时间,这十秒种时间的同时,我可以继续执行2.3.4.5工作簿的代码.

ryoryo66

高 发表于 2021-3-4 17:50
Sub hfdhdf()
Dim wb As Workbook
     Set wb = Workbooks.Add   '新建工作薄

老师,这样打开后,5个工作簿是连在一起的啊,只能一个一个的操作使用工作簿,操作的时候另外4个不能动.
比如说我在执行1工作簿代码的时候,十秒钟时间,这十秒种时间的同时,我可以继续执行2.3.4.5工作簿的代码.
这个打开的工程也是连在一起的.是一个整体

高

ryoryo66 发表于 2021-3-4 21:35
老师,这样打开后,5个工作簿是连在一起的啊,只能一个一个的操作使用工作簿,操作的时候另外4个不能动.
比 ...

你详细描述一下你的想法

zjiakou

对头

ryoryo66

高 发表于 2021-3-5 07:58
你详细描述一下你的想法

辛苦老师了.
就是先打开5个新工作簿,这样的话,这5个新工作簿是单独互不相关的.
然后从每个新工作簿里的打开选项,打开需要操作的表格.
打开之后,这5个工作簿就是完全独立的了,我可以同时的运行5个簿中的代码命令,他们可以单独的执行,互不干扰.
就是这样的.

但是我每天这样打开,有点麻烦,就是想问问有没有简单的办法.