VBA入门到进阶常用知识代码总结09

第9集 Excel文件操作
23、 文件操作
'工作簿窗口
Windows(“A.xls”),A工作簿的窗口，使用windows可以设置工作簿窗口的状态，如是否隐藏等。
Sub t3()
Windows(“VBA80集第9集excel文件操作.xls”).Visible = False
Windows(“VBA80集第9集excel文件操作.xls”).Visible = False
End Sub

'1 判断A.Xls文件是否存在
Sub W1()
If Len(Dir(“d:/A.xls”)) = 0 Then
MsgBox “A文件不存在”
Else
MsgBox “A文件存在”
End If
End Sub

'2 判断A.Xls文件是否打开
Sub W2()
Dim X As Integer
For X = 1 To Windows.Count
If Windows(X).Caption = “A.xls” Then
MsgBox “A文件打开了”
Exit Sub
End If
Next
End Sub

'3 excel文件新建和保存

Sub W3()
Dim wb As Workbook
Set wb = Workbooks.Add '给对象变量wb赋值，一定加Set关键字
wb.Sheets(“sheet1”).Range(“a1”) = “abcd”
wb.SaveAs “D:/B.xls”
End Sub

'4 excel文件打开和关闭

Sub w4()
Dim wb As Workbook
Set wb =