jieru_liu的博客

问题：每次开机，Excel总是自动新建一个空白文档，烦死了解决方法：文件 → 选项 → 信任中心 → 信任中心设置→ 选中描述为“用户启动”的项（注意路径位置）→删除→确定。搞定^-^!...

在python中实现excel的筛选

AutoFilter、AutoFilterMode与FilterMode的来龙去脉

excel粘贴报错：无法对多重选择区域执行此操作

sub macro() '将当前工作簿 “是否保存” 的属性值该为：否(即未保存) ActiveWorkbook.Saved = FalseEnd Sub

Sub files_saveas() # 定义文件选择框对象 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd If .Show = -1 Then selected_path = fd.SelectedItems(1) End If End With # 定义

Sub 使用sql处理数据() Application.ScreenUpdating = False '创建数据库相关对象 Dim Cnn As Object, MyCat As Object Set Cnn = CreateObject("ADODB.Connection") '创建数据库连接 Set MyCat = CreateObject("ADOX.Catalog") '创建 包含描述数据源模式目录的集合 Dim

1）key属性： 修改字典中某一键值对的key值2）item属性： 修改字典中某一键值对的item值3）keys方法： 获取字典的所有键4）items方法： 获取字典的所有值5）item属性： 如果 key已存在，则修改其item值；如果不存在，则新增6） add方法： 如果 key已存在，将报错；如果不存在，则新增Sub t() Dim d As Dictionary '定义变量 Set d = New Dictionary '创建对象 '一、获取

Sub speak() Application.Speech.speak "小鑫鑫, 这周末来干饭呀，哈哈哈" '读取自定义内容 [A1:A5].speak '读取表中【A1:A5】区域的内容End Sub

Sub case的使用() '1、to的使用：相当于“大于等于，且小于等于”。左右边界都包含 score = 100 Select Case score Case 90 To 100 '等价于[90, 100] MsgBox "优秀" Case 60 To 89 MsgBox "及格" Case Is < 60

窗体显示有两种模式：1、无模式显示： 可以对表格进行操作2、有模式显示： 不可以对表格进行操作

Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo ErrL With Target If Left(.Value, 8) = "https://" And Right(.Value, 3) = "jpg" Then '如果单元格内容为网址 '添加网络图片，并设置为图片大小位置随单元格变化而变化 ActiveSheet.S

Multiline：控制字符串为单行还是多行模式单行模式： 只有一个行首，字符串的最前面；一个行末，字符串的最后面多行模式： 每行都有一个行首和行末Mulitiline的设置只会对正则符号：^和$ 有影响Sub 测试() Dim my_str As Variant, mh As Variant, dest$ Set reg = CreateObject("vbscript.regexp") my_str = "这是行首ABC" & Chr(10) &

global属性：设置是否进行全局匹配Sub 测试() Dim my_str$, mt, mh, sub_str$ Set reg = CreateObject("vbscript.regexp") my_str = "我人民币大写：123656.00。小写：123654.03 " & _ "中介人民币大写：800.36公司日丰人民币大写：36659.32.日韩地晶上 " With reg .Patte

SubMatches：获取匹配到的字符串的所有分组Sub 测试() Dim my_str$, mt, mh, sub_str$ Set reg = CreateObject("vbscript.regexp") my_str = "我人民币大写：123656.00。小写：123654.03 " & _ "中介人民币大写：800.36公司日丰人民币大写：36659.32.日韩地晶上 " With reg

import win32com.clientxls=win32com.client.Dispatch("Excel.Application")# 打开工作簿wb = xls.Workbooks.Open(Filename="工作簿.xls") # 工作簿名ret = xls.Application.Run("模块", args) # 第1个参数：模块名； 第2个参数：要执行的模块的参数print ret # ret是模块的返回值，如果有返回值的话# 关闭工作簿wb.Close()w

方法一： 通过循环，判断目标表是否存在Function searchTable(TableName As String) As Boolean searchTable = False '默认不存在 Dim tbl As DAO.TableDef For Each tbl In CurrentDb.TableDefs If tbl.Name = TableName Then searchTable = True '如果存在，返回 Ture，

Private Sub Workbook_Open() Dim fso As Scripting.FileSystemObject Dim root_path$ root_path = "D:\工资单" '如果 D 盘中不存在文件夹 “工资单”，就创建 If Not fso.FolderExists(root_path) Then fso.CreateFolder root_path End

如图：根据A，B列的数据 得到C列（需要去掉前后空格），然后在文件夹中查找 “C列“ 中的文件并删除Sub 删除目标文件() Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim root_path '根文件夹路径 'root_path = "D:\工作\数据类" '根文件夹路径。假设所有文件在 “D:\工作\数据类” 文件夹中 root_pat

文件夹导航图 （代码运行背景）Option Compare Database'-------------------------------------------------------------------------------------------' 1、目的：批量导入表' 2、背景：' 根路径：D:\工作\数据类\06进销存\02进销存生成\2020'' 在名为 2020 的文件夹下包含 1-12月 以月份命名（如：10月、5月）的文件夹，以及其他非相关文件夹

Worksheet.ProtectContents： 工作表的属性。用于判断工作簿中的某张表是否被保护设置工作表保护的方法：Workbook.ProtectStructure： 工作簿的属性。用于判断工作簿的结构是否被保护设置工作簿结构保护的方法：...

ProtectContents 是工作表的属性，用于判断工作簿中的某张表是否处于保护状态Sub worksheet_ProtectContents() Debug.Print Sheets(1).ProtectContents '判断第一个工作表是否处于保护状态End Sub保护某张工作表的方法： 选中要保护的表，右键选择“保护工作表”...

Sub call_word() Dim doc As New Word.Application '前期绑定。使用这种方法，会有自动提示 'Set doc = CreateObject("word.application") '后期绑定。创建 word 对象 doc.Visible = True Set wd = doc.Documents.Add '新建一个 word 空白文档 wd.Paragraphs(1).Range.

将错误处的 “Declare”替换成“Declare PtrSafe” 即可

写在前面： 如果文件是 xslm 格式，需要先打开Excel文件，另存为 xls 格式具体步骤：1、 首先用普通的文本编辑器（我用的是NotePad++）打开这个文件**（ 注意文件类型选 “All types” ）2、 在文件里查找 “DPB”，把它改成 “DPx”，保存修改。（ 注意大小写 ）3、 用 Excel 重新打开这个文件（ 弹框点 “是” 即可）**4、按 “Alt + F11” 进入 “Visual Basic” 代码页面。（ 对出现的提示弹框点 “确定” 即可 ）5

错误原因： 工作簿被保护了解决方法： 点击 “审阅” 下的 “保护工作簿”，输入密码 取消保护即可

一、Range.MergeArea 属性，返回包含指定单元格的合并单元格区域，为只读属性。注意：Range 只能为单个单元格Sub about_MergeArea() Dim merge_rng As Range [a1:a3].Merge '合并 [a1:a3] 单元格 Set merge_rng = Range("a2").MergeArea '返回包含 [a2] 的合并单元格区域 merge_rng.Select End Sub二、

一、AutoFilter：1、Range 的方法，对表中列进行筛选；2、Worksheet 的属性，返回表中的筛选对象Sub about_AutoFilter()' 1、Range.AutoFilter，返回值始终为 True' 1》 语法：Range.AutoFilter(Field, Criteria1, Operator, Criteria2, SubField, VisibleDropDown)' 2》 用途：对指定区域 Range 的 Field 偏移列进行筛选