精华内容
下载资源
问答
  • 【关键步骤】从开发工具里打开Visual Basic, 新建模块1,将以下代码复制到里面,保存,关闭代码窗口。Public Sub 一键获取本文件夹工作表()Application.ScreenUpdating = FalseDim f As String, i As IntegerDim wb ...

    【关键步骤】从开发工具里打开Visual Basic, 新建模块1,将以下代码复制到里面,保存,关闭代码窗口。

    Public Sub 一键获取本文件夹工作表()

    Application.ScreenUpdating = False

    Dim f As String, i As Integer

    Dim wb As Excel.Workbook

    Dim sh, sh1 As Excel.Worksheet

    Set sh1 = ThisWorkbook.Worksheets("导入清单")

    If Range("a65536").End(xlUp).Row > 1 Then

    sh1.Range("a2:b" & Range("a65536").End(xlUp).Row).Clear

    End If

    f = Dir(ThisWorkbook.Path & "\*xls*")

    Do While f <> ""

    If f <> ThisWorkbook.Name Then

    Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f)

    For i = 1 To Sheets.Count

    sh1.Range("a" & sh1.Range("a65536").End(xlUp).Row + 1) = wb.Name

    sh1.Range("b" & sh1.Range("b65536").End(xlUp).Row + 1) = Sheets(i).Name

    Next

    Worksheets.Copy Before:=Workbooks(ThisWorkbook.Name).Sheets(1)

    wb.Close True

    End If

    f = Dir

    Loop

    sh1.Select

    Application.ScreenUpdating = True

    MsgBox "已为您成功导入" & Sheets.Count - 1 & "张工作表", , "VBA交流QQ15678768"

    End Sub

    展开全文
  • VBA

    2010-04-09 10:13:00
    ThisWorkbook ... Application的一个属性,是Boolean 数据类型,意思是屏幕窗口刷新是否打开,Application.Screenupdating=False,意思是屏幕窗口刷新关闭,可以加快程序运行,加在程序开头;Application.S...

        ThisWorkbook 返回一个 Workbook 对象,该对象代表当前宏代码运行的工作簿

        Screenupdating Application的一个属性,是Boolean 数据类型,意思是屏幕窗口刷新是否打开,Application.Screenupdating=False,意思是屏幕窗口刷新关闭,可以加快程序运行,加在程序开头;Application.Screenupdating=True,意思是屏幕窗口刷新打开,加在程序结尾。以上两句应在程序调试好之后再添加。

        VBA程序一般需要在开头结尾加上Screenupdating控制语句,以加快程序运行

        Calculation Application的一个属性,代表Excel公式计算模式,Application.Calculation = xlManual 关闭自动运算;Application.Calculation = xlAutomatic 开启自动运算

        VBA 程序一般需要在开头结尾加上Calculation 控制语句,以加快程序运行

        ColumnWidthRowHeight Excel中单元格有Width和Height的属性, 这两个属性以Point为单位,但它们只是可读属性, 如果需要设置行高和列宽的话, 要用到另两个可写属性RowHeight和ColumnWidth。RowHeight属性同样以Point为单位,实际上就等于Height属性。 但ColumnWidth属性和Width属性不同

        WorkBook中默认sheet对象自动命名,如:Sheet1,Sheet2.但可以在属性中手动修改其对象名称


        在Excel sheet表格中,使用了microsoft date and time picker control 控件,固定好该控件在sheets表格中的大小后,每次打开Sheet表格的时候都会自动改变大小,对sheet窗口进行最大最小化或滚动操作后可恢复.因此解决办法就是在Book打开事件中写入对Sheet窗口最大化最小化或者滚动视图的动作


    转载于:https://www.cnblogs.com/dongzhiquan/archive/2010/04/09/1994617.html

    展开全文
  • VBA过程代码16:关闭活动窗口Sub MyNZ()ActiveWindow.CloseEnd sub代码的解析说明:上述代码过程将关闭当前的活动窗口。注意上述代码中在close后面没有跟任何的参数,那么在关闭的过程中正常的操作,如果用Active...

    e0e0678317ceb55ddc1a11ae00d3c25f.png

    分享成果,随喜真能量。大家好,今天继续给大家讲解VBA编程的常用过程代码,这里列举的过程是比较简单的,但简单的过程会汇总成一个浩大的工程。

    VBA过程代码16:关闭活动窗口

    Sub MyNZ()

    ActiveWindow.Close

    End sub

    代码的解析说明:上述代码过程将关闭当前的活动窗口。注意上述代码中在close后面没有跟任何的参数,那么在关闭的过程中正常的操作,如果用ActiveWindow.Close(TRUE),将先保存后再关闭,如果用ActiveWindow.Close(false)那么将先不保存关闭,类似于.SAVE=TRUE.

    e2756eed8e61b90f0916d049cd6bce00.png

    VBA过程代码17:单元格格式,选定单元格左对齐

    Sub MyNZ()

    Selection.HorizontalAlignment = xlLeft

    End sub

    代码的解析说明:上述代码过程将执行选择区域的对齐方式,HorizontalAlignment是对齐方式,= xlLeft是左对齐的方式,类似于我们点击工具栏中的左对齐操作。

    VBA过程代码18:单元格格式,选定单元格居中

    Sub MyNZ()

    Selection.HorizontalAlignment = xlCenter

    END SUB

    代码的解析说明:上述代码过程将执行选择区域的对齐方式,HorizontalAlignment是对齐方式,= xlCenter是居中对齐的方式,类似于我们点击工具栏中的居中对齐操作。

    VBA过程代码19:单元格格式,选定单元格右对齐

    Sub MyNZ()

    Selection.HorizontalAlignment = xlRight

    END SUB

    代码的解析说明:上述代码过程将执行选择区域的对齐方式,HorizontalAlignment是对齐方式,= xlRight是居中对齐的方式,类似于我们点击工具栏中的右对齐操作。

    f20ec18413b9da0df95ae79799e12f7d.png

    VBA过程代码20:单元格格式,选定单元格为百分号风格

    Sub MyNZ()

    Selection.Style = "Percent"

    END SUB

    代码的解析说明:上述代码过程将执行选择区域的数值设置,Style,格式,这种设置类似于Selection.NumberFormatLocal = "0.00%"的操作。

    2fa966b7dcfbceaaa6b2541a8830861b.png

    留言版:

    下面是我根据我自己20多年的VBA实际利用经验,编写的几部经验教程,全是满满的“干货”,欢迎有需要的朋友联络(WeChat:NZ9668),分享。

    1 《VBA代码解决方案》是VBA中各个知识点的讲解,覆盖了绝大多数的知识点。

    2 《VBA数据库解决方案》是数据处理的利器;

    3 《VBA数组与字典解决方案》中讲解VBA的精华----字典。

    4 面向初学及中级以下学员的视频《VBA代码解决方案》正在录制,现在第一册很快录制完成。

    展开全文
  • VBA过程代码16:关闭活动窗口Sub MyNZ()ActiveWindow.CloseEnd sub代码的解析说明:上述代码过程将关闭当前的活动窗口。注意上述代码中在close后面没有跟任何的参数,那么在关闭的过程中正常的操作,如果用Active...

    分享成果,随喜真能量。大家好,今天继续给大家讲解VBA编程的常用过程代码,这里列举的过程是比较简单的,但简单的过程会汇总成一个浩大的工程。

    VBA过程代码16:关闭活动窗口

    Sub MyNZ()

    ActiveWindow.Close

    End sub

    代码的解析说明:上述代码过程将关闭当前的活动窗口。注意上述代码中在close后面没有跟任何的参数,那么在关闭的过程中正常的操作,如果用ActiveWindow.Close(TRUE),将先保存后再关闭,如果用ActiveWindow.Close(false)那么将先不保存关闭,类似于.SAVE=TRUE.

    e6b0293e944ef8d36a5c9dbaf35d1d48.png

    VBA过程代码17:单元格格式,选定单元格左对齐

    Sub MyNZ()

    Selection.HorizontalAlignment = xlLeft

    End sub

    代码的解析说明:上述代码过程将执行选择区域的对齐方式,HorizontalAlignment是对齐方式,= xlLeft是左对齐的方式,类似于我们点击工具栏中的左对齐操作。

    VBA过程代码18:单元格格式,选定单元格居中

    Sub MyNZ()

    Selection.HorizontalAlignment = xlCenter

    END SUB

    代码的解析说明:上述代码过程将执行选择区域的对齐方式,HorizontalAlignment是对齐方式,= xlCenter是居中对齐的方式,类似于我们点击工具栏中的居中对齐操作。

    VBA过程代码19:单元格格式,选定单元格右对齐

    Sub MyNZ()

    Selection.HorizontalAlignment = xlRight

    END SUB

    代码的解析说明:上述代码过程将执行选择区域的对齐方式,HorizontalAlignment是对齐方式,= xlRight是居中对齐的方式,类似于我们点击工具栏中的右对齐操作。

    4c4b2c7c091bf6619da20e5dc943c3de.png

    VBA过程代码20:单元格格式,选定单元格为百分号风格

    Sub MyNZ()

    Selection.Style = "Percent"

    END SUB

    代码的解析说明:上述代码过程将执行选择区域的数值设置,Style,格式,这种设置类似于Selection.NumberFormatLocal = "0.00%"的操作。

    181227465ee0cd481386760d7bd2dc80.png

    留言版:

    下面是我根据我自己20多年的VBA实际利用经验,编写的几部经验教程,全是满满的"干货",欢迎有需要的朋友联络(WeChat:NZ9668),分享。

    1 《VBA代码解决方案》是VBA中各个知识点的讲解,覆盖了绝大多数的知识点。

    2 《VBA数据库解决方案》是数据处理的利器;

    3 《VBA数组与字典解决方案》中讲解VBA的精华----字典。

    4 面向初学及中级以下学员的视频《VBA代码解决方案》正在录制,现在第一册很快录制完成。

    展开全文
  • 1、在Excel工作表界面下同时按Alt+F11键,打开VBA窗口,进入VBA编辑环境,在菜单中点击“插入-模块”,在当前窗口编辑区域中输入自定义函数代码,代码见下文。复制粘贴代码后,将窗口关闭。 2、在A1单元格中输入...
  • Excel_VBA教程

    2014-09-22 11:36:34
    1.获取当前文件夹的名称(CURDIR函数) 144 2.更改文件或文件夹名称(NAME函数) 145 3.检查文件或文件夹是否存在(DIR函数) 145 4.获得文件修改的日期和时间(FILEDATETIME函数) 147 5.获得文件大小(FILELEN函数...
  • VBA常用技巧

    2014-12-21 16:39:28
    45-2 单击工作簿关闭按钮关闭工作簿 12 技巧46 禁用工作簿的关闭按钮 12 技巧47 保存工作簿的方法 12 47-1 使用Save方法 12 47-2 直接保存为另一文件名 12 47-3 保存工作簿副本 12 技巧48 保存指定工作表为工作簿...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    VBA常用技巧 目录 VBA常用技巧 1 第1章 Range(单元格)对象 10 技巧1 单元格的引用方法 10 1-1 使用Range属性 10 1-2 使用Cells属性 11 1-3 使用快捷记号 11 1-4 使用Offset属性 12 1-5 使用Resize属性 13 1-6 使用...
  • 创建文字样式能够获得当前计算机中可用的字体列表;文字按插入点自动对齐提供了对自定义数据类型的数组进行排序的一个思路;提取多行文字中的文字内容对AutoCAD中多行文字的格式代码进行了分析。使用ObjectDBX实现的...
  • Excel文件自毁VBA指令

    千次阅读 2016-10-27 19:07:51
    新建一个Excel工作簿,按Ctrl+F11打开Excel VBE代码编辑窗口,把以下代码指令放到ThisWorkbook,只要一运行就会毁掉当前工作簿,需要做好备份。Sub kills() Application.DisplayAlerts = False With ThisWorkbook '...
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    关闭........................................................................7 其他文件函数................................................................7 二、VISUALBASIC程序设计网络教学...............
  • 02048引用当前工作簿窗口 02049引用新建的工作簿窗口 02050引用特定工作簿的窗口 02051获取工作簿窗口的拆分状态 02052获取工作簿窗口的窗格信息 02053获取工作簿窗口的冻结窗格状态 02054获取工作簿窗口的各种显示...
  • autocad命令全集

    2008-10-24 21:46:23
    52 CLOSE   关闭当前图形文件 53 COLOR COL 设置实体颜色 54 COMPILE   编译(Shape)文件和PostScript文件 55 CONE   绘制三维圆锥实体 56 CONVERT   将R14或更低版本所作的二维多段线(或关联性区域图样填充)...
  • 调整winmanager窗口的大小,参考http://blog.csdn.net/yangzhongxuan/article/details/7944927 : let g:bufExplorerMaxHeight=30 let g:bufExplorerMoreThanOne=0 miniBufferExplorer,直接下载minibufexpl.vim ...
  • 4.4.3 自动关闭Employees窗体 86 4.5 小 结 87 第5章 使用DAO 88 5.1 理解DAO 88 5.1.1 了解数据库的内部构造 89 5.1.2 DAO初步 90 5.1.3 进入数据库 90 5.1.4 检查数据库 92 5.1.5 检查表的属性 93...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【截取窗口对象】:将选定的窗口或者对象转换成图片文件,可截Excel界面和其它任意界面 【截取矩形对象】:将选定的矩形区域转换成图片文件 【截取任意区域】:将选定任意区域转换成图片文件 【删除空单元格】:删除...
  • Excel百宝箱

    2012-10-27 17:09:21
    【截取窗口对象】:将选定的窗口或者对象转换成图片文件,可截Excel界面和其它任意界面 【截取矩形对象】:将选定的矩形区域转换成图片文件 【截取任意区域】:将选定任意区域转换成图片文件 【删除空单元格】:删除...
  • 【截取窗口对象】:将选定的窗口或者对象转换成图片文件,可截Excel界面和其它任意界面 【截取矩形对象】:将选定的矩形区域转换成图片文件 【截取任意区域】:将选定任意区域转换成图片文件 【删除空单元格】:...
  • aspnet公共类cs文件.rar

    2020-07-16 11:07:28
    Excel操作辅助类(无需VBA引用)(ExcelHelper.cs)利用VBA对象,导出DataView到一个Excel文档中的Excel辅助类(Export2Excel.cs)关联文件(ExtensionAttachUtil.cs)注册文件关联的辅助类(FileAssociationsHelper.cs...
  • 7.提供访问键盘当前状态的属性(KeyboardHelper.cs) 8.全局键盘钩子。这可以用来在全球范围内捕捉键盘输入。(KeyboardHook.cs) 9.模拟鼠标点击(MouseHelper.cs) 10.全局鼠标钩子。这可以用来在全球范围内捕获鼠标...
  • WHC第三方控件

    2018-07-16 12:51:42
    7. 提供访问键盘当前状态的属性(KeyboardHelper.cs) 8. 全局键盘钩子。这可以用来在全球范围内捕捉键盘输入。(KeyboardHook.cs) 9. 模拟鼠标点击(MouseHelper.cs) 10. 全局鼠标钩子。这可以用来在全球范围内捕获...
  • 可以制作加密安装盘(2KB) 566,opencdrom.zip 可以程序控制打开或关闭CDROM,非常方便(2KB) 567,getusername.zip 自动读取用户登陆名称,再进行密码验证(2KB) 568,gethostname.zip 读取机器名称...
  • 可以制作加密安装盘(2KB) 566,opencdrom.zip 可以程序控制打开或关闭CDROM,非常方便(2KB) 567,getusername.zip 自动读取用户登陆名称,再进行密码验证(2KB) 568,gethostname.zip 读取机器名称...
  • 可以制作加密安装盘(2KB) 566,opencdrom.zip 可以程序控制打开或关闭CDROM,非常方便(2KB) 567,getusername.zip 自动读取用户登陆名称,再进行密码验证(2KB) 568,gethostname.zip 读取机器名称...
  • 1.2.3 solution explorer窗口 13 1.2.4 项目属性 14 1.2.5 assembly information屏幕 15 1.2.6 编译设置 16 1.2.7 调试属性 20 1.2.8 引用 21 1.2.9 资源 23 1.2.10 设置 24 1.2.11 其他项目...
  • 1.2.3 solution explorer窗口 13 1.2.4 项目属性 14 1.2.5 assembly information屏幕 15 1.2.6 编译设置 16 1.2.7 调试属性 20 1.2.8 引用 21 1.2.9 资源 23 1.2.10 设置 24 1.2.11 其他项目属性选项...
  •  如果不带任何参数,chkdsk 将显示当前驱动器中的磁盘状态。 drive: 指定要 chkdsk 检查的驱动器。 /p 即使驱动器不在 chkdsk 的检查范围内,也执行彻底检查。该参数不对驱动器做任何更改。 /r 找到坏扇区并...

空空如也

空空如也

1 2
收藏数 31
精华内容 12
关键字:

vba关闭当前窗口