文档介绍：Document serial number【NL89WT-NY98YT-NC8CB-NNUUT-NUT108】
EXCELVBA编程的常用代码
Excel VBA编程的常用代码
用过VB的人都应该知True
选定单元格字体为斜体
= True
选定单元格字体为宋体20号字
With .Name = "宋体".Size = 20End With
With 语句
With With
清除单元格
'删除所有文字、批注、格式
返回选定区域的行数
MsgBox
返回选定区域的列数
MsgBox
返回选定区域的地址
忽略所有的错误ON ERROR RESUME NEXT
遇错跳转
on error goto err_handle
'中间的其他代码
err_handle: ' 标签
'跳转后的代码
删除一个文件
kill "c:/"
定制自己的状态栏
= "现在时刻: " & Time
恢复自己的状态栏
= false
用代码执行一个宏
macro:="text"
滚动窗口到a1的位置
= 1
= 1
定制系统日期Dim MyDate, MyDayMyDate = #12/12/69#MyDay = Day(MyDate)
返回当天的时间Dim MyDate, MyYearMyDate = Date MyYear = Year(MyDate)MsgBox MyYear
inputbox<输入框>XX=InputBox ("Enter number of months to add")
得到一个文件名
Dim kk As String
kk = ("EXCEL (*.XLS), *.XLS", Title:="提示：请打开一个EXCEL文件：")msgbox kk
打开zoom对话框
(xlDialogZoom).Show
激活字体对话框
(xlDialogActiveCellFont).Show
打开另存对话框
Dim kk As String
kk = ("excel (*.xls), *.xls")
kk
工作簿(Workbook)基本操作应用示例(一)
Workbook对象代表工作簿，而Workbooks集合则包含了当前所有的工作簿。下面对Workbook对象的重要的方法和属性以及其它一些可能涉及到的方法和属性进行示例介绍，同时，后面的示例也深入介绍了一些工作簿对象操作的方法和技巧。
示例03-01：创建工作簿(Add方法)
[示例03-01-01]
Sub CreateNewWorkbook1()
MsgBox "将创建一个新工作簿."
End Sub
[示例03-01-02]
Sub CreateNewWorkbook2()
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Long
MsgBox "将创建一个新工作簿,并预设工作表格式."
Set wb =
Set ws = (1)
= "产品汇总表"
(1, 1) = "序号"
(1, 2) = "产品名称"
(1, 3) = "产品数量"
For i = 2 To 10
(i, 1) = i - 1 Next iEnd Sub
示例03-02：添加并保存新工作簿
Sub AddSaveAsNewWorkbook()
Dim Wk As Workbook
Set Wk =
?
= False
? Filename:="D:/"
End Sub
示例说明：本示例使用了Add方法和SaveAs方法，添加一个新工作簿并将该工作簿以文件名保存在D盘中。其中，语句 = False表示禁止弹出警告对话框。
示例03-03：打开工作簿(Open方法)
[示例03-03-01]
Sub openWorkbook1()
"<需打开文件的路径>/<文件名>"
End Sub
示例说明：代码中的<>里的内容需用所需打开的文件的路径及文件名代替。Open方法共有15个参数，其中参数FileName为必需的参数，其余参数可选。
[示例03-03-02]
Sub openWorkbook2()
Dim fname As String
MsgBox "将D
盘中的<>工作簿以只读方式打开"
fname = "D:/"
Filename:=fname, ReadOnly:=TrueEnd Sub
示例03-04：将文本文件导入工作簿中(OpenText方法)
Sub TextToWorkbook()
'本示例打开某文本