上文提到文件名的录入，那么，如果文件名是不规律的呢，找找老朋友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阅读
前几天有网友提出这样的需求，文件夹里有n个txt文档，每个文档的内容都是一列数据，现在需要将所有txt导入到Excel，按列排放，如果手动操作的话，那是相当耗时间的，今天我来讲一下用VBA怎么快速实现将txt文档批量导入至Excel。首先，创建一个Excel宏文件，按Alt+F11调出VBA代码界面，插入一个模块，新建一个过程Sub写入以下代码00Sub inTxt()01 Dim
转载
2024-06-07 10:22:57
176阅读
常用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
场景: 1.有时候需要下载某个网站上提供的所有pdf文件，貌似没发现哟下载工具提供。 #! encoding=utf-8import urllib2import reimport osdef Download(url,output): print "downloading..."+url response = urllib2.urlopen(url) resourceFile = open(output,"wb") resourceFile.write(response.read()) resourceFile.close() print "d
转载
2013-07-16 19:48:00
77阅读
2评论
我的教程一共九套及VBA汉英手册一部，分为初级、中级、高级三大部分。是对VBA的系统讲解，从简单的入门，到数据库，到字典，到高级的网抓及类的应用。大家在学习的过程中可能会存在困惑，这么多知识点该如何组织成自己的程序呢？VBA可否能组织一个大型的程序呢？如何让VBA形成一个工具，拿来就用呢？在我的教程完结后，我陆续推出这类技术工具资料，这类工具整合了若干多的VBA知识点，让大家感受到VBA之强大。工
原创
2024-08-16 18:50:59
159阅读
当我们开发了一个VBA应用，很多时候需要让它能够自动批量发送邮件。这时候，我们就需要使用到CDO了。CDO全称Collaboration Data Objects，即协作数据对象，是Office 软件不在产品安装的一部分。它是通过基于COM的API提供对Outlook兼容对象的访问的包。CDO有多个组件，其中Message组件是邮件组件，使用其发送邮件是非常快速的，而且不需要任何附加的安装。 对于
引: 由于数据库要求，数据库由原gbk2312编码更改为utf-8，为方便数据交互减少编码不一致引起的问题， 需要将网站整站转码（gb2312-->utf-8） 一 在网上找批量转码工具 我用的是”“GB/BIG5/UTF-8 文件编码批量转换程序 1.2“（gb和utf-8可互转
原创
2012-11-05 15:54:00
1328阅读
今天，有同事提出想批量修改文件名，规则比较简单，在第五位后加“-”即可，上网没找到相关工具，就自己做了个excel，用宏代码修改。代码如下：Private Sub CommandButton1_Click()Dim varFileList As VariantMsgBox "选择要重命名文件所在的文件夹,点击确定！"With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False .Show If .SelectedItems.Count = 0 Then Exit Sub
转载
2013-07-31 20:14:00
1965阅读
2评论
VBA 对 文件和文件夹的操作
2010年06月24日
我们在使用Excel VBA进行处理数据时，或多或少会涉及到如何操作文件和文件夹。本节将重点讲述如何新建、打开、删除、复制、移动和重命名文件和文件夹操作等。
对于文件和文件夹操作，我们一般通过下面方法：
。VB命令
。EXCEL对象
。引用其他动态库对象
。API
转载
2024-04-02 11:29:04
188阅读
在我们日常使用Excel的时候，不仅会用到当前Excel文件的数据，还经常需要访问其他的数据文件。这些数据文件可能是Excel文件、文本文 件或数据库文件等。经常有朋友会问如何在vba代码里操作这些数据文件？本文就系统地介绍一下在Excel中应用VBA操作数据文件的方法。 本文主要介绍四种常用的方法：1、利用Excel对象来处理文件；2、利用VBA文件处理语句来处理文件；3、利用Fil
转载
2024-03-01 14:55:50
377阅读
最近在下载一个网站的文件，目录太多，文件太多一个一个下载太麻烦了，随即想起曾经用过的一个wget的工具，今天正好给大家分享一下，我平常使用wget最常使用的命令是wget –r http://website/webdir这样可以下载整个目录下的所有文件，并且里面的目录也自动排列创建好了 如果网页需要用户名密码登陆则需要加参数wget –r –-http-user=username --
原创
2014-09-06 14:24:32
10000+阅读
点击查看代码 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评论
Sub copySheet()
Dim wkbk As Workbook
Set wkbk = Workbooks.open("源文件.xls") '先打开要复制的文件
wkbk.sheets(1).Copy thisworkbook.sheets(1) '再将此文件中第一个工作表复制到当前工作簿的第一个工作表前
End Sub
这样是最简单的代码了，但是有些限制：如果工作表的某些单元
前几天有网友提出这样的需求，文件夹里有n个txt文档，每个文档的内容都是一列数据，现在需要将所有txt导入到Excel，按列排放，如果手动操作的话，那是相当耗时间的，今天我来讲一下用VBA怎么快速实现将txt文档批量导入至Excel。首先，创建一个Excel宏文件，按Alt+F11调出VBA代码界面，插入一个模块，新建一个过程Sub写入以下代码00 Sub inTxt()01 Dim tx
转载
2024-04-29 09:27:19
373阅读
你还在苦苦VBA，我却只要Power Query点两下！
原创
2022-03-28 17:03:16
3245阅读
学习自杨洋老师《全民一起VBA》1. 在VBA中，dir函数可以返回一个文件夹下一个文件的名字（包含后缀）。示例代码：filename = Dir("F:userdataDesktop新建文件夹")dir后面的参数应该以反斜杠“”结尾，这样才能返回该文件夹下的文件名称。否则“新建文件夹”会被当成一个文件名进行处理。Dir运行一次只能得到一个文件名。为得到下一个文件名，代码应该这样写：filenam
转载
2023-11-20 11:40:51
208阅读
前面是自己纯摸索的，这篇跟着书看，我喜欢这种先自学了再看书的感觉form的自学方法属性窗口，按照分类排序按F1 可以查看帮助 1 窗体 form1.1 创建窗体 form (默认名：userform)在VBE里和插入模块一样，插入用户窗体即可1.2 如何运行/显示 窗体？1.2.1 显示窗体的代码方法据说，单写一句 userform1.show 也是可以的，因为VB
转载
2024-08-07 13:08:04
137阅读
通过python的win32com接口可以调用Microsoft的office组件，从而实现对excel的读写操作。该方法只实用于windows平台，且需要安装Microsoft Office Excel.
转载
2023-07-06 18:16:21
367阅读
