VBA基础，工作簿workbook相关的方法和属性

最新推荐文章于 2024-06-27 15:30:11 发布
最新推荐文章于 2024-06-27 15:30:11 发布
阅读量1.3w 收藏 56
点赞数 7
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/xuemanqianshan/article/details/104090874
版权

0 我觉得VBA和VB,VBS最大的区别就在A（application）上了

  • 所以application里的 workbook  , worksheet   range ,cell等应该是VBA语言的核心，最复杂内容了

  • 本身VBA里的VB语言部分，其实和很多语言语法结构也差不多
  • 每种语言的差别
  • 一在语法差别上。但差异应该不会太大
  • 另外一个就在每种语言的对象系统上，包括各种对象，数据结构等等

 

1 工作簿相关方法---易报错总结

1.1  保存时的报错

  • 保存save时，不能和已有文件名同名
  • workbooks.saveas   fullname (不能和同目录下已有的工作簿同名)
  • workbooks.savecopyas   fullname (不能和同目录下已有的工作簿同名)

1.2 创建时的报错

  • 不允许直接 创建 .xlsm类的文件

1.3 打开文件时的报错

  • 如果打开的文件不存在，会报错
  • workbooks.open fullname 如果文件不存在会报错
  • EXCEL如果save的格式和实际excel版本的格式不同，会警告文件格式不同，暂时可无视之

1.4 修改文件时的报错

  • 如果读取和修改工作簿内容，但是工作簿没有打开，会报错 下标越界

 

2 VBA 和 Application--Excel下的命名系统 

2.1 workbooks 工作簿有fullname属性

fullname= path+ "\" + name

  • ThisWorkbook.FullName     文件全名
  • ThisWorkbook.Path             文件路径
  • ThisWorkbook.Name           文件名
  • ThisWorkbook.FullName  =   ThisWorkbook.Path  + "\"  +  ThisWorkbook.Name

 

2.2 但是 fso下的file 没有fullname 属性，因为 file.path 就是完整名字了

  • file.FullName     错误，没这个fullname属性
  • file.Path             文件路径,就是文件全名
  • file.Name           文件名

Sub test_wb11()
'比较wb的名字  和 一般file的名字


Dim fso1 As Object
Dim fd1 As Object

Set fso1 = CreateObject("scripting.filesystemobject")
Set fd1 = fso1.GetFolder(ThisWorkbook.Path)

For Each i In fd1.Files
    If i Like "*.xlsm" Then
         Debug.Print i.Name
         Debug.Print i.Path    'workbook工作簿的名字不一样
         Debug.Print i.Path & "\" & i.Name    '这样做重复而多余
'         Debug.Print i.FullName   '会报错
    End If
Next
Debug.Print ""

For Each j In Workbooks
    Debug.Print j.Name
    Debug.Print j.Path
    Debug.Print j.FullName             'wb有fullname属性
    Debug.Print j.Path & "\" & j.Name  'wb工作簿的fullname=path+ "" + name 是有意义的
    
Next

End Sub

 

3 workbook 和 workbooks，对象和对象的集合

3.1 workbook是对象

  • 工作簿是EXCEL的对象之一
  • workbook 只能指代 每个单独的workbook
  • 特殊workbook的用法
  • thisworkbook
  • activeworkbook

 

3.2 workbooks是EXCEL的属性，也表示excel下所有workbook的集合

  • 工作簿的集合，其实是Application的属性 application.workbooks
  • workbooks  (即代表  application.workbooks)
  • 比如Workbooks.Add   等于  Application.Workbooks.Add

 

3.3 对象只属于对象集合，而不属于上级对象

  • 正确   for each wb1 in application.workbooks
  • 错误  for each wb1 in application
  • 错误  for each wb1 in application.workbook

 

4 workbooks.add 方法  (Application.Workbooks.Add)

  • 表达式.Add(Template)

  • Workbooks.Add 方法 新建一个工作表。新工作表将成为活动工作表。

  • 语法

  • 表达式.Add(Template)

  • 表达式   一个代表 Workbooks 对象的变量。

  • 确定如何创建新工作簿。如果此参数为指定现有 Microsoft Excel 文件名的字符串，那么创建新工作簿将以该指定的文件作为模板。如果此参数为常量，新工作簿将包含一个指定类型的工作表。
  • 模板类型为整数 int 比如1 就是工作簿，2是chart 表格
  • 如果想创建多个表格，workbooks.add 本身好像不带数量参数
  • 和循环嵌套使用，多次 workbooks.add
Sub test1_wb()

'表达式.Add(Template)
'确定如何创建新工作簿。如果此参数为指定现有 Microsoft Excel 文件名的字符串，那么创建新工作簿将以该指定的文件作为模板。如果此参数为常量，新工作簿将包含一个指定类型的工作表。

Workbooks.Add 1
Workbooks.Add (2)

For i = 1 To 3
    Workbooks.Add
Next

End Sub

 

  • workbooks.add  会新建一个新工作薄
  • 但是需要用   workbook.saveas   fullname  保存才行
  • 因为每次新建的工作簿刚好是激活的，所以用 activeworkbook.saveas  fullname
Public Sub test_wb1()

Debug.Print ThisWorkbook.Path
Debug.Print ThisWorkbook.FullName
Debug.Print ThisWorkbook.Name


Application.Workbooks.Add
ActiveWorkbook.SaveAs "C:\Users\Administrator\Desktop\t2.xls"

Workbooks.Add
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "t3.xls"


End Sub

 

5 workbook的保存 save  saveas savecopyas

5.1 语法

5.1.1 文件保存

FN+F1帮助系统

Workbook.Save 方法 

  • 保存对指定工作簿所做的更改。
  • 语法
  • 表达式.Save
  • 表达式   一个代表 Workbook 对象的变量。
     

5.1.2 文件另存为 （这种方法另存为的文件不会关闭）

在另一不同文件中保存对工作簿所做的更改。（对新建的wb文件，是第一次保存）

workbook.saveas
表达式   一个代表 Workbook 对象的变量。

表达式.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

 

5.1.3 文件另存为 savecopyas  (另外为的文件会自动关闭)

  • Workbook.SaveCopyAs 方法 
  • 将指定工作簿的副本保存到文件，但不修改内存中的打开工作簿。
  • 语法
  • 表达式.SaveCopyAs(Filename)
  • 表达式   一个代表 Workbook 对象的变量。
     

 

5.2 文件保存的3种方式，新建文件要用saveas

  • save
  • 只是保存文件内容，文件如果是新建的，未保存文件本身。已经保存路径的文件自动保存。
  • saveas   fullname
  • savecopyas   fullname
  • 将文件的副本另外为一个新文件，文件本身如果是新建的，仍然没保存本身。
Public Sub test_wb2()

Application.Workbooks.Add
ActiveCell = 1
ActiveWorkbook.Save

Workbooks.Add
ActiveCell = 11
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "t2.xls"

Workbooks.Add
ActiveCell = 111
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & "t3.xls"

End Sub

 

 

5.3 文件保存时的报错

  • 如果保存的文件名重复，会报错

 

5.4 文件保存时，文件类型的报错

  • 如果选择保存的是 .xlsm  会报错
  • 可能是因为安全等级的原因，不让直接创建xlsm这种后缀名文件
  •  

 

5.5 文件保存的格式如果和实际EXCEL的版本不一致，会在打开时被警告

但实际上无所谓，比如保存为  .xls 文件，而实际EXCEL最新格式是 .xlsx,两者不一致所以警告

 

5.6 保存时， 参数可以写在括号内，或者是跟在 方法 后面写

Sub test_wb4()

Workbooks.Add
ActiveWorkbook.ActiveSheet.Range("a2") = a2   '错误例子，因为a2是变量，值为""
ActiveWorkbook.ActiveSheet.Range("a3") = "a3"
ActiveWorkbook.Save
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "t4.xlsx"
ActiveWorkbook.SaveCopyAs (ThisWorkbook.Path & "\" & "t5.xlsx")

End Sub

 

 

6 workbooks.open   工作簿必须先打开才可以操作内容

6.1 打开工作簿

  • Workbooks.Open 方法，打开一个工作簿。
  • 语法
  • 表达式.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
  • 表达式   一个代表 Workbooks 对象的变量。
     

6.2 workbooks.open ()

  • workbooks.open  参数
  • workbooks.open (参数)     '现在发现参数大于1个就不行
Public Sub test_wb3()

path1 = ThisWorkbook.Path

'Application.DisplayAlerts = False  '这个声明的生命周期也应该在sub内，有啥必要非在sub结尾前关闭掉？多此一举把

Workbooks.Add
'参数只有1个时，括号写法和非括号写法都可以
ActiveWorkbook.SaveAs path1 & "\" & "t3.xlsx"
ActiveWorkbook.SaveAs (path1 & "\" & "t3.xlsx")
ActiveWorkbook.Close


Workbooks.Add
ActiveWorkbook.SaveAs path1 & "\" & "t2.xlsx", Password:=123
ActiveWorkbook.SaveAs Filename:=path1 & "\" & "t2.xlsx", Password:=123
'参数超过1个时，不能用括号写法，会报错
'ActiveWorkbook.SaveAs (path1 & "\" & "t2.xlsx", Password:=123)
'ActiveWorkbook.SaveAs (Filename:=path1 & "\" & "t2.xlsx", Password:=123)
ActiveWorkbook.Close


Workbooks.Open (path1 & "\" & "t3.xlsx")
Workbooks("t3.xlsx").Close

Workbooks.Open path1 & "\" & "t2.xlsx", Password:=123
Workbooks("t2.xlsx").ActiveSheet.Range("a1") = "aaa"
Workbooks("t2.xlsx").Save
Workbooks("t2.xlsx").Close

End Sub

 

6.3 前台打开和后台打开

  • 工作簿的打开：工作簿如果没打开，操作其中内容，会提示  下标越界
  • 前台打开
  • 后台打开

 

6.4 如果想修改 未打开的工作簿里的内容--会报错：下标越界

 

 

6.5 新建工作簿，先打开工作簿，写内容，保存，再关闭工作簿

"修改---保存---关闭" 就会尽量少出现弹窗

  • 读取和修改工作簿内容前，必须先打开工作簿
  • 可以每打开一个工作簿就关闭这个，避免蹦出很多工作簿
Public Sub test_wb3()

path1 = ThisWorkbook.Path


Workbooks.Add
ActiveWorkbook.SaveAs path1 & "\" & "t2.xls"
ActiveWorkbook.Close
Workbooks.Add
ActiveWorkbook.SaveAs path1 & "\" & "t3.xls"
ActiveWorkbook.Close


Workbooks("test1.xlsm").ActiveSheet.Range("a1") = "abc"

Workbooks.Open path1 & "\" & "t2.xls"
Workbooks("t2.xls").ActiveSheet.Range("a1") = "abc123111"
Workbooks("t2.xls").Close

Workbooks.Open path1 & "\" & "t3.xls"
Workbooks("t3.xls").ActiveSheet.Range("a1") = "abcde12345111"
Workbooks("t3.xls").Close


End Sub

 

7  workbooks.open   打开文件和输入密码

  • 文件新建保持时可以加密码
  • 文件打开时需要输入密码才可以打开
  • workbooks.saveas  (finename:=)path & "\" & "t1.xls"   ,password:="123"
  • workbooks.open finename:=path & "\" & "t1.xls"   ,password:="123"

 

Public Sub test_wb3()

path1 = ThisWorkbook.Path

Workbooks.Add
ActiveWorkbook.SaveAs path1 & "\" & "t2.xls", Password:=123
ActiveWorkbook.Close
Workbooks.Add
ActiveWorkbook.SaveAs path1 & "\" & "t3.xls", Password:=123
ActiveWorkbook.Close

Workbooks("test1.xlsm").ActiveSheet.Range("a1") = "abc"

Workbooks.Open path1 & "\" & "t2.xls", Password:=123
Workbooks("t2.xls").ActiveSheet.Range("a1") = "abc123111"
Workbooks("t2.xls").Close

Workbooks.Open path1 & "\" & "t3.xls", Password:=123
Workbooks("t3.xls").ActiveSheet.Range("a1") = "abcde12345111"
Workbooks("t3.xls").Close

End Sub

 

8  重复打开工作簿----现在版本的EXCEL只要 修改内容先保存，重复打开也没事

"修改---保存---关闭" 就会尽量少出现弹窗

  • 现在版本的EXCEL，可以重复打开已经打开的EXCEL文件
  • 如果现在已经打开的 文件，有修改未保存的内容，会提示你，再次打开会丢失这些未保存内容---解决办法就是先save
  • 如果希望自动化程度更高，去掉一些弹窗，就加上这句话
  • Application.DisplayAlerts=false

 

Public Sub test_wb3()

path1 = ThisWorkbook.Path

'Application.DisplayAlerts = False  '这个声明的生命周期也应该在sub内，有啥必要非在sub结尾前关闭掉？多此一举把

Workbooks.Open path1 & "\" & "t2.xlsx", Password:=123
Workbooks("t2.xlsx").ActiveSheet.Range("a1") = "aaa"
Workbooks("t2.xlsx").Save

Workbooks.Open path1 & "\" & "t2.xlsx", Password:=123
Workbooks("t2.xlsx").ActiveSheet.Range("a2") = "bbb"
Workbooks("t2.xlsx").Save

Workbooks.Open path1 & "\" & "t2.xlsx", Password:=123
Workbooks("t2.xlsx").ActiveSheet.Range("a3") = "cccc"
Workbooks("t2.xlsx").Save

End Sub

 

9  先判断一个工作簿是否打开？ （打开了一定常驻在内存里了）

  • 因为工作簿如何已经打开了

  • 取内存中的工作簿，然后比较工作簿名字即可，找一个工作簿是否打开

  • 现在版本的EXCEL已经不要求，文件不可重复打开了，所以这种检查不是很有必要。

Sub test_wb5()
'这样是取内存中的工作簿，已经打开的工作簿才能统计到

For Each i In Application.Workbooks
    Debug.Print i.Name
    If i.Name = "" Then
       Debug.Print "xx工作簿已经打开"
    End If
Next

For j = 1 To Application.Workbooks.Count
    Debug.Print Workbooks(j).Name
Next

End Sub

 

10  取某个文件夹下的工作簿数量

10.1 方法1：用fso方法，取folder和files ,其实还只是类 "xlsm" 之类的文件数量

不支持 file.open 打开

Sub test_wb6()
'取某个文件夹下的工作簿数量

Dim fso1 As Object
Dim fd1 As Object

Set fso1 = CreateObject("scripting.filesystemobject")
Set fd1 = fso1.GetFolder(ThisWorkbook.Path)

For Each i In fd1.Files
    If i Like "*.xlsm" Then
         Debug.Print i.Name
'         i.Open   '不支持这么打开
    End If
Next
End Sub

但是可以用这种方法打开， workbooks.open

Sub test_wb6()
'取某个文件夹下的工作簿数量

Dim fso1 As Object
Dim fd1 As Object

Set fso1 = CreateObject("scripting.filesystemobject")
Set fd1 = fso1.GetFolder(ThisWorkbook.Path)

For Each i In fd1.Files
    If i Like "*.xlsm" Then
 
         Workbooks.Open i.Path
         Workbooks(i.Path).ActiveSheet.Range("c1") = 666

    End If
Next
End Sub

 

 

10.2 方法，用dir的方法遍历文件

Sub test_wb7()

'dir不返回对象，返回字符串
fd1_name = Dir(ThisWorkbook.Path, vbDirectory)
Debug.Print fd1_name

f1_name = Dir(ThisWorkbook.Path & "\" & "*.xlsm")   '通配符查某类型文件
Debug.Print f1_name  '只查找一个文件
'每次继续执行一次dir 指针会往下移动一次

'没有条件变化的do loop ，是无限死循环
'Do While Not f1_name = ""
'   Debug.Print f1_name
'Loop

Do While Not f1_name = ""
   Debug.Print f1_name
   f1_name = Dir
Loop

End Sub

 

 

11 关闭文件  workbooks().close  或 activeworkbook.close

  • 基本语法
  • Workbook.Close 方法，关闭对象。
  • 语法
  • 表达式.Close(SaveChanges, Filename, RouteWorkbook)
  • 表达式   一个代表 Workbook 对象的变量。

 

  • 具体举例
  • workbooks().close
  • activeworkbook.close
  • thisworkbook.close
  • workbooks().close savechange:=true

 

Sub test_wb20()


Workbooks.Add
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "t2.xlsx"
Workbooks("t2.xlsx").ActiveSheet.Range("c5") = 9999
Workbooks("t2.xlsx").Close

Workbooks.Open ThisWorkbook.Path & "\" & "t2.xlsx"
Workbooks("t2.xlsx").ActiveSheet.Range("c6") = 100000
Workbooks("t2.xlsx").Close savechanges:=True


End Sub

和上面代码的区别

  • 是close的时候可以保存为一个新的文件--新工作簿，修改
  • 原文件夹本身，不做修改
  • 可见t2里只有9999，而t3里有9999和 10000
Sub test_wb21()


Workbooks.Add
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "t2.xlsx"
Workbooks("t2.xlsx").ActiveSheet.Range("c5") = 9999
Workbooks("t2.xlsx").Close

Workbooks.Open ThisWorkbook.Path & "\" & "t2.xlsx"
Workbooks("t2.xlsx").ActiveSheet.Range("c6") = 100000
Workbooks("t2.xlsx").Close savechanges:=True, Filename:=ThisWorkbook.Path & "\" & "t3.xlsx"


End Sub

 

奔跑的犀牛先生
关注
ExcelVBA Workbook工作簿对象介绍
qq389445046的博客
02-24 3165
Workbooks是所有工作簿对象组成的集合，而Wrokbook对象是Workbooks集合的一个成员。 1.引用集合中的工作簿 利用工作簿名引用工作簿，如已经打开了"Book1.xlsm"工作簿，那么Workbooks("Book1.xlsm")就代表这个工作簿对象。 2.访问对象的属性，获得工作簿文件的信息 通过代码获得指定工作簿的名称、保存的路径等文件信息，示例代码如下。 Sub WbMsg...
Workbook的一些属性方法：
learnalwaystodie的博客
04-19 211
Excel之VBA操作
最新发布
csren11的博客
06-27 2029
但是 Excel 在打开包含 VBA 代码的工作簿时，在编辑栏上方，显示安全警告，并且可以选择启用代码运行或不启用。如果选择启用，下次打开相同的工作簿，不会出现警告。设置方法：在开发工具选项卡，点击「宏安全性」按钮，弹出信任中心窗口，在左侧列表中，选择「受信任位置」。把一个文件夹添加到 Excel 受信任的位置后，该文件夹下的包含 VBA 代码的工作簿打开时，不会提示安全警告，也无需每次手动开启代码。Excel 提供 4 种宏安全性选项，在开发工具选项卡，点击「宏安全性」按钮，打开信任中心。
(七)VBA常用基础知识：workbooks操作之新建workbook
charles542307299的博客
09-14 929
3.但是这个文件名字是工作簿5，其实之前还有工作簿2,3,4，在我之前尝试的时候关闭了，那么名字怎么办呢？通过刚才在对象浏览器里查看可以发现，add的时候没有提供名字的参数，所以只能在保存的时候起一个名字。可以看到使用save的时候是直接把add时的工作簿8保存到和创建文件的vba文件（test20230910.xlsm）同目录下。查看对象浏览器里的workbook，有save和saveas方法，我都尝试一下。下边是生成的workbook，其实就是一个新的excel。然后看一下saveas。
Excel VBA开发必须了解的与工作簿Workbook及工作表Worksheet相关的5个对象详解（附实用例程）
weixin_50233916的博客
07-16 6736
每一个使用过Excel的用户都了解工作簿和工作表这两个概念。工作簿，简单地说就是与一个excel文件对应，一个打开的excel文件就是一个工作簿。而工作表是工作簿的一部分，是一个独立的数据区域。一个工作簿中可以有很多工作表，在较老的office版本中，一个工作簿最多可允许建立255个工作表，但是目前最新的Office，理论上支持在一个工作簿中建立无限个工作表，只受电脑的硬件资源的限制。 Excel VBA开发中，工作簿集合WorkBooks ，工作簿Workbook，图与表集合Sheets
(八)VBA常用基础知识：workbooks操作之打开workbook
charles542307299的博客
09-16 1589
一般在拿别人的文件做基础，做自己的文件时，里边会有很多原来文本对其他文件的引用连接，当你使用的时候这些东西没有清理干净，每次打开的时候就会提示是都更新，一般选择不更新，因为点击更新也没啥用，但是如果用vba打开这种文件时，不做这个处理可能就需要你手动去点击，所以UpdateLinks就是做这个用的。1.8 后边那一堆我只有最后一个用过一次，就是打开的时候有时候会有一些什么修复，然后里边有xxx.xml那个。然后使用了UpdateLinks参数后，上边的写法就不好用了，使用以下写法。文件打开，并且可以编辑。
VBA，工作簿workbook相关操作，workbooks.add workbooks.save workbooks.saveas 等等
热门推荐
奔跑的犀牛先生
02-22 2万+
1 Workbooks.Add 方法 1.1 语法 新建一个工作表。新工作表将成为活动工作表。 语法 表达式.Add(Template) 表达式 一个代表 Workbooks 对象的变量。 参数 名称 必选/可选 数据类型 说明 Template 可选 Variant 确定如何创建新工作簿。如果此参数为指定现有 Microsoft Excel 文件名的字符串，...
EXCELVBA方法属性大全_ExcelVBA_EXCELVBA方法属性大全_VBa_
10-04
在Excel VBA（Visual Basic for Applications）编程中，掌握各种方法和属性是至关重要的，因为它们构成了VBA代码的核心部分，使我们能够控制和自动化Excel的工作簿、工作表、单元格以及许多其他对象。"EXCELVBA方法...
VBA宏汇总同文件夹下多工作簿数据
12-04
在提供的文件"汇总同文件夹下多工作簿数据"中，很可能包含了实现上述功能的VBA代码示例，读者可以通过阅读和分析代码来学习具体实现方法。如果遇到不理解的部分，可以查阅相关的VBA编程教程或在线资源，进一步提升...
用VBA批量转换Excel工作簿为.doc
11-18
该VBA代码使用了FileDialog对象来选择要转换的Excel工作簿，並使用Workbook对象来打开和转换工作簿。代码还使用了Error Handling机制来跳过设置了打开密码的工作簿和隐藏的工作簿。 代码主要步骤 1. 打开VBA编辑器...
Excel-VBA宏编程实例源代码-确定当前工作簿的状态属性.zip
12-14
2. **VBA工作簿对象** - 在VBA中，工作簿（Workbook）是Excel数据的主要容器，包含一个或多个工作表（Worksheet）。 - 工作簿对象有多个属性，如Name、Path、Sheets、ActiveSheet等，这些属性反映了工作簿的不同...
Excel VBA入门(4) - Workbook常用功能及方法介绍
zn_yang的专栏
11-04 1万+
本篇介绍一下Workbook工作簿的常用功能 1. 新建工作簿 Dim wb As Workbook Application.SheetsInNewWorkbook = 1 '设置初始工作簿中的工作表数 Set wb = Application.WorkBooks.Add wb.Worksheets(1).name = "表1"
VBA实战(09) - 工作簿（WorkBook）
jie_ming514的博客
01-05 2840
工作簿（workbook）汇总 打开一个文件 Set originalWb = Workbooks.Open(originalFileStr) 如果文件是带用户名和密码时，可以使用如下函数。 Set originalWb = Workbooks.Open(originalFileStr, 0, True, "用户名", "密码") 保存 Excel 文件 targetWb.Save 关闭 Excel 文件 targetWb.Close 如果关闭前没有报错，Excel 会提示要不要保存。如果你的流程
VBA学习笔记之工作簿
aiyin1399的博客
08-09 486
Workbook工作簿的常用功能： 1. 新建工作簿 DimwbAsWorkbook Application.SheetsInNewWorkbook=1'设置初始工作簿中的工作表数 Setwb=Application.WorkBooks.Add wb.Worksheets(1).name...
Excel VBA - Workbook对象
weixin_33770878的博客
10-27 244
来源：http://blog.csdn.net/alexbnlee/article/details/6911204 Workbooks(1).Name Workbooks(1).FullName    工作簿地址加名字 Workbooks(1).Path    工作簿地址 Workbooks(1).Close SaveChanges:=False    关闭工作簿，并且不保存 Workb...
VBA学习12_ WorkBook对象
pigerr的博客
10-26 560
打开指定路径的Excel文件,并返回一个Workbook对象.
Excel VBA:打开与关闭工作簿——Workbooks对象
blog
01-13 1万+
Workbooks 对象 Microsoft Excel 应用程序中当前打开的所有 Workbook 对象的集合。 说明 有关使用一个 Workbook 对象的详细信息，请参阅 Workbook 对象。 示例 使用 Workbooks 属性可返回 Workbooks 集合。下例关闭所有打开的工作簿。 Workbooks.Close 使用 Add 方法可创建一个新空工作簿并将它添加到...
Workbook.SaveAs方法
pgymeitianjinbu的博客
02-11 8780
Workbook.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local) excel vba 保存代码 Sub 保存工作簿() ThisWorkbook.Save '.save相当于按保存按钮；无参数 ...
ExcelVBA工作簿操作指南：新增、保存与打开示例
"这份资料是关于Excel工作簿的基础操作应用示例，主要通过VBA（Visual Basic for Applications）来演示如何进行操作。" 在Excel中，Workbook对象代表着一个包含多个Sheet（工作表）的文件，而Workbooks集合则是当前...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值