'ret = Shell("C:\ExportSheetTxtFiles\DF.EXE C:\ExportSheetTxtFiles\t.txt C:\ExportSheetTxtFiles\t2.txt", 1)
Public Sub CompareFiles(ByVal filePath1 As String, ByVal filePath2
原创
2012-05-10 09:22:57
1269阅读
工作表操作' 关闭警告，否则删除工作表时将出现提示信息
Application.DisplayAlerts = False
' 删除以字母“C”开头的临时模板
For Each a In Worksheets
If Left(a.Name, 1) = "C" Then a.Delete
' If InStr(a.Name, ".") > 0 Then a.Delete
Next
转载
2024-05-29 00:57:02
121阅读
VBA 生成文件方法：使用 ADODB.Stream 生成文件，通过控制文件的后缀，应该是什么文件都可以生成。Dim WriteStream2 As Object '定义一个对象
Set WriteStream2 = CreateObject("ADODB.Stream") '创建一个 ADODB.Stream 对象
With WriteStream2
.Type = 2
转载
2024-05-19 08:30:50
175阅读
一般情况下我们是在页面的<head>区域使用语句
<script type="text/javascript" src="xxx.js"></script>
来载入JavaScript文件，使用这种方式载入JavaScript会导致页面加载速度过慢。什么原因呢？浏览器在显示HTML文件之前，会等待完全加载整个HTML文
原创
2010-11-20 10:47:24
678阅读
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阅读
——将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阅读
VBA 对 文件和文件夹的操作
2010年06月24日
我们在使用Excel VBA进行处理数据时，或多或少会涉及到如何操作文件和文件夹。本节将重点讲述如何新建、打开、删除、复制、移动和重命名文件和文件夹操作等。
对于文件和文件夹操作，我们一般通过下面方法：
。VB命令
。EXCEL对象
。引用其他动态库对象
。API
转载
2024-04-02 11:29:04
188阅读
文章目录1. 建数据透视表2. 添加行标签2.1 设置行标签的显示方式2.2 关闭分类汇总3. 添加列标签3.1 如果是时间格式标签，可以按照不同的周期分组3.2 关闭列标签中的折叠按钮 +/-4. 配置值对应的字段5. 添加筛选标签5.1 单选5.2 多选6. Excel右侧的配置栏的操作参考 1. 建数据透视表import win32com.client as win32
from win3
转载
2024-10-17 07:54:56
130阅读
以下为当年整理出来的小部分资料列表，有很多子目录都没有编录进来（包括这几年的代码和文档，还有做启动盘的源程序）。再次提醒各位朋友，对于重要的资料一定要经常备份啊。文件夹 G:/05_Teach Info/02_Computer 列表├─<DIR> .├─<DIR> ..├─<DIR> 00_Programming｜
以下内容为本人在学习《Access 2007 宝典》（人民邮电出版社）过程中，总结和实践。 1 变量"显式"声明 "Option Explicit"要求变量都是"显式"声明,指定特定的数据类型 优点: 防止程序速度变慢和出现bugVBA窗口"工具"-
转载
2024-03-11 13:28:57
231阅读
在Python中，不需要导入外部库来读取和写入文件。 Python提供了一个内置函数，用于创建，写入和读取文件。如何打开文本文件要打开文件，您需要使用内置的 open 功能。 open函数返回一个文件对象，该文件对象包含对文件执行各种操作的方法和属性。语法file_object = open("filename", "mode")filename：给出文件对象已打开的文件的名称。mode：文件对
转载
2023-11-14 09:26:10
63阅读
1、镜像是什么？镜像是一种轻量级、可执行的独立软件包，用来打包软件运行环境和基于运行环境开发的软件，包含运行某个软件所需的所有内容，包括代码、运行时库、环境变量和配置文件2、镜像加载原理1）UnionFs （联合文件系统）Union文件系统（UnionFs）是一种分层、轻量级并且高性能的文件系统，支持对文件系统的修改作为一次提交来一层层的叠加，同时可以将不同目录挂载到同一个虚拟文件系统下（ uni
转载
2024-03-26 09:27:29
328阅读
在我们日常使用Excel的时候，不仅会用到当前Excel文件的数据，还经常需要访问其他的数据文件。这些数据文件可能是Excel文件、文本文 件或数据库文件等。经常有朋友会问如何在vba代码里操作这些数据文件？本文就系统地介绍一下在Excel中应用VBA操作数据文件的方法。 本文主要介绍四种常用的方法：1、利用Excel对象来处理文件；2、利用VBA文件处理语句来处理文件；3、利用Fil
转载
2024-03-01 14:55:50
377阅读
VBA代码（珍藏）'**关闭屏幕刷新
Application.ScreenUpdating = False '**取消删除工作表警告提示
Application.DisplayAlerts = False
'**引用打开窗口 Dim fd As FileDialog Dim vrtSe
转载
2024-05-08 20:46:46
170阅读
说明 ：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阅读
作者：Luke Chung在Excel与Access之间抉择Microsoft Office的高级用户经常问我们，为什么要使用Access？什么时候应该使用Access，而不是Excel？特别是当他们Excel用起来非常顺手的时候。以下是我们的观点。给信息工作者赋能我们认为，这不是二选一的问题。它们各自都有各自的优势，并且天然的相辅相成。了解它们的差异，并在不同的情况下，选择适合的一
转载
2024-03-18 12:16:12
128阅读
说明（2017.3.22）：1. 根据兰色幻想VBA80集视频教学，总结2. 大部分可以用自带函数处理，不过复制文件夹需要用到FileSystemObject对象，打开文件夹用到shell1 Public Sub test1()
2 '1. 判断文件夹是否存在，dir第二个参数为vbDirectory，不然只判断文件是否存在
3 If Dir(ThisWorkbook.path &am
转载
2023-07-03 13:06:37
560阅读
