点击查看代码 Public Sub MyCMD_导出VBA代码() Const Module = 1 Const ClassModule = 2 Const Form = 3 Const Document = 100 Const Padding = 24 Dim VBComponent As Obj ...
转载
2021-10-09 19:50:00
861阅读
2评论
前几天有网友提出这样的需求，文件夹里有n个txt文档，每个文档的内容都是一列数据，现在需要将所有txt导入到Excel，按列排放，如果手动操作的话，那是相当耗时间的，今天我来讲一下用VBA怎么快速实现将txt文档批量导入至Excel。首先，创建一个Excel宏文件，按Alt+F11调出VBA代码界面，插入一个模块，新建一个过程Sub写入以下代码00Sub inTxt()01 Dim
转载
2024-06-07 10:22:57
172阅读
常用bapi示例讲解①BAPI_ASSET_RETIREMENT_POST资产报废过账REPORT RODERICK. DATA:GENERALPOSTINGDATA TYPE BAPIFAPO_GEN_INFO. DATA:RETIREMENTDATA TYPE BAPIFAPO_RET. DATA:RETURN TYPE BAPIRET2. DATA:DOCUMENTREFERENCE TY
VBA神键手智能输入提示神键手功能说明VBA神键手输入提示通过对预置关键词代码短语，以及VBA代码库的模糊搜索提示，实现VBA极速编程体验，且支持VBA代码库中文拼音首字母搜索，常用VBA代码块1秒输入，节省更多时间用来思考，而不是花费在敲字母以及记忆单词上，词库和代码库均可根据个人喜好习惯自由定制，达到最佳使用效果！关键字+空格触发输入提示输入 IF空格 就会弹出如下图所示神键手提示按下Tab
转载
2023-12-08 15:12:58
337阅读
一、更改标题名称 点击右上角的黑色方块 计时器触发：每次要执行的代码 计时器间隔：每次执行代码的间隔 '计时器触发代码 Private Sub Form_Timer() Caption = "当前时间：" & Time() 'caption表示标题 End Sub 二、模块 模块分为类模块和标准模块
原创
2021-12-29 15:08:57
3829阅读
当我们开发了一个VBA应用，很多时候需要让它能够自动批量发送邮件。这时候，我们就需要使用到CDO了。CDO全称Collaboration Data Objects，即协作数据对象，是Office 软件不在产品安装的一部分。它是通过基于COM的API提供对Outlook兼容对象的访问的包。CDO有多个组件，其中Message组件是邮件组件，使用其发送邮件是非常快速的，而且不需要任何附加的安装。 对于
## Python批量画图保存
### 引言
在科学研究和数据分析中，经常需要将处理后的数据可视化展示出来。Python作为一种强大的编程语言，提供了许多绘图库来帮助我们完成这项任务。本篇文章将介绍如何使用Python批量画图并保存。
### 准备工作
在开始之前，我们需要安装一个绘图库。这里我们选择常用的`matplotlib`库作为示例。可以使用以下命令来安装：
```
pip in
原创
2023-10-05 16:50:39
209阅读
问题描述： 在ppt vba中如果要循环批量删除Shape对象，会遇到很多困难。比如当执行如下For Each … In 的vba代码删除ppt中第一页的所有图片后，会发现并没有将图片全部删除：Sub DeleteBrandLogo()
Dim pre As PowerPoint.Presentation, shp As PowerPoint.Shape, Sli As PowerPoi
转载
2024-04-19 11:37:36
122阅读
——将EXCEL VBA代码移植到VB.NET.NET是微软公司在2002年推出的全新编程框架，支持多种语言应用程序开发。使用Visual Basic在Microsoft .NET Framework上编程，这就是Visual Basic.NET，简称VB.NET。VB.NET是Microsoft Visual Studio .NET组件中的重要组成部分，是VB6.0的后续版本，VB.NET仍使用
转载
2024-01-03 20:47:55
274阅读
当你辛辛苦苦开发出的程序作品后
,
是不是想过怎样来保护好程序的源代码呢
!,
保护好程序源码
,
在大多会员来看都是非常关心的问题
.
遗憾的是
,Excel
不像其他的开发软件一样
,
在加密上很容易被各种密码破解软件破译
.
尽管这样
,
我们也应尽可能来保护
Excel
工作簿和
VBA
源码。
一、为VBA工程设置密码
限制别人查看VBA源代码
转载
2024-04-28 20:02:36
162阅读
初次看见网上大神们的 VLisp 作品，其中对 Excel 的操作感觉很复杂，先是一大堆 OLB 类型库声明代码，不太懂，然后各种自定义函数，也有点蒙。 幸好，本人 Excel 使用中经常录制和修改宏，对 Excel Vba 还算有一点点的了解。所以，如果你有一点 vba 的基础，本文将对你有一种豁然开朗的感觉。创建 Excel 的 ActiveX 对象在 AutoCAD 中创建一个 Excel
转载
2023-11-30 09:10:58
217阅读
以下为当年整理出来的小部分资料列表，有很多子目录都没有编录进来（包括这几年的代码和文档，还有做启动盘的源程序）。再次提醒各位朋友，对于重要的资料一定要经常备份啊。文件夹 G:/05_Teach Info/02_Computer 列表├─<DIR> .├─<DIR> ..├─<DIR> 00_Programming｜
阅读本文大概需要3分钟关于函数和模块讲了这么久，我一直想用一个好玩有趣的小例子来总结一下，同时也作为实战练习一下。趣味编程其实是最好的学习途径，回想十几年前我刚毕业的时候，第一份工作就给手机上写app，当时觉得非常好玩,那个是时候还是用symbian系统，熬了好几个通宵用j2me写了一个坦克大战，到现在还记得当程序运行的时候坦克互战的情景,真的是蛮兴奋的。好吧一下子扯远了，我们还是回到正题：我想来
转载
2023-08-26 09:27:35
99阅读
# Python画图：海龟画图代码
海龟画图是一种基于Python编程语言的绘图方法，它通过使用海龟对象来控制绘图动作。海龟可以前进、后退、转向、改变颜色等，从而实现各种有趣的图形效果。海龟画图是学习编程和图形学的绝佳工具，它简单易懂、直观有趣，非常适合初学者入门。
## 准备工作
在使用海龟画图之前，需要安装并导入turtle模块。turtle模块是Python标准库中的一个绘图库，它提供
原创
2023-09-16 03:22:47
609阅读
VBA代码（珍藏）'**关闭屏幕刷新
Application.ScreenUpdating = False '**取消删除工作表警告提示
Application.DisplayAlerts = False
'**引用打开窗口 Dim fd As FileDialog Dim vrtSe
转载
2024-05-08 20:46:46
165阅读
作者：Luke Chung在Excel与Access之间抉择Microsoft Office的高级用户经常问我们，为什么要使用Access？什么时候应该使用Access，而不是Excel？特别是当他们Excel用起来非常顺手的时候。以下是我们的观点。给信息工作者赋能我们认为，这不是二选一的问题。它们各自都有各自的优势，并且天然的相辅相成。了解它们的差异，并在不同的情况下，选择适合的一
转载
2024-03-18 12:16:12
128阅读
说明 ：EXCEL VBA连接SQL数据库一般有以下3个步骤：1.VBA连接数据库之前需要创建连接对象：可以采用以下方式`Dim CN As Object
Set CN = CreateObject("ADODB.Connection")也可以通过添加引用的方式，具体为：工具-----引用-------找到Microsoft ActiveX Data Objets Library的
转载
2023-10-22 08:26:00
237阅读
上文提到文件名的录入，那么，如果文件名是不规律的呢，找找老朋友Excel，VBA可以做到。
在要提取文件名的文件夹中新建一个Excel文档，“工具”--“宏”--“Visual Basic编辑器”--“插入”--“模块”，粘贴以下内容：
Sub 提取同目录下文件名()
转载
精选
2012-02-28 17:31:19
3783阅读
Sub copySheet()
Dim wkbk As Workbook
Set wkbk = Workbooks.open("源文件.xls") '先打开要复制的文件
wkbk.sheets(1).Copy thisworkbook.sheets(1) '再将此文件中第一个工作表复制到当前工作簿的第一个工作表前
End Sub
这样是最简单的代码了，但是有些限制：如果工作表的某些单元
分享成果，随喜真能量。大家好今天继续和大家分享VBA编程中常用的过程代码,有兴趣的朋友可以反馈交流一下：VBA中，什么是过程呢？VBA过程代码21：选定单元格字体为粗体Sub MyNZ()Selection.Font.Bold = TrueEND SUB代码的解析说明：上述代码过程将执行选择区域的字体设置，.Font.Bold = True是将字体设置为粗体，.Bold是粗体的设置。
转载
2023-09-04 14:42:04
160阅读
