随笔分类 -  VBA

1
PPT事件
摘要：PPT的事件无法在slde模块直接录入，需要通过创建类并实例化来完成 一、在class模块 1 Option Explicit 2 Public WithEvents pptApp As Application 3 4 Private Sub Class_Initialize() 5 MsgBox 阅读全文
posted @ 2024-02-17 16:21 易塞尔工作室 阅读(73) 评论(0) 推荐(0)
VBA字节数组
摘要：1 Sub readArrByte() 2 Dim strPath As String, ArByte() As Byte 3 Dim intFileLen As Integer 4 '配置路径、字节数组 5 strPath = ActivePresentation.Path ' 6 strPath 阅读全文
posted @ 2024-01-30 16:24 易塞尔工作室 阅读(45) 评论(0) 推荐(0)
Listbox
摘要：1 '添加条目 RowSource 2 Private Sub UserForm_Initialize() 3 Range("a1:a10").Name = "DataSource" 4 Me.lbx.RowSource = "DataSource" 'Rowsourse = string 5 End Sub 1 '添加条目 Additem 2 Private Sub U... 阅读全文
posted @ 2019-06-24 08:17 易塞尔工作室 阅读(496) 评论(0) 推荐(0)
BubbleSort_Counting_Counting_WorkShtSort Sort
摘要：1 Sub Main() 2 Application.ScreenUpdating = False 3 On Error GoTo Line 4 Dim Ar(), NO As Integer 5 Ar = Application.WorksheetFunction.Transpose((Range("a1").CurrentRegion.Va... 阅读全文
posted @ 2019-05-29 08:28 易塞尔工作室 阅读(351) 评论(0) 推荐(0)
Excel读取Word Table元素
摘要：1 Option Explicit 2 3 Sub Mian() 4 Application.ScreenUpdating = False 5 Application.DisplayAlerts = False 6 Application.EnableEvents = False 7 Application.StatusBar = True 8 Dim Path$, File$... 阅读全文
posted @ 2019-02-27 20:11 易塞尔工作室 阅读(428) 评论(0) 推荐(0)
工作表是否已存在函数
摘要：1 Function SheetIsExist(shtName) As Boolean 2 Dim ws As Worksheet 3 On Error Resume Next 4 Set ws = Worksheets("" & shtName) 5 SheetIsExist = (Err = 0) 6 Err.Clear: On Error GoTo ... 阅读全文
posted @ 2019-01-24 08:23 易塞尔工作室 阅读(280) 评论(0) 推荐(0)
按模板生成工作表
摘要：Sheet1： Template： 阅读全文
posted @ 2019-01-21 14:38 易塞尔工作室 阅读(370) 评论(0) 推荐(0)
多层字典对象应用案例分析
摘要：暂缺 阅读全文
posted @ 2019-01-14 22:49 易塞尔工作室 阅读(144) 评论(0) 推荐(0)
字典的应用
摘要：我们知道字典对象由关键字 Key 和数据项 Item 构成。通常情况下 Key 是字符串，实际上也可以是其它数据类型，比如整数、小数等。而数据项则可以是任何数据类型，包括字典对象本身。这样我们就可以创建多层的字典对象了。利用多层字典对象，我们可以实现诸如级联菜单、联动数据有效性序列、联动下拉框等等应 阅读全文
posted @ 2019-01-12 22:32 易塞尔工作室 阅读(430) 评论(0) 推荐(0)
字典的基本功能
摘要：数据源： 阅读全文
posted @ 2019-01-12 22:26 易塞尔工作室 阅读(509) 评论(0) 推荐(0)
Dictionary 对象
摘要：Dictionary 对象 对象的存储数据键/项对。 语法 Scripting.Dictionary 说明 Dictionary对象相当于 PERL 关联数组。 项目，可以是任何形式的数据，存储在数组中。 每个项目相关联的唯一键。 密钥用于检索单个项目和通常是整数或一个字符串，但可以是任何除数组。 阅读全文
posted @ 2019-01-12 20:15 易塞尔工作室 阅读(437) 评论(0) 推荐(0)
File System Object（FSO对象）B
摘要：一、实例FSO获取当前路径下的文件 二、实例FSO遍历当前文件夹所有子文件夹 三、实例FSO遍历当前文件夹及子文件夹下的所有Excel文件 阅读全文
posted @ 2019-01-11 16:03 易塞尔工作室 阅读(505) 评论(0) 推荐(0)
File System Object（FSO对象）A
摘要：FSO对象模型包含在Scripting 类型库 (Scrrun.Dll)中，它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象： 1、Drive用来收集驱动器的信息，如可用磁盘空间或驱动器的类型 2、Folder用于创建、删除或移动文件夹， 阅读全文
posted @ 2019-01-10 21:58 易塞尔工作室 阅读(943) 评论(0) 推荐(0)
FileDialog对象
摘要：返回表示文件对话框实例的 FileDialog 对象。 语法 expression。 FileDialog( _fileDialogType_ ) expression：表示 Application 对象的变量。 参数 备注 MsoFileDialogType 可以是 MsoFileDialogTy 阅读全文
posted @ 2019-01-09 23:19 易塞尔工作室 阅读(1891) 评论(0) 推荐(0)
FileCopy方法
摘要：复制文件。 语法 FileCopy源，目标 FileCopy 语句语法包含以下命名参数： 说明 如果您尝试在当前打开的文件使用FileCopy语句，则将出错。 例子复制当前路径下的Test.txt文件到C盘Test文件夹下 阅读全文
posted @ 2019-01-09 22:54 易塞尔工作室 阅读(5091) 评论(0) 推荐(0)
Rmdir方法
摘要：删除现有目录或文件夹。 语法 RmDir路径 所需的_路径_参数标识的目录或文件夹要移除的字符串表达式。 _路径_可以包含驱动器。 如果没有指定驱动器， RmDir 将删除当前驱动器上的目录或文件夹。 注解 如果您尝试对包含文件的目录或文件夹使用 RmDir ，则会发生错误。 使用**Kill** 阅读全文
posted @ 2019-01-09 22:41 易塞尔工作室 阅读(241) 评论(0) 推荐(0)
Mkdir方法
摘要：新建目录或文件夹。 语法 MkDir 路径 所需的_路径_参数是一个字符串表达式，标识的目录或文件夹创建。 _路径_可以包含驱动器。 如果未指定驱动器， MkDir当前的驱动器上创建新目录或文件夹。 例子 创建当前路径下的Test文件夹 阅读全文
posted @ 2019-01-09 22:32 易塞尔工作室 阅读(482) 评论(0) 推荐(0)
Name方法
摘要：重命名磁盘文件、目录或文件夹。 语法 Name 旧路径名称 As 新路径名称 “Name”**** 语句语法包含以下部分： 说明 在 Name语句重命名文件并将其移至不同的目录或文件夹，如有必要。 名称可以跨驱动器，移动文件，但它只能重命名现有目录或文件夹_路径_和_oldpathname_位于同一 阅读全文
posted @ 2019-01-09 22:23 易塞尔工作室 阅读(422) 评论(0) 推荐(0)
kill方法
摘要：删除磁盘上的文件。 语法 Kill 路径名 所需的_路径名_参数是一个字符串表达式，指定要删除的一个或多个文件名。 _Pathname_可能包括驱动器和目录或文件夹。 例子删除当前路径下的TXT文档 阅读全文
posted @ 2019-01-09 14:38 易塞尔工作室 阅读(414) 评论(0) 推荐(0)
Dir函数
摘要：返回一个 String，它表示与指定模式或文件属性或驱动器的卷标匹配的文件、目录或文件夹的名称。 语法 Dir[(pathname、 [属性])] Dir 函数语法具有以下部分： 部分说明 pathname 可选。 字符串表达式，指定一个文件名;可能包含目录或文件夹，和驱动器。 零长度字符串 ("" 阅读全文
posted @ 2019-01-09 13:52 易塞尔工作室 阅读(747) 评论(0) 推荐(0)

1