VBA二次学习笔记（1）——文件操作

1. 判断文件是否存在，新建文件，另存为

1Sub test3()
2    '判断文件是否存在，新建文件
3    Dim wb As Workbook
4    Dim cPath As String
5    cPath = ActiveWorkbook.Path
6    
7    If Len(Dir(cPath + "\1.xlsx")) = 0 Then
8        Set wb = Workbooks.Add
9        ActiveWorkbook.SaveAs (cPath + "\1.xlsx")
10        MsgBox ("1.xlsx" + "已创建")
11    Else
12        MsgBox ("1.xlsx" + "已存在")
13    End If
14    
15End Sub

 2. 打开文件，修改内容，保存/关闭

1Sub test4()
2    '打开文件并修改
3    Dim wb As Workbook
4    Set wb = Workbooks.Open(ActiveWorkbook.Path + "\1.xlsx")
5    wb.Sheets("sheet1").Range("a1") = "123"
6    wb.Save
7    wb.Close '直接关闭多省心
8     'Windows("1.xlsx").Visible = True'感觉没什么卵用
9    'Application.Visible = False’不能用这个，所有的工作簿都隐藏了，只剩VBA编辑器
10End Sub

3. 判断文件是否已经打开

这里采用的是遍历所有打开的工作簿，另一种方法是直接把这个名字的工作簿赋值给对象，如果报错就说明没打开这个文件（还是有点麻烦）

1Sub test5()
2    Dim flag As Boolean
3    
4    For Each wb In Workbooks
5        If wb.Name = "1.xlsx" Then
6            flag = True
7            Exit For
8        End If
9    Next
10    
11    If flag = True Then
12        MsgBox ("1.xlsx" + "已经打开")
13    Else
14        MsgBox ("1.xlsx" + "没有打开")
15    End If
16    
17End Sub

 4. 复制和删除文件

1Sub test6()
2    Dim path As String
3    path = ThisWorkbook.path
4    
5    FileCopy path + "\1.xlsx", path + "\2.xlsx"
6    MsgBox "已复制"
7    Kill path + "/2.xlsx"
8    MsgBox "已删除"
9End Sub

注意：

（1）ActiveWorkbook是正在操作的工作簿，ThisWorkbook是VBA所在的工作簿

（2）vbCrLf的意思：

　　回车 \r 本义是光标重新回到本行开头，r的英文return，控制字符可以写成CR，即Carriage Return

　　换行 \n 本义是光标往下一行（不一定到下一行行首），n的英文newline，控制字符可以写成LF，即Line Feed

（3）VBA中的方法，参数不用带括号，如果带括号，会报“需要=”的错误。除非是要把方法的返回值赋值给一个变量，才需要加括号。