可以使用 Application 对象的 ActiveSheet 属性返回对当前活动的工作簿中当前活动的工作表的引用
如下例所示,使用 Microsoft® Visual Basic® for Applications (VBA) Array 函数可以同时处理多个工作表:Sub ReferToMultipleSheetsExample()
' 该过程说明如何以编程方式引用
' 多个工作表。
Dim wksCurrent As Excel.Worksheet
With ActiveWorkbook.Worksheets(Array("Employees", "Sheet2", "Sheet3"))
.FillAcrossSheets (Worksheets("Employees").UsedRange)
End With
Stop
' 名为 "Sheet2" 和 "Sheet3" 的工作表现在应
' 包含从 "Employees" 工作表上找到的同一个
' 表。按 F5 清除这些工作表中的内容。
For Each wksCurrent In ActiveWorkbook _
.Worksheets(Array("Sheet2", "Sheet3"))
wksCurrent.UsedRange.Clear
Next wksCurrent
End Sub
如下例所示,使用 Microsoft® Visual Basic® for Applications (VBA) Array 函数可以同时处理多个工作表:Sub ReferToMultipleSheetsExample()
' 该过程说明如何以编程方式引用
' 多个工作表。
Dim wksCurrent As Excel.Worksheet
With ActiveWorkbook.Worksheets(Array("Employees", "Sheet2", "Sheet3"))
.FillAcrossSheets (Worksheets("Employees").UsedRange)
End With
Stop
' 名为 "Sheet2" 和 "Sheet3" 的工作表现在应
' 包含从 "Employees" 工作表上找到的同一个
' 表。按 F5 清除这些工作表中的内容。
For Each wksCurrent In ActiveWorkbook _
.Worksheets(Array("Sheet2", "Sheet3"))
wksCurrent.UsedRange.Clear
Next wksCurrent
End Sub
解决方案 »
- 简单的登录逻辑
- C#操作word出现“The message filter indicated that the application is busy”
- 如果用C#来编写一个类似【微信】功能的电脑客户端,须要哪些技术呢?
- trim方法问题
- 这个报表怎么做,大侠们帮帮忙啊
- C#如何打印datatable中的内容?
- 软件发布:DoNet资源文件编辑器
- 关于两个互不重复的整形数组的怪问题(在线)
- 语句
- 怎样获得dataGrid的当前列标题
- 请问:为什么 string s1,s1=null; fun1(ref s1);fun2(ref s2);不行?但是改为string s1=null;string s2=null;就可以了?
- 关于CrystalReport的一些疑问,高分求解
关键是我这里的worksheets(工作表名)无效,不知道该如何写????msdn上写的很多属性在.net下我都引用不到??这是怎么回事呢?