精华内容
下载资源
问答
  • 为了提高VBA程序运行速度,我们一般会关闭屏幕更新,停止自动计算,如下: Application.ScreenUpdating = False Application.Calculation = xlManual 当返回自动计算模式时,系统自动把所有的公式计算一遍,即使不...

    作者:iamlaosong

    为了提高VBA程序运行速度,我们一般会关闭屏幕更新,停止自动计算,如下:

    Application.ScreenUpdating = False

    Application.Calculation = xlManual

    当返回自动计算模式时,系统自动把所有的公式计算一遍,即使不返回自动计算模式,关闭并保存文件时,系统也会自动计算所有公式,当公式复杂,数据量大时,关闭工作簿就会比较慢,如果不想计算,可以关闭这个功能:

    Application.CalculateBeforeSave = False

    虽然关闭这个功能可以提高关闭速度,但重新打开这个文件时,系统仍然会重新计算一遍,以便保证数据的一致性。


    展开全文
  • VBA 创建一个工作簿

    2021-04-08 09:53:59
    一、代码 Sub test() Dim wb As Workbook, sht As Worksheet '定义一个... Set wb = Workbooks.Add '新建一个工作簿 Set sht = wb.Worksheets(1) With sht .Name = "另存工资表" '修改第一张工作表的标签名称 .R

    一、代码

    Sub test()
        Dim wb As Workbook, sht As Worksheet    '定义一个Workbook对象和一个Worksheet对象
        Set wb = Workbooks.Add                  '新建一个工作簿
        Set sht = wb.Worksheets(1)
        
        With sht
            .Name = "另存工资表"                '修改第一张工作表的标签名称
            .Range("A1:F1") = Array("序号", "姓名", "部门", "职位", "基本工资", "实际到账")     '设置表头
        End With
        
        wb.SaveAs ThisWorkbook.Path & "\另存工资表.xls"     '保存新建的工作表到本工作簿所在的文件夹中
        ActiveWorkbook.Close                                '关闭新建的工作簿
        
    End Sub
    

    二、运行结果

    在这里插入图片描述
    在这里插入图片描述

    展开全文
  • Workbooks 对象 Microsoft Excel 应用程序中当前打开的所有 Workbook 对象的集合。 说明 有关使用一个 Workbook 对象的详细信息,请参阅 Workbook 对象。...使用 Add 方法可创建一个新空工作簿并将它添加到...

    Workbooks 对象

    Microsoft Excel 应用程序中当前打开的所有 Workbook 对象的集合。

    说明

    有关使用一个 Workbook 对象的详细信息,请参阅 Workbook 对象。

    示例

    使用 Workbooks 属性可返回 Workbooks 集合。下例关闭所有打开的工作簿。

    Workbooks.Close

    使用 Add 方法可创建一个新空工作簿并将它添加到集合。下例给 Microsoft Excel 添加一个新空工作簿。

    Workbooks.Add

    使用 Open 方法可打开一个文件。这样会为打开的文件创建一个新工作簿。下例将文件 Array.xls 打开为只读工作簿。

    Workbooks.Open FileName:="Array.xls", ReadOnly:=True
    Workbooks 对象成员

    Microsoft Excel 应用程序中当前打开的所有 Workbook 对象的集合。

    方法

     名称说明
     Add新建一个工作表。新工作表将成为活动工作表。
     CanCheckOut如果 Microsoft Excel 可以将指定的工作簿从服务器签出,则该值为 TrueBoolean 类型,可读写。
     CheckOut返回一个 String 对象,该对象表示一个将从服务器签出到本机进行编辑的指定工作簿。
     Close关闭对象。
     Open打开一个工作簿。
     OpenDatabase返回一个 Workbook 对象,该对象代表一个数据库。
     OpenText载入一个文本文件,并将其作为包含单个工作表的新工作簿进行分列处理,然后在此工作表中放入经过分列处理的文本文件数据。
     OpenXML打开一个 XML 数据文件。返回一个 Workbook 对象。

    属性

     名称说明
     Application如果不使用对象识别符,则该属性返回一个代表 Microsoft Excel 应用程序的 Application 对象。如果使用对象识别符,则该属性返回一个代表指定对象的创建程序的 Application 对象(可对一个 OLE 自动化对象使用该属性来返回该对象的应用程序)。只读。
     Count返回一个 Long 值,它代表集合中对象的数量。
     Creator返回一个 32 位整数,该整数指示创建对象的应用程序。只读 Long 类型。
     Item从集合中返回一个对象。
     Parent返回指定对象的父对象。只读。

     

    Workbook 对象

    代表一个 Microsoft Excel 工作簿.

    说明

    Workbook 对象是 Workbooks 集合的成员。Workbooks 集合包含 Microsoft Excel 中当前打开的所有 Workbook 对象。

    ThisWorkbook 属性

    ThisWorkbook 属性返回运行 Visual Basic 代码的工作簿。在大多数情况下,该工作簿与活动工作簿是同一个。但是,如果 Visual Basic 代码是加载宏的组成部分,ThisWorkbook 属性就不会返回活动工作簿。此时,活动工作簿是调用该加载宏的工作簿,而 ThisWorkbook 属性返回加载宏工作簿。

    如果用 Visual Basic 代码创建加载宏,那么对于那些编译到加载宏中的工作簿,在其中运行的语句应当用 ThisWorkbook 属性加以限定。

    示例

    使用 Workbooks(index)(其中index 是工作簿名称或索引号)可返回一个 Workbook 对象。下例激活工作簿一。

    Workbooks(1).Activate

    编号指示创建或打开工作簿的顺序。Workbooks(1) 是创建的第一个工作簿,而 Workbooks(Workbooks.Count)Workbooks 是最后一个。激活某工作簿并不更改其索引号。所有工作簿均包括在索引计数中,即便是隐藏工作簿也是如此。

    Name 属性返回工作簿名称。您不能通过使用此属性来设置该名称;如果您需要更改该名称,请使用 SaveAs 方法,将该工作簿保存为其他名称。下例激活名为“Cogs.xls”的工作簿(该工作簿必须已经在 Microsoft Excel 中打开)中的 Sheet1。

    Workbooks("Cogs.xls").Worksheets("Sheet1").Activate

    ActiveWorkbook 属性返回当前处于活动状态的工作簿。下例设置活动工作簿作者的名称。

    ActiveWorkbook.Author = "Jean Selva"

     

    展开全文
  • Sub Test()  Dim wb As Workbook  Set wb = Workbooks.Add(xlWBATWorksheet)  Set sht = wb.Worksheets("Sheet1")  wb.Close SaveChanges:=False Sub

    Sub Test()

      Dim wb As Workbook

      Set wb = Workbooks.Add(xlWBATWorksheet)

      Set sht = wb.Worksheets("Sheet1")

      wb.Close SaveChanges:=False

    Sub 

    展开全文
  • Sub CloseAllWB() Dim wb As Workbook If Workbooks.Count > 1 Then  For Each wb In Workbooks  If wb.Name  wb.Close True  End If  Next End If End Sub
  • 1 工作簿workbook 常用的事件 1.1 常用事件 workbook_open() workbook_WindowActivate() workbook_Windowresize() workbook_sheetchange() workbook_sheetselectionchange() workbook_beforesave() ...
  • VBA关闭工作簿和退出Excel

    万次阅读 2013-07-12 10:01:54
    要用VBA关闭工作簿,用Workbook.Close 方法即可,而要退出Excel,则用Application.Quit 方法。下面是一些代码示例:  关闭活动工作簿,如果工作簿有更改,提示是否保存:  Sub CloseWorkbook()  ...
  • 工作簿操作 一、概述 一个 excel 文件对应一个 workbook,打开后对应一个文件窗口 Windows(1).Visible = True 二、基本操作 workbook操作:open、add、save、saveas、close 1、判断文件是否存在和打开 是否存在:...
  • VBA单元格、工作表、工作簿

    千次阅读 2019-04-30 23:08:35
    详解VBA单元格、工作表、工作簿各种表示、方法,注意事项。
  • VBA-新建工作簿

    2020-02-26 12:09:43
    这节内容介绍如何应用VBA自动创建工作簿修改部分内容后保存关闭。和创建工作表类似,创建工作簿仍然使用add方法。下面是一个较为完整的创建例子: Sub addnewbook() Dim i As Integer Dim shtname As Variant ...
  • True '保存修改并关闭工作簿 End If Next End Sub Rem 判断已打开的工作簿文件后缀名 Function FileExt ( FileName As String ) As String On Error Resume Next If ...
  • EXcelVBA另存工作簿之后删除按钮及宏代码
  • 打开关闭工作簿 示例 如图所示,在“数据库.xlsx”工作簿中存有“销售数据”,在相同目录下的工作簿 希望能够将该工作簿中该工作表中的数据读入以便进行下一步操作。该如何用VBA完成? 销售经理 区域 ...
  • 使用情景:如题,将一个包含多工作表的工作簿拆分为单工作表工作簿文件 原始文件描述:【旺旺大礼包.xlsx】中有三个工作表,分别是旺仔牛奶、旺旺仙贝、旺旺小小酥 操作流程: 打开旺旺大礼包.xlsx——在菜单栏...
  • Workbooks是所有工作簿对象组成的集合,而Wrokbook对象是Workbooks集合的一个成员。 1.引用集合中的工作簿 利用工作簿名引用工作...通过代码获得指定工作簿的名称、保存的路径等文件信息,示例代码如下。 Sub WbMsg...
  • 1、关闭文件时如果文件做了修改,系统会提示保存,用下列语句就不会提示了: ThisWorkbook.Close savechanges:=False False表示不保存修改,如果改为True,则保存修改。类似的: ActiveWindow.Closesavechanges:...
  • VBA在Excel中的应用用VBA将同一工作簿中不同工作表拆成独立文件问题描述1.在“开发工具”选项卡中选择”Visual Basic”2.插入模块运行结果可能存在的问题 用VBA将同一工作簿中不同工作表拆成独立文件 问题描述 有一...
  • EXCEL VBA创建sheet/工作簿

    万次阅读 2019-05-29 11:02:34
    For Each sht In mybook.Sheets ' FOR 循环实现将工作簿中的多个工作表拆开成以工作表名称命名的工作簿并保存在原工作簿相同的路径中 sht.Copy ActiveWorkbook.SaveAs Filename:=mybook.Path & "\" & sht....
  • VBA工作簿操控备忘

    2017-06-22 22:38:08
    CreateFolder Method ...Required........Required....1、工作簿创建和保存: ...3、工作簿关闭: ...Sub 关闭所有工作簿() ...Sub 关闭指定工作簿并保存() Workbooks("Workbook").Close savechanges:=True End Sub
  • 我在分析完代码后,添加了注释,修改了BUG。分享给大家,希望对大家有用。直接复制就可以运行了。 '#######################################################################################################...
  • excel将宏保存到个人工作簿

    千次阅读 2017-11-14 20:03:00
    excel将宏保存到个人工作簿 excel2007将宏保存到personal.xlsb可以使宏在其他工作薄中使用,但是如果在创建宏的时候没有注意,而将宏保存到了当前工作薄(例如你保存到了123.xlsx)或者是所有打开的工作薄,或者是...
  • 如何为当前工作簿自动备份一个副本至指定目录,以日期和时间为文件名? 实现代码 Option Explicit Sub 备份工作簿() Dim FileFullName As String Dim FilePath As String FilePath =..
  • Workbooks工作簿对象 For Each 循环 第一块内容:For Each循环 Sub test1() Dim ge As Range'把变量ge定义为Range(rng)类型,单元格变量/区域变量 For Each ge In Range("A1:A10")'在单元格区域A1:A10范围内,...
  • 复制指定目录下excel工作簿中同名工作表,该代码将在相同目录下创建汇总工作簿,各工作簿中同名工作表将被分别复制到汇总工作簿的不同表中(汇总工作簿中各工作表以分工作簿名命名)。 所有要汇总的工作簿在同一个...
  • 各位好,今日我们讲VBA代码的第三十一讲,如何新建EXCEL...在VBA中使用Add方法新建工作簿。一:ADD方法:使用Workbooks对象的Add方法创建新工作簿,其语法为:Workbooks对象.Add(Template)参数Template可选,确定如...
  • 如何用VBA批量copy内容到各工作簿

    千次阅读 2018-06-09 23:38:31
    Sub 批量COPY工作表到工作簿() '将工作表中的内容,分表COPY到另一个工作簿中 '准备一个工作簿,选取需要COPY的工作表(区域),贴,保存关闭 mypath = ThisWorkbook.Path '代码所在工作簿的文件夹路径 Set zb...
  • Sub 保存工作簿的3种方法() ActiveWorkbook.Save '保存当前活动工作簿的变化 ActiveWorkbook.SaveAs Filename:="c:\windows\xiehui.xls" '将当前活动工作簿另存 ActiveWorkbook.SaveCopyAs Filename:="c:\windows\...
  • VBA批量转换Excel工作簿为PDF

    千次阅读 2013-07-18 09:46:39
     Excel 2010和Excel 2007可以将Excel工作簿另存为PDF格式文件,但手工的方法每次...如果没有批量转换软件,在Excel 2010和Excel 2007中,利用VBA代码也可以轻松实现将Excel工作簿批量转换为PDF,方法如下:  1...
  • (一)基础操作 1.新建工作簿 Sub 新建工作簿() Dim wbk As Workbook '定义wbk为工作簿对象,因为它是一个对象,所以下局用Set来赋值 ...wbk.SaveAs "c:\123.xls" '保存为C盘路径下的一个工作簿文件 End S...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,584
精华内容 633
关键字:

vba保存并关闭工作簿