|
1学分
我经常要用打开一些EXCEL表格.用的是EXCEL2010
首先打开一个已有工作簿,然后再打开一个新工作簿,在新工作簿里用打开的方式打开另一个需要操作的工作簿,然后继续用这种方式,分别打开5个需要操作的工作簿.这样的话,5个工作簿就可以单独的操作工程,互不干扰.
这种打开的方式是单独分开的,但是每天都这样打开有点麻烦,有没有快速方便的办法,单独的打开这些表格呢?
五个工作簿的名称就定为1,2,3,4,5
请老师看看有没有简便的办法?
本帖最后由 高 于 2021-3-4 17:53 编辑
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里)
|