Excel VBA（02）工作簿、工作表、单元格操作

工作簿操作

一、概述

• 一个 excel 文件对应一个 workbook，打开后对应一个文件窗口

Windows(1).Visible = True

二、基本操作

• workbook操作：open、add、save、saveas、close

1、判断文件是否存在和打开

• 是否存在：输出为 0 就是不存在

Debug.Print Len(Dir("d:\test.xlsx"))

• 是否打开

Dim x As Integer
For x = 1 To Windows.Count
    If Windows(x).Caption = "test.xlsx" Then
        Debug.Print "file is open"
    End If
Next x

2、文件新建、保存、备份、打开、关闭、复制、删除

• 新建和保存

Dim wb As Workbook
Set wb = Workbooks.Add
wb.Sheets(1).Range("a1").Value = "test"
wb.SaveAs "D:\A.xlsx"

• 备份

Dim wb As Workbook
Set wb = ThisWorkbook
wb.Save
wb.SaveCopyAs "D:\A11.xlsx"

• 打开和关闭

Dim wb As Workbook
Set wb = Workbooks.Open("D:\A.xlsx")
Debug.Print wb.Sheets(1).Range("a1")
wb.Close True

• 复制和删除

FileCopy "D:\A.xlsx", "D:\A23.xlsx"
Kill "D:\A11.xlsx"

---

工作表操作

• 存在：sheets.count sheets(n).name
• 插入：sheets.add
• 隐藏：sheets(n).visible = False
• 移动：

Sheets("Sheet2").Move before:=Sheets("Sheet1")
Debug.Print ActiveSheet.Name

• 复制：sheets("模板").copy before:=sheets("sheet1")
• 保护：protect "password" 保护状态确认：protectContents = True
• 删除：delete
• 选取：select

thisworkbook.path属性

---

单元格操作

一、单元格选取

1、一个单元格

• 就是cells 和 range 的各种花式表示方法
• 注意一下

[a1].Value = 12432543

默认的 range 对象

• 如果 range 不指明从属的 sheet 的话，有以下几种情况
• 代码在 sheet 中就是代码所在sheet 里面的range
• 代码在workbook 或者模块中指的就是当前活动 sheet 里面的range

2、单元格区域

• 相邻和不相邻的区域选取
• offset是设置偏移量
• resize是选中相应的原点扩展区域
• union可以形成区域集合

Range("a1,c5").Select
Range("a1").Offset(1, 2).Value = "