Sub ListDocumentFonts() '##列出文档中的字体 Dim p As Page Dim s As Shape Dim col As New Collection Dim sFontList As String Dim vFont As Variant For Each p In ActiveDocument.Pages For Each s In p.FindShapes(, cdrTextShape)
VBA一键汇总多个工作簿-名称相同的工作表-的指定区域数据 日常工作，我们经常需要汇总相同格式的工作簿的某个工作表的数据 如1月业绩、2月业绩。。。。12月业绩等 姓名数量数据2222数据2323数据2424数据2525数据2626数据2727数据2828数据2929数据3030数据3131数据3232数据3333数
相关的MSDN文档 https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/platform-apis/aa752706(v=vs.85) Public Function GetClipboardText() As String ' 早期绑定必须要 点击 工具>引用 引用 Microsoft HTML Obiect Library
代码如下： 一，前期绑定： Sub 转换txt文件编码() Dim stm As New ADODB.Stream Dim str As String Dim ins As String ins = ThisWorkbook.Path & "\数据.txt" With stm .Charset = "GB2312" .Open .LoadFromFile ins str = .
原由： 在学习VBA的ADO功能时，经常需要把Excel中的数据导入Access中；实现这样的方法有很多种： 1），使用Access的导入功能直接实现； 2），使用ADO的Recordset对象实现，不过由于Access中没有Excel中的表，需要创建表，需要设计表的结构，很繁琐。 在学到SQL查询语句，Select查询生成表功能
出处：http://www.360doc.com/content/21/1113/17/77710807_1004011085.shtml 前面我们讲的大多是**并操作单个的单元格，或者是连续的单元格区域，如果这些单元格区域不连续，如下图所示，单元格区域A1:B2、A4:B5、A7:B8分别隔开，各自独立，此时，有没有什么办法在VBA中一次获取这些区域（不能包含
一、合并工作簿 Sub 合并工作簿() Application.ScreenUpdating = False myfile = Dir(ThisWorkbook.Path & "\*.xls*")'Dir函数，获取同路径下待合并excel的文件名 Do While myfile <> "" '当文件名不为空的时候，继续运行，如果为空，说明表格已经循环一个遍了
如果要用VBA同时选择多个工作表，可以利用数组或设置“Select”方法的参数为“False”来扩展所选择的内容，如下面的一些代码： 1.用工作表名称： 假如工作表名称为“Sheet1”、“Sheet2”、“Sheet3”，同时选择这3个工作表： Sub SelectMultiSheets() Sheets(Array("Sheet3", "Shee
1- 区域命名 ThisWorkbook.Names.Item("foo").RefersTo =Tabelle1!$A$1:$B$1 ThisWorkbook.Names.Item("foo").RefersToRange.Address $A$1:$B$1 2- 一个有趣的case Sub 按钮1_Click() For j = 1 To 1000 Cells(j, 1) = j For
目录 题 码 VBComponents集合 VBComponent对象 题 如图所示，该表为某公司工资表与员工档案表，当查看工资表时，希望能够在双击员工姓名时，在员工档案表中查询该员工的基本信息，并临时创建一个窗体显示该员工信息。 月份工作地区部门姓名基本工资奖金补贴出勤缺勤(天)休息
VBA，碰到读图片和写图片： 从工作表中导出图片 Sub Macro01() '从工作表中保存图片 Application.ScreenUpdating = False Dim pth, shp, n pth = ThisWorkbook.Path & "\导出图片\" For Each shp In ActiveSheet.Shapes If shp.Type = 1
从csdn上找到了很多的材料，最终解决了自己的问题，按照我的思路记录一下，以便于自己以后查找。 打开一个网页，使用的是Set ht = CreateObject("MSXML2.XMLHTTP")使用split函数拆分返回的网页源码信息，可以不停的使用split函数使用mid函数读取自己需要的文字信息及链接信息如需使用，请调
'VB Environ系统环境变量函数大全：Public Sub Get_Environ()Debug.Print Environ("Windir") 'c:\windows Windows 目录Debug.Print Environ("ProgramFiles") 'c:\ProgramFiles 应用程序文件夹Debug.Print Environ("UserProfile") 'C:\Do
1. 在VBA中，dir函数可以返回一个文件夹下一个文件的名字(包含后缀)。 示例代码： filename = Dir("F:\userdata\Desktop\新建文件夹\") dir后面的参数应该以反斜杠“\”结尾，这样才能返回该文件夹下的文件名称。否则“新建文件夹”会被当成一个文件名进行处理。 Dir运行一次只能得到一
首先打开Excel自带的VBA开发环境 导入一个库 选择 工具 > 引用 导入下面选中的库,第一次导入需要使劲往下翻,界面特别蛋疼 然后粘贴下面的代码 Public Function REGEXSUBSTRING(str As String, pat As String, ignoreCase As Boolean, def As String) As String 'Define
右击工作表，选择查看代码，弹出VBA界面，直接将下边代码复制粘贴过来，最后关闭VBA界面即可。 代码如下： Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone If Target.Count > 1 Then Set Target = Target.Cells(1) Target.EntireColumn
'使用方法： ' 1、在目前的excel中，新建一个sheet，命名为“目录”或者“某人就是帅”等； ’2、快捷键alt+F11,就打开了VBA编辑界面 ’3、把这个文件中所有的内容全部复制到名为“sheet1（目录）”下，可能不是sheet1，重点是复制到名为“目录”的sheet下。 ’4、按F5执行程序。 ’ps1、offic
1、Option Explicit。当使用Option Explicit时，必须在模块中的所有过程声明每一个变量，否则会出现语法错误并不能被编译。这样做的好处是，它能消除程序中因为错拼变量名而导致程序 错误，所以见意使用此选项。自动设定的方法：在VBA编辑器工具菜单中选项里的编辑器选卡中的要求声明变量选
今天忽然发现wps的js竟然可以用，不收费了，激动异常，立马停下手中的工作，开始百度js相关的教程。对于一个编程小白来说，前期一直在自学ms的vba，勉强入门，但一直深入不了，并且现在公司办公使用的软件，基本上已经被wps取代了，就是用vba解释个小问题，发给其他同事，也没法使用。今天，js免费了，一是有
在平时我们的工作中，经常需要使用Uipath自动的导入大量数据到Excel表格中，但是却发现，数据导入到Excel之后，格式却是很乱，基本不能看，就像下图： 而Uipath对Excel的操作非常有限，特别是涉及到调整格式之类操作。今天我就教大家，怎么样通过Uipath调用Excel的VBA脚本实现对Excel表格内数据
一、宏与VBA 什么是宏与VBA VBA（Visual Basic for Applications）是[Visual Basic](https://baike.baidu.com/item/Visual Basic)的一种宏语言，是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是[Microsoft Office](https:/
点击查看代码 Public Sub MyCMD_导出VBA代码() Const Module = 1 Const ClassModule = 2 Const Form = 3 Const Document = 100 Const Padding = 24 Dim VBComponent As Object Dim Count As Integer Dim path As String Dim direct
VBA自带的语法可以处理Outlook邮箱,但是缺点是outlook还需要配置, 但是调用系统自带的CDO接口可以用SMTP模式发送各大第三方的邮箱,只需要开启POP3/SMTP模式即可,兼容性更好. Sub CDOSENDEMAIL() 'On Error Resume Next '出错后继续执行 Application.DisplayAlerts = False '禁用
VBA中利用WshShell对象轻易实现自消失的对话框 前言关于WshShellWshShell对象的popup函数(方法)示例代码：参数 前言 WshShell 对象功能强大，以前一直只是用它来打开其它程序。无意中发现它也提供一个popup 函数，利用这个函数可以轻易实现自消失的对话框。这可是以前要费好
用VBA检查某个软件是否安装及其安装路径 前言实现解释 前言 有时候需要用VBA启动其它程序处理事情，例如整个处理流程中需要先解压缩文件。此时，主动探测用户电脑上是否已安装相应的软件及安装位置就比较重要。 实现 通过调用Windows API来实现 Private Declare Function Re
