我有一张表格，sheet1的A列里有很多名字，希望删除文件夹内名字不在表格上的图片
1条回答 默认 最新
测试的菜鸟 2021-01-28 17:31关注for循环取出 sheet表格内 filename 为 listA
读取本地文件目录 文件为 listB
对比AB 然后用B去遍历A 未找到执行删除
解决 无用评论 打赏举报
分享
- 2022-07-13 20:48回答 2 已采纳 Sub test() Dim arr Dim i, j As Integer Dim flag As Boolean arr = Array("张三", "王五", "钱六") flag = True
- 2022-07-07 16:18回答 1 已采纳 Ex_File = Dir(result_folder)我记得第一个找到的应该是“.”或者“..”这种表示上级目录的值，所以一般都会在循环里再加个判断，你试试：Do While Ex_File <
- 2023-03-07 18:10回答 1 已采纳 “Devil组”引证GPT后的撰写：用VBA中的FileSystemObject对象来删除指定文件夹下的文件。具体步骤如下： 在VBA中添加对Microsoft Scripting Runtime的引
- 2013-08-15 10:03博文视点的博客 带你玩转 Excel VBA(含CD光盘1张)(双色)（附带近500个VBA思考练习题，Exceltip.net出品） 罗刚君 杨嘉恺 编著 ISBN 978-7-121-20627-6 2013年7月出版 定价：85.00元 648页 16开 编辑推荐...
- 2021-07-15 20:59回答 1 已采纳 直接把图标的数据源设为第二列就行了
- 2021-06-21 12:05回答 1 已采纳 Dim tbs As Tables Set tbs = ActiveDocument.Tables Dim tb As Table Set tb = tbs.Item(1) tb.cell(1,
- 2022-06-16 05:48回答 1 已采纳 Function coilv(v) As String '下一行是调试出错误的位置 If v = "V88" Or v = "V89" Then coilv = "2
- 2020-09-02 16:06代号4101的博客 1 软件下载 很多初学者习惯使用WPS。WPS某些方面确实做得比微软的Office出色，... 所以任何想认真学习电子表格处理的读者，建议下载最新版本的Office。我推荐使用Office2013 32位（64位版本的Office，VBA语法...
- 2022-05-22 19:06回答 2 已采纳 代码都没看懂就用看你的描述，应该是在一列中的数据，和arr数组中存在的某个元素完全一致就删除该行如此，根本不用这么麻烦的代码倒序循环，用内置函数WorksheetFunction.Match()判断数
- 2022-08-05 16:03回答 4 已采纳 在弹出的VBA窗口中，选择“运行” >> “重新设置”，再选择“工具” >> “引用”，在弹出的引用窗口中，一般会有”丢失“的引用，将其勾选去掉即可也有可能是缺失软件导致的
- 2022-07-05 17:06回答 1 已采纳 直接录制一个宏就可以了
- 2011-10-02 11:52iteye_10490的博客 我在互联网上找到一个用VB编写的程序，是PING一个计算机的IP是否能通的工具，我改了改，使用ADO重数据库中循环读取IP地址，并将测试后的状态写入到数据库，作完后运行是可以测试，但是速度太慢了，每循环测试一个IP...
- 2022-11-25 10:16回答 2 已采纳 错误原因：你的 i 是int类型，但是sheet名字是string 报错信息 解决办法：需要转码，更改后代码参照如下： Sub sheetsMaker() Dim i As Integer
- 2011-10-03 14:57iteye_10490的博客 jmail1.FromName = "WallesCai" '发件人名字 End Sub Private Sub Form_Unload(Cancel As Integer) jmail1.Close Set jmail1 = Nothing End Sub [url=http://www.vbbaike.com/show.asp?id=101200] VB中用Common...
- 2006-11-17 16:42northwolves的博客 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...
- 没有解决我的问题, 去提问
悬赏问题
- ¥15 mySQL5.7.34安装遇到的问题
- ¥15 结构功能耦合指标计算
- ¥20 visual studio中c语言用ODBC链接SQL SERVER
- ¥50 AI大模型精调（百度千帆、飞浆）
- ¥15 非科班怎么跑代码？如何导数据和调参
- ¥15 福州市的全人群死因监测点死亡原因报表
- ¥15 Altair EDEM中生成一个颗粒，并且各个方向没有初始速度
- ¥15 系统2008r2 装机配置推荐一下
- ¥15 悬赏Python-playwright部署在centos7上
- ¥15 psoc creator软件有没有人能远程安装啊