excel采用vba指定工作簿(Vba指定工作簿和工作表)

1. Vba指定工作簿和工作表

1.桌面上第一章中的每个工作簿名称放置到工作表中。

2.新建一个工作簿，将其命名为“第一章目录”，按Alt+f11组合键，打开宏界面。

3.在vba中，单击插入按钮，点击菜单插入下的模块，即可新建模块，系统默认为模块。

4.完成上述步骤后，输入代码？

5.返回到名为“第一章目录”呢工作簿，然后按“aw+f8”，组合键调出“宏”对话框。

6.单击“宏对话框”中的“执行”按钮，“宏”对话框自动关闭，代码自动执行，即第一页中的每个文件夹名称都显示在sheet1中，可以根据需要调整格式。

2. vba 选择工作簿

不用VBA就可以实现复制。

1、同时打开两个工作簿。

2、鼠标右键点击要移动的工作表，选择移动或复制。

3、在移动或复制工作表汇总，选择另一个工作簿。

4、选择移动到最后，然后勾选建立副本，点击确定。

5、点击确定后，就可以复制过去了。

3. vba 指定工作表

workbooks.open "d:\我的数据表.xls"workbooks(workbooks.count).worksheets("Sheet1").activate'第一个引号内放完整路径及文件名，第二个引号内放工作表名

4. vba读取工作表名称

Xname = ActiveSheet.Shapes(ActiveSheet.Shapes(Application.Caller).Name).TextFrame2.TextRange.Characters.Text Worksheets(Xname).Activate

5. vba显示所有工作表

已解决Function si() '所在单元格的y值cellyApplication.Volatilesi = Application.ThisCell.Worksheet.NameEnd Functionname就是工作表名称,index就是序号

6. vba自定义函数如何应用到所有工作簿

我的解决思路是：

新建工作簿

新建工作表

选择性黏贴全部数据

遍历第一行删除有特殊标记列

遍历第一列删除有特殊标记行

保存并关闭新工作簿。

模拟数据

打开vbe

增加模块，添加代码

最后结果

7. vba指定工作簿和工作表不同步

有2种办法，

1.是设置源数据为自定义名称，如data=offset($a$1,0,0,counta(A:A),COUNTA(1:1))

2.类似的对源数据插入表table，默认名称table1

找到数据透视表修改数据源，输入data或者table1

这时候就将数据透视表和源数据进行了动态关联

有数据变化时，右键刷新即可

如果想自动刷新，可以加入VBA事件代码，每次激活有数据透视表的sheet就刷新结果

Private Sub Worksheet_Activate()

ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh

End Sub

8. vba代码所有工作簿都可以用

为什么要打开文件对话框？

直接用代码打开某工作簿copy某工作表到当前工作簿中,并关闭打开的工作簿即可。