VBA
VBA读取ini配置相对应的内容
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName A ......
VBA读取文本文件内容
Function ReadText(FileName As String) As String With CreateObject("ADODB.Stream") .Type = 2 .Mode = 3 .Open .LoadFromFile FileName .Charset = "UTF-8" ......
VBA获取桌面路径
Function GetDesktop() As String With CreateObject("wscript.shell") GetDesktop = .Regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ ......
VBA 获取本机IP
Function GetIP() As String Dim OpSysSet As Object, Op As Object, Ip Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate}//localhost").E ......
VBA 生成文本文件
Sub CreateFile(FileText As String, Fil As String) With CreateObject("ADODB.Stream") .Type = 2 .Charset = "Unicode" .Open .WriteText FileText .SavetoFi ......
575_Excel 有用的VBA函数
这是一篇原发布于2023-08-17 11:52:00得益小站的文章，备份在此处。 [scode type="blue"]本篇文章代码来自AI生成并经本人测试有效[/scode] 使用方法 要使用 VBA 制作一个函数。你可以按照以下步骤进行操作： 在 Excel 中按下 Alt + F11 打开 ......
用EXCEL VBA 做的学生成绩分析系统
学生成绩分析系统,EXCEL VBA 数据导入与处理,学生成绩数据清洗与分析,数据可视化和报告生成,系统界面设计和用户操作,学生成绩分析系统测试与优化,使用指南与维护学生成绩分析系统 ......
视频直播app源码，VBA 之Interior 对象设置底色
视频直播app源码，VBA 之Interior 对象设置底色 1.ColorIndex 索引颜色值 Sub 索引颜色值() For i = 1 To 56 Cells(i, 1).Interior.ColorIndex = i Cells(i, 2) = i Next i For i = 1 To ......
vba 筛选
1.判断工作表是否处于自动筛选模式 取消自动筛选 Sheets("sheet1").AutoFilterMode = False '注意这里对象是sheet, 不需要sheet中的具体区域,比如[a1:c1]之类 取消高级筛选：If Sheets("sheet1").FilterMode = Tru ......
C# Word VBA 获取所有CommandBarID
foreach (Office.CommandBarControl c in.CommandBars.Controls){if (c.Id == ) { }} Sub 插入按钮名称和ID() Dim wdApp As Object ' Word.Application Dim cb As Objec ......
VBA 获取Word 所有CommandBar ID命令按钮
Sub 获取所有CommandBarID() Dim wdApp As Object ' Word.Application Dim cb As Object ' CommandBar Dim s As String, id As String Set wdApp = CreateObject("Wo ......
VBA批量创建文件夹
Sub createFolder() Dim wks As Worksheet On Error Resume Next Set wks = ThisWorkbook.Worksheets(1) basepath = ThisWorkbook.Path & "\" Max = wks.Range(" ......
VBA*CommandBars控制菜单栏上的菜单（如页面设置、打印）
Sub test() '视图工具栏中，各种工具对应的英文名称 'worksheet menu bar表示工作表菜单栏 Application.CommandBars("worksheet menu bar").Enabled = false 'formatting表示格式工具栏 Applicatio ......
Excel中用VBA将不规律的行高分别设置为指定的值
Excel表格中，如果存在不同的行高的话， 可以采用自适应的方式设置行高，但是这样设置完之后，看起来很挤且凌乱 这是自适应设置的结果，如下图 如果设置为固定行高的话，行数太多就显示不完整，如下图 遇到这种情况，可以使用VBA设置行高，步骤如下： 1.在工作表上点击右键，选择查看代码 2.依次选择【S ......
SAP GUI Scripting VBA Code Snippet to Detect all IDs of the UI Elements
'-Begin Option Explicit Dim gColl() As String Dim j As Integer Sub GetAll(Obj As Object) ' '- '- Recursively called sub routine to get the IDs of all ......
VBA宏编程批量修改PPT字体
纯英文： 点击查看代码 ``` Sub ChangeFont() Dim slide As slide Dim shape As shape ' 设置目标字体名称 Dim newFont As String newFont = "新字体名称" ' 替换为您希望使用的字体名称 ' 遍历每一页 For ......
xlwings 代替Excel VBA，原来真的可以
https://blog.51cto.com/u_13389043/6229675 这里要给大家重点推荐的是表中的win32com包和xlwings包。win32com包将Excel、Word和Powerpoint等软件的所有对象打包成一个COM组件提供给Python调用，所以，它使用的对象模型跟V ......
VBA清除所有Textbox
Private Sub CommandButton2_Click() Dim c For Each c In UserForm2.Controls If TypeName(c) = "TextBox" Then c.Text = "" Next End Sub 资料来源https://zhidao. ......
参考网上例子，在PPT中批量设置m3的3为上标的VBA
1 Sub Replace_m3_to_supscript() 2 Dim sld As Slide 3 Dim shp As Shape 4 Dim txtRng As TextRange 5 Dim i As Long 6 For Each sld In ActivePresentation.S ......
vba-类
1.基本使用 ' 长方体的类Cuboid Private are Private hig Property Get area() area = are End Property Property Get high() high = hig End Property Function volume() ......
EXCEL VBA实现工作簿中每个sheet的首行添加数据筛选和窗格冻结
为什么发这篇博客嘞，因为昨天在搞数据模板校验的时候，测试前辈姐姐让我们检查excel模板中的每个sheet的第一行都要设置数据筛选和窗格冻结，为了便于同事们之后更简易的工作吧 我起初也是一个一个sheet的看，有遗漏的手动补上，数量一多，我就感觉像机器一样，于是懒驱使着我，想着有没有自动化的操作可以 ......
NET-10-其他-VSTO+VBA
[TOC](VSTO+VBA) # 前言 主要用于Excel插件。 # VSTO 外接程序介绍： Excel、Word、PowerPoint、Project、Visio等等Office应用程序 相对简单 ## VSTO参考链接： [知乎教程](https://www.zhihu.com/column ......
VBA判断系统系统语言
Private Declare Function GetSystemDefaultLCID Lib "yifang" () As Long Function language() As Boolean language = (GetSystemDefaultCID = &H409) End Func ......
【VBA】Word打开文件
在VBA中经常要用到文件对话框来进行打开文件、选择文件或选择文件夹的操作。用Microsoft Office提供的文件对话框比较方便。用法如下Application.FileDialog(fileDialogType)fileDialogType MsoFileDialogType 类型，必需。文件 ......
VBA对=的解释
在 VBE 中，= 运算符的解释取决于它在表达式中的上下文。 赋值运算符：当=运算符用于将右侧的值赋给左侧的变量时，它被解释为赋值运算符。例如： a = 10 ' 将10赋值给变量a 判断运算符：当=运算符用于比较两个值是否相等时，它被解释为判断运算符。例如： If a = 10 Then ' 如果 ......
Excel VBA 窗体UserForm制作菜单栏与添加窗体最大化最小化功能(转载)
窗体 ' '->Forms ' Module ' ClassModules ' Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Str ......
access VBA 当变量会被当成参数进行传递时,最好不要在声明过程偷懒
Dim a, b, c As String 不用讲,大家都这么玩过.实际上,它只将 c 声明为 String 类型，而 a 和 b 实际上是未声明的 Variant 类型。然后，当你尝试将未声明类型的变量 a 作为参数传递给 ByRef 参数的函数时，会导致类型不匹配的错误。 Sub MySub(B ......
关于VBA的RecordSet.GetRows方法
总结自：https://club.excelhome.net/thread-1384590-1-1.html?_dsign=b6dd5a30 1.VBA调用ADO执行SQL语句获取查询结果，通过RecordSet.GetRows方法获取到的数组是行列转置后的数组。 2.如果通过application ......
VBA利用transform函数和ADO实现交叉汇总
VBA中transform函数基本语法： Creates a crosstab query. Syntax TRANSFORM aggfunction selectstatement PIVOT pivotfield [IN (value1[, value2[, ...]])] The TRANSF ......
PageOffice在线打开office文件通过js调用vba可实现的功能
pageoffice封装的js接口有限，某些比较复杂的设置用到的客户不多，所以没有提供直接的js方法，但是pageoffice提供了Document属性和RunMacro方法，可以调vba或直接运行宏指令实现比较小众的一些需求 ![image](https://img2023.cnblogs.com ......