excel-vba应用示例之创建新的工作簿
来源:百度文库 编辑:神马文学网 时间:2024/06/06 12:03:20
http://hi.baidu.com/vba123/blog
2007-01-31 16:43
创建新的工作簿
Sub testNewWorkbook()
MsgBox "创建一个带有10个工作表的新工作簿"
Dim wb as Workbook
Set wb = NewWorkbook(10)
End Sub
‘- - - - - - - - - - - - - - - - - - - - - - -
Function NewWorkbook(wsCount As Integer) As Workbook
'创建带有由变量wsCount提定数量工作表的工作簿,工作表数在1至255之间
Dim OriginalWorksheetCount As Long
Set NewWorkbook = Nothing
If wsCount < 1 Or wsCount > 255 Then Exit Function
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = wsCount
Set NewWorkbook = Workbooks.Add
Application.SheetsInNewWorkbook = OriginalWorksheetCount
End Function
示例说明:自定义函数NewWorkbook可以创建最多带有255个工作表的工作簿。本测试示例创建一个带有10个工作表的新工作簿。
2007-01-31 16:43
创建新的工作簿
Sub testNewWorkbook()
MsgBox "创建一个带有10个工作表的新工作簿"
Dim wb as Workbook
Set wb = NewWorkbook(10)
End Sub
‘- - - - - - - - - - - - - - - - - - - - - - -
Function NewWorkbook(wsCount As Integer) As Workbook
'创建带有由变量wsCount提定数量工作表的工作簿,工作表数在1至255之间
Dim OriginalWorksheetCount As Long
Set NewWorkbook = Nothing
If wsCount < 1 Or wsCount > 255 Then Exit Function
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = wsCount
Set NewWorkbook = Workbooks.Add
Application.SheetsInNewWorkbook = OriginalWorksheetCount
End Function
示例说明:自定义函数NewWorkbook可以创建最多带有255个工作表的工作簿。本测试示例创建一个带有10个工作表的新工作簿。
excel-vba应用示例之创建新的工作簿
excel-vba应用示例之关闭工作簿_VBA编程世界
Excel VBA之破解工作表簿保护密码
快速为Excel工作簿创建工作表目录的方法
快速为Excel工作簿创建工作表目录的方法
在Excel工作表中关联列表的创建
快速为Excel工作簿创建工作表目录的方法 - 电脑技术 - 华夏土地 - 中国专业土地矿...
各种Excel VBA的命令
Excel VBA在工程测量上的应用_水利工程网111
Excel工作表中创建关联列表
新清华-关于人文学院全校人文素质通选课创建工作的思考
Excel Excel VBA的常用命令举例 - ExcelVBA程序开发 - Excel...
Excel Excel VBA的常用命令举例 - ExcelVBA程序开发 - Excel...
Excel VBA编程的常用代码
Excel VBA入门的基础语句3
Excel VBA入门的基础语句(11111111111
Excel VBA入门的基础语句(1)
Excel VBA编程的常用代码2
excel普及教材(一)之vba普通代码篇
excel普及教材(一)之vba普通代码篇
Excel应用技巧之杂锦Excel
Excel应用技巧之杂锦Excel
Excel VBA Examples(2)
EXCEL VBA 基础