vba copy文件到指定目录

VBA文件操作及目录操作

VBA包含了许多用于文件操作的语句和函数，可以满足绝大多数情况下的文件操作要求。下面我们按照操作目的进行一一介绍。

（一）文件处理

1.Name 语句

语法：Name oldpathname As newpathname

功能：重命名一个文件、目录、或文件夹，移动一个文件。

说明：在一个已打开的文件上使用 Name，将会产生错误。进行文件操作时，一定要注意错误处理。

示例：

On Error Resume Next '错误处理

Name \ '重命名 Name \ '移动文件

Name \ '跨驱动器移动并重命名文件

注意：Name不能移动一个目录或文件夹。

2、FileCopy 语句

语法：FileCopy source, destination

功能：复制一个文件。

说明：如果对一个已打开的文件使用 FileCopy 语句，则会产生错误。

示例：

FileCopy \ '从F盘复制TEST.xls到E盘

3、Kill 语句

语法：Kill pathname

功能：从磁盘中删除文件。

说明：Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文

linux复制指定目录下的全部文件到另一个目录

linux复制指定目录下的全部文件到另一个目录中
复制指定目录下的全部文件到另一个目录中
文件及目录的复制是经常要用到的。linux下进行复制的命令为cp。
假设复制源目录 为 dir1 ,目标目录为dir2。怎样才能将dir1下所有文件复制到dir2下了
如果dir2目录不存在，则可以直接使用
cp -r dir1 dir2
即可。
如果dir2目录已存在，则需要使用
cp -r dir1/. dir2
如果这时使用cp -r dir1 dir2,则也会将dir1目录复制到dir2中，明显不符合要求。
ps:dir1、dir2改成对应的目录路径即可。

cp -r /home/www/xxx/statics/. /home/www/statics
如果存在文件需要先删除
rm -rf /home/www/statics/*
否则会一个个文件提示你确认，使用cp -rf 也一样提示

--------------------------------------

linux下cp整个文件夹的文件到另一个文件夹
cp -ri A/B/* A1/B1/ 回车
若复制过程中询问是否覆盖，输入y按回车，若不想看到提示直接覆盖使用-rf
另外若A A

运用VBA把数据导入到模板中生成独立文件

作者：王益树

来源：《教育教研》2013年第02期

【摘要】把集中的信息生成独立文件方便核对等。

【关键词】VBA ；分散生成

问题的提出：

2012年上投摩根公司要与我校进行一次联谊活动，他们要求我校提供学生个人信息方便结对子，当我们采集到一定数量的学生信息后，需要根据别人提供的模板生成相同人数的文件。

问题的解决：

（一）资料准备

上投公司提供的模板（如下图）

我校采集的学生信息（如下图）

（二）信息处理

⑴准备一个工作簿：

⑵加入代码生成一个个学生信息工作簿（图片稍后加入）：

Sub lskd（）

Dim lastrow&， I&

With Sheets（"数据库"）

Application.DisplayAlerts = False

lastrow = .[a65536].End（xlUp）.Row

For I = lastrow To 2 Step -1

‘sub xlsOpen()

Set rrr = CreateObject(\ Set r = rrr.GetFolder(\练习\\\

Application.ScreenUpdating = False For Each i In r.Files

Workbooks.Open Filename:=(\练习\\\ Sheets(1).Cells(2,5 )=“10”

ActiveWorkbook.Close savechanges:=true Next

Application.ScreenUpdating = True ‘End Sub

ExecuteExcel4Macro \ ‘打印当前SHEET

ActiveWorkbook.Close savechanges:=false ‘不

Copy方法 应用于 Range对象的 Copy方法。

将单元格区域复制到指定的区域或剪贴板中。 expression.Copy(Destination)

expression 必需。该表达式返回一个 Range对象。

Destination Variant 类型，可选。指定区域要复制到的目标区域。如果省略该参数，Microsoft Excel 将把该区域复制到剪贴板中。

应用于 ChartArea、ChartObject、ChartObjects、OLEObject、OLEObjects、Point 和 Series对象的 Copy方法。

将对象复制到剪贴板中。将数据点或数据系列的图片复制到剪贴板中。 expression.Copy

expression 必需。该表达式返回上面的对象之一。

应用于 Chart、Charts、Sheets、Worksheet 和 Worksheets对象的 Copy方法。

将指定工作表复制到工作簿的另一位置。 expression.Copy(Before, After)

expression 必需。该表达式返回上面的对象之一。

Before Variant 类型，可选。指定某工作表，复制的

在工作表事件中是没有工作表删除事件的，为了防止用户误删除重要的工作表，除了使用保护工作簿方法外，还可以使用下面的代码。

1. Public Ctl As CommandBarControl 2. Sub DelSht()

3. Set Ctl = Application.CommandBars.FindControl(ID:=847) 4. Ctl.OnAction = \5. End Sub 6. Sub ResSht()

7. Set Ctl = Application.CommandBars.FindControl(ID:=847) 8. Ctl.OnAction = \9. End Sub 10. Sub MyDelSht()

11. If VBA.UCase$(ActiveSheet.CodeName) = \12. MsgBox \禁止删除\工作表!\13. Else

14. ActiveSheet.Delete 15. End If 16. End Sub

代码解析：

DelSht过程将工作表标签右键菜单中的“删除工作表”菜单的OnActio

Excel VBA程序开发自学通2014-5-11 第1页/共508页

为入门篇：VBA优势、功能与概念

第一章从Excel插件认识VBA

简单的说，Excel VBA是依附于Excel程序的一种自动化语言，它可以使常用的程序自动化，类似于DOS（磁盘操作系统）中的批处理文件（后缀名“.bat”）。那么它有什么具体的功能？在工作中与常规操作方式相比，具有哪些优势？笔者试图通过一个简单却实用的插件来展现。

本章要点：

●从身份证号获取个人信息

●在工作中如何发挥Excel插件的优势

1.1 从身份证号获取个人信息

制作人事资料时，通常需要录入职员身份证号码，以及生日、年龄、性别等等。除身份证号码需要手工逐一录入以外，其它三项信息的录入有四种方法：手工录入、内置公式、自定义函数法、插件法。手工输入方式效率极差，且出错机率也最高，本节通过后三种方式来实现并比较，从而让读者对VBA之优势与用法得以初步认知。

1.1.1 常觃公式法

以图1.1数据为例，利用公式从身份证中提取生日、年龄、性别等信息，可以有多种方法。本例列举其中之一。

图1.1 根据身份证号提取职工年龄、生日与性别

通过公式计算职工的年龄、出生日期与性别，步骤如下：

（1）在单元格C3输入以下公式，用于计算年龄：

Excel-VBA操作文件四大方法之一__利用Excel对象来处理文件

在我们日常使用Excel的时候，不仅会用到当前Excel文件的数据，还经常需要访问其他的数据文件。这些数据文件可能是Excel文件、文本文件或数据库

文件等。经常有朋友会问如何在vba代码里操作这些数据文件？本文就系统地介绍一下在Excel中应用VBA操作数据文件的方法。

本文主要介绍四种常用的方法：

1、利用Excel对象来处理文件；

2、利用VBA文件处理语句来处理文件；

3、利用FileSystemObject对象来处理文件；

4、利用API函数来处理文件。

当然对于数据库文件，还可以利用ADO＋SQL的方法操作，不过论坛已经有前辈详细介绍过此类方法，本文就不再重复了。

一、利用Excel对象来处理文件

利用Excel对象自带的方法来操作文件是最方便，也是最简单的。

我们主要利用Workbooks集合和Workbook对象的方法来操作文件。

1、打开Excel文件

我们可以用Workbooks.Open方法打开一个Excel工作簿。

Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPasswor

Excel-VBA操作文件方法总结

一、利用Excel对象来处理文件 ......................................................................................... 4 1、打开Excel文件 ........................................................................................................... 4 2、打开文本文件 ............................................................................................................. 4 3、打开其他文件 ............................................................................................................. 5 4、保存文件 ...............................

在VBA遍历文件夹和子文件夹中所有文件，常用两种方法，一种是使用VBA的filesercth对象，另外一种是使用FileSystemObject(windows文件管理工具)和递归方法。兰色对代码进行了注解，希望对大家有所帮助 第二种方法：引用FileSystemObject对象

注意：要使用FileSystemObject对象，需要首先引用一下，具体方法，VBE--工具--引用--找到miscrosoft scription runtime项目并选中 代码及注释：

Dim ArrFiles(1 To 10000) '创建一个数组空间,用来存放文件名称 Dim cntFiles% '文件个数

Public Sub ListAllFiles()

Dim strPath$ '声明文件路径

Dim i%

'Set fso = CreateObject(\ Dim fso As New FileSystemObject, fd As Folder '创建一个FileSystemObject对象和一个文件夹对象

strPath = ThisW