VBA典型的技巧与示例

1. 创建一个工作簿

Sub WbAdd()
    '程序创建“员工花名册”工作簿，保存在本工作簿所在的文件夹中。
    Dim Wb As Workbook, sht As Worksheet    '定义一个Workbook对象和一个Worksheet对象
    
    Set Wb = Workbooks.Add   '新建一个工作簿
    
    Set sht = Wb.Worksheets(1)
    
    With sht
        .Name = "花名册"       '修改第一章工作表的标签名称
        '设置表头
        .Range("A1:F1") = Array("序号", "姓名", "性别", "出生年月", "参加工作时间", "备注")
        
    End With
    
    Wb.SaveAs ThisWorkbook.Path & "\员工花名册.xls"   '保存新建的工作表到本地工作簿所在文件夹中
    
    ActiveWorkbook.Close   '关闭新建的工作簿
 
End Sub

2. 判断工作簿是否打开

Sub IsOpen()
    '判断“成绩表.xls”工作簿文件是否已经打开
    Dim i As Integer     '定义循环变量
 
    For i = 1 To Workbooks.Count     '循环所有工作簿
        If Workbooks(i).Name = "成绩表.xls" Then
        
            MsgBox "文件已经打开！"
            Exit Sub                     '如果找到就是退出过程
        End If
    
    Next i
    MsgBox "文件没有打开！"
 
End Sub

3. 判断工作簿是否存在

Sub TestFile()
    '判断工作簿所在的文件夹中是否存在“员工花名册.xls”
    Dim fil As String    '定义变量
    fil = ThisWorkbook.Path & "\bicycle.xls"
    
    'Dir(fil) 如果存在对应文件，将会返回文件的名称，
    'len() 表计算字符串测长度,有值那么长度不为0
    If Len(Dir(fil)) > 0 Then
        MsgBox "工作簿已