Excel VBA 工作簿(workbook)基本操作实例.doc

Excel VBA 工作簿(workbook) 基本操作实例实例一:判断工作簿是否存在 Sub testFileExists() MsgBox " 如果文件不存在则用信息框说明, 否则打开该文件." If Not FileExists("C:\ 文件夹\ 子文件夹\ ") Then MsgBox " 这个工作簿不存在!" Else "C:\ 文件夹\ 子文件夹\ " End If End Sub ‘----------------------- Function FileExists(FullFileName As String) As Boolean ' 如果工作簿存在, 则返回 True FileExists = Len(Dir(FullFileName)) >0 End Function 示例说明: 本示例使用自定义函数 FileExists 判断工作簿是否存在, 若该工作簿已存在,则打开它。代码中, “ C:\ 文件夹\ 子文件夹\ ”代表工作簿所在的文件夹名、子文件夹名和工作簿文件名。实例二:判断工作簿是否已打开 Sub testWookbookIFOpen() Dim wb As String Dim bwb As Boolean wb= "< 要判断的工作簿名称>" bwb = WorkbookIsOpen(wb) If bwb = True Then MsgBox " 工作簿"& wb&" 已打开." Else MsgBox " 工作簿"& wb&" 未打开." End If End Sub ‘----------------------- Private Function WorkbookIsOpen(wbname) As Boolean Dim x As Workbook On Error Resume Next Set x= Workbooks(wbname) If Err =0 Then WorkbookIsOpen = True Else WorkbookIsOpen = False End If End Function 实例三:保存当前工作簿的副本到其它位置备份工作簿 Sub SaveWorkbookBackupToFloppyD() Dim awb As Workbook, BackupFileName As String, i As Integer, OK As Boolean If TypeName(ActiveWorkbook) = "Nothing" Then Exit Sub Set awb = ActiveWorkbook If = "" Then (xlDialogSaveAs).Show Else BackupFileName = OK= False On Error GoTo NotAbleToSave If Dir("D:\" & BackupFileName) <> "" Then Kill "D:\" & BackupFileName End If With awb =" 正在保存工作簿..." .Save App