stanwuc 于 2020-03-30 10:13:47 发布工作簿操作
一、概述
一个 excel 文件对应一个 workbook，打开后对应一个文件窗口Windows(1).Visible = True 1
二、基本操作
workbook操作：open、add、save、saveas、close 1、判断文件是否存在和打开 是否存在：输出为 0 就是不存在Debug.Print Len(Dir("d:test.xlsx")) 1 是否打开
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 123456 2、文件新建、保存、备份、打开、关闭、复制、删除 新建和保存
Dim wb As Workbook Set wb = Workbooks.Add wb.Sheets(1).Range("a1").Value = "test" wb.SaveAs "D:A.xlsx" 1234 备份
Dim wb As Workbook Set wb = ThisWorkbook wb.Save wb.SaveCopyAs "D:A11.xlsx" 1234 打开和关闭
Dim wb As Workbook Set wb = Workbooks.Open("D:A.xlsx") Debug.Print wb.Sheets(1).Range("a1") wb.Close True 1234 复制和删除
FileCopy "D:A.xlsx", "D:A23.xlsx" Kill "D:A11.xlsx" 12
工作表操作
存在：sheets.count sheets(n).name 插入：sheets.add 隐藏：sheets(n).visible = False 移动：Sheets("Sheet2").Move before:=Sheets("Sheet1") Debug.Print ActiveSheet.Name 12 复制：sheets("模板").copy before:=sheets("sheet1") 保护：protect "password" 保护状态确认：protectContents = True 删除：delete 选取：select
thisworkbook.path属性
单元格操作
一、单元格选取
1、一个单元格 就是cells 和 range 的各种花式表示方法 注意一下[a1].Value = 12432543 1 默认的 range 对象 如果 range 不指明从属的 sheet 的话，有以下几种情况 代码在 sheet 中就是代码所在sheet 里面的range 代码在workbook 或者模块中指的就是当前活动 sheet 里面的range 2、单元格区域 相邻和不相邻的区域选取 offset是设置偏移量 resize是选中相应的原点扩展区域 union可以形成区域集合
Range("a1,c5").Select Range("a1").Offset(1, 2).Value = "1
