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