利用VBA移动文件，创建文件

心得(3)：如何利用VBA的FSO进行文件或者文件夹操作

问题：如何对文件或者文件进行操作，例如：怎么判断文件夹是否存在，怎么创建文件夹等等

解决：利用VBA的FSO 进行操作，这个对象流包含了各种对文件或者文件夹的操作。简洁实用。

利用VBA进行操作：（继续以之前的条件为例子）

如果有些文件不符合规则，那么最好是把他们放在同一个文件夹下，这样子方便操作，利用FSO能很好的做到这一点，FSO就像是Java的对象一样，他有自己的方法有自己的属性
首先要创建文件加就可以使用：

这个方式来，先判断，在创建
然后定义一些自己的规则，说明那些文件是不符合规则的：
然后就是对文件进行操作了，转移文件等：

源码如下：

Sub 批量改名()Dim mypath As String, myname As String, awbname As String, arg As StringDim wbcount As Integer, i As IntegerDim olds As String, news As StringDim fsoDim newPath As StringDim oldPath As StringDim folderName As StringDim length As Integer'关闭excel的刷新Application.ScreenUpdating = False'禁止弹出对话框Application.DisplayAlerts = False'使用FSO方式进行文件操作Set fso = CreateObject("Scripting.FileSystemObject")'得到本文件的相对地址mypath = ActiveWorkbook.Path'当前工作的excel的文件名awbname = ActiveWorkbook.Name'任意打开文件夹下的某一个文件wbcount = 0myname = Dir(mypath & "\" & "*.xlsx")'定义一个变量为项目的名称（文件中的命名）arg = ""'用来存放文件夹的名称folderName = "C:\Users\25267\Desktop\error"'判断桌面上是否有一个名为error的文件夹：没有则创建一个，用来存放不符合规则的文件If NOT fso.FolderExists(folderName) Thenfso.CreateFolder(folderName)End If'如果当前的文件名为空的字符串（""）表示已经没有更多的文件了跳出循环Do While myname <> ""If myname <> awbname Then'打开当前的文件夹Set wb = Workbooks.Open(mypath & "\" & myname)'得到这个文件的项目名的名称arg = wb.Sheets(1).Range("B5")wbcount = wbcount + 1'关闭文件wb.Close False'除去arg中命名规则不允许的字符arg = Replace(arg, "\", "")arg = Replace(arg, " ", "")arg = Replace(arg, "/", "")arg = Replace(arg, "?", "")arg = Replace(arg, "<", "")arg = Replace(arg, ">", "")arg = Replace(arg, "'", "")arg = Replace(arg, ":", "")arg = Replace(arg, "*", "")arg = Replace(arg, """", "")arg = Replace(arg, ".", "")arg = Replace(arg, "|", "")arg = Replace(arg, Chr(10), "")arg = Replace(arg, Chr(32), "")'计算这个字符串的字数length = len(arg)'如果这个文件的项目名不符合标准则把这个文件转移到指定的位置If (arg = "") OR (length > 100) ThenoldPath = mypath & "\" & mynamenewPath = folderName & "\"fso.MoveFile oldPath,newPathElseolds = mypath & "\" & mynamenews = mypath & "\" & arg & ".xlsx"'将这个文件的名称换成这个项目名On Error GoTo MyErr '错误导向Name olds As newsEnd IfEnd If'随机打开本文件夹的另一个文件myname = DirLoop'结束程序并且恢复之前的操作
MsgBox "一共更改了 " & wbcount & " 个文件"
Application.ScreenUpdating = True
Application.DisplayAlerts = True'因为这个VBA语言到最后会运行错误标志的内容所以在结束后要让他失效
olds = ""'错误标志
MyErr:If olds = "" ThenElsearg = arg & wbcountnews = mypath & "\" & arg & ".xlsx"Name olds As newsResume NextEnd IfEnd Sub

利用VBA移动文件，创建文件相关推荐

如何利用Excel快速批量创建文件夹
今天跟大家分享一下如何利用Excel快速批量创建文件夹 1.打开Excel 2.录入要创建的文件夹名称 3.然后录入要创建文件夹的地址 4.接着我们将这两列数据合并并选中单元格区域 5.然后点击下图选 ...
如何利用VBA批量更改Excel文件的内容
心得(5):利用VBA批量更改Excel文件的内容问题:因为接受的所有Excel文件都是相同格式的,但是有个单元格的内容就是需要,主办方来更改,如下所示: 获奖级别,得由主办方来更改,但是如果一个一 ...
Visual C++网络编程经典案例详解第8章网络文件传输使用api函数操作文件创建文件 CreateFile原型
使用mfc编程处理使用CFile类操作文件还可以使用api函数有关文件操作的函数进行编程用户可以使用函数Create()进行创建文件对象 HANDLE CreateFile{LPCTSTR l ...
文件——创建文件并写入内容
package main import ( "os" "fmt" "bufio" ) /* 基本介绍 func OpenFile(name ...
python创建多个文件_Python创建文件夹与文件的快捷方法
这篇文章主要给大家介绍了关于Python创建文件夹与文件的快捷方法以及批量创建文件夹的方法,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学 ...
JAVA在本地创建一个文件向文件里面写入内容
本地创建一个文件向里面写入内容这里的第二步可以跳过,但前提是E盘下面有了test这个文件夹, 如果没有这个文件夹,则第二步不能跳过. 注:创建文件的这一步可以省略,因为在写入的时候会自动创建文件 ...
python新建文件夹和文件夹_Python创建文件夹与文件的快捷方法
前言 Python快捷创建文件夹和文件详解自己做文件时发现简单的反复操作十分浪费时间,于是想到了使用Python,这个分享给大家,快捷高效办公. 项目目录 file11 创建文件夹 file2 ...
python os模块创建文件夹_Python创建文件夹与文件的快捷方法
前言 Python快捷创建文件夹和文件详解自己做文件时发现简单的反复操作十分浪费时间,于是想到了使用Python,这个分享给大家,快捷高效办公. 项目目录 file11 创建文件夹 file2 ...
linux复制压缩文件夹,[操作系统]linux中文件或者文件夹的基本操作（复制，移动，删除，查找，压缩）...
[操作系统]linux中文件或者文件夹的基本操作(复制,移动,删除,查找,压缩) 0 2015-12-28 00:00:15 linux 文件(文件夹)的创建,复制,移动,重命名,删除基本命令复制文 ...

利用VBA移动文件，创建文件

心得(3)：如何利用VBA的FSO进行文件或者文件夹操作

利用VBA移动文件，创建文件相关推荐

最新文章

热门文章