说明（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阅读
⽤VBA代码删除空⾏
原创
2022-08-17 14:23:47
1804阅读
【代码】递归批量删除文件代码留存。
原创
2023-05-30 07:11:17
69阅读
点击查看代码 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
859阅读
2评论
上文提到文件名的录入，那么，如果文件名是不规律的呢，找找老朋友Excel，VBA可以做到。
在要提取文件名的文件夹中新建一个Excel文档，“工具”--“宏”--“Visual Basic编辑器”--“插入”--“模块”，粘贴以下内容：
Sub 提取同目录下文件名()
转载
精选
2012-02-28 17:31:19
3783阅读
问题描述： 在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阅读
'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阅读
文件监控之查找/删除/下载/上传 这两节主要实现四个功能：文件查找，删除，下载，上传。 这节主要做客户端： FileSpy类: 1.首先创建一个FileSpy类。 2.遍历目录/文件夹函数： std::vector<std::string> FileSpy::getDirs(std::string dir)
{
WIN32_FIND_DATAA findData;
转载
2024-04-08 07:25:33
37阅读
/da/we/html/a 下面有80万个html 需要删除任意的2w个
cd /da/we/html/a;ls -U|head -n 20000|xargs rm -f
1秒钟搞定
默认ls是会排序的 这样执行会卡住了。ls -U
原创
2012-01-09 14:58:06
801阅读
删除与批量删除代码详细介绍删除一些不要的数据,能够减少不必要的占有,删除一下不必要的,多余的也能让我们能够更加清楚管理剩下的部分,那将如何实现呢在控
转载
2023-12-04 16:23:59
95阅读
看了很多初学者对于批量删除陌生的很，所以在这儿写一个例子供初学者参考，先说思路：批量删除需要用checkbox复选框，value设置上删除信息的ID，点击批量删除时，先获取选中的复选框，今儿获取到复选框的值，将值拼接，再讲拼接好的值传到后台，在后台用split方法切割取出每一个选中的商品ID，for循环进行删除即可。js中：function dele(){var check = document.
原创
2013-10-18 10:13:03
2329阅读
批量删除文件或者批量修改文件
原创
2021-04-18 16:56:16
843阅读
1.使用FileUtils类来自 Apache Commons IO的FileUtils类提供了几个方便的文件操作实用程序。您可以使用该FileUtils.cleanDirectory()方法递归删除目录中的所有文件和子目录，而不删除目录本身。import org.apache.commons.io.FileUtils;
import java.io.File;
import java.io.IO
转载
2023-06-05 19:33:00
437阅读
#coding:utf-8
# 任务需要，需要删除多余的文件，手动删除太麻烦，几行python搞定
import os
from glob import glob
path = r"/media/icml-014/peixu/MyData/2019brain/valid/*" # 获取到目录
all_file = glob(path) # 得到该目录下的所有文件
for i in range(l
转载
2023-05-28 21:20:06
297阅读
前几天有网友提出这样的需求，文件夹里有n个txt文档，每个文档的内容都是一列数据，现在需要将所有txt导入到Excel，按列排放，如果手动操作的话，那是相当耗时间的，今天我来讲一下用VBA怎么快速实现将txt文档批量导入至Excel。首先，创建一个Excel宏文件，按Alt+F11调出VBA代码界面，插入一个模块，新建一个过程Sub写入以下代码00Sub inTxt()01 Dim
转载
2024-06-07 10:22:57
172阅读
第一种情况保留不重复的记录行，重复的只保留一行。
1、打开有重复数据的EXCEL 2、Alt+F11 打开宏的VB编辑器 3、左边双击：ThisWorkBook 4、贴入以下代码并运行即可： Sub 删除重复数据() '删除col列的重复数据 '本例是删除标题为sheet1的EXCEL表中A列（从A2单元格开始）的重复数据 Application.ScreenUpdating = False
转载
2024-04-05 12:39:35
269阅读
大家好，今日继续和大家分享VBA编程中常用的常用"积木"过程代码。这些内容大多是我的经验和记录，来源于我多年的经验。今日分享的是NO.225-NO.226，内容是：NO. 225：数组的赋值和回填工作表NO. 226：将数组的值批量回填给工作表的办法 VBA过程代码225：数组的赋值和回填工作表Sub Mynz ()'创建数组，并赋值Dim arr(1 To 60000), i As
转载
2024-05-10 16:49:30
144阅读
工作表操作' 关闭警告，否则删除工作表时将出现提示信息
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阅读
临下班的时候老板加我打印一份名单，我想，不就是打印份名单吗？简单！然而！老板发来一个压缩包，说没有Excel名单，只有图片，图片的名字就是名单，名字要和图片一起打印出来，我看了一下压缩包，我的天！几百张！这要是没点技巧要打印到猴年马月啊？不过机智如我怎么会被打倒呢？想知道我怎么在2分钟内搞定的吗？快来学一学！一、Excel设置1、图片路径首先我们打开要打印的图片的文件夹，这里面就是我们要插进名单里
转载
2024-07-16 07:06:58
277阅读
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阅读
