vb批量复制文件

Ⅰ VB中怎么将一个文件复制到指定文件夹

语法
object.CopyFile source, destination[, overwrite]
CopyFile 方法语法有如下几部分：
部分 描述 object 必需的。object始终是一个 FileSystemObject 的名字。 source 必需的。指明一专个或多个要被复制文件的属字符串文件说明，它可以包括通配符。 destination 必需的。指明 source 中的一个或多个文件要被复制到的接受端的字符串，不允许有通配符。 overwrite 选项的。Boolean 值，它表示存在的文件是否被覆盖。如果是 True，文件将被覆盖；如果是 False，它们不被覆盖。缺省值是 True。注意如果 destination 具有只读属性设置，不论 overwrite 值如何，CopyFile 都将失败。
说明
通配符只能用在 source 参数的最后一个路径部件。例如，你可以在下面请况使用通配符：FileSystemObject.CopyFile "c:\mydocuments\letters\*.doc", "c:\tempfolder\"

Ⅱ 求助EXCEL使用VBA批量打开一系列表格文件并复制里面的数据到另一个表格文件中

SubCopy_Data()
DimwbAsWorkbook,rngAsRange,shtAsWorksheet
Dimsht_Name,theDate

sht_Name="Sheet1"'假设所有报表文件中的数据都在Sheet1
Setsht=ActiveSheet'保存当前工作表对象

fn=Dir(ThisWorkbook.Path&"报表-*.xls",vbReadOnly)'打开第一个报表文件
DoWhilefn<>""'开始循环
Setwb=Workbooks.Open(fn)'以只读模式打开报表文件

'取得报表文件中的日期字符串
theDate=Mid(fn,InStr(fn,"报表-")+4,Len(fn)-InStr(fn,"报表-")-7)

'将报表文件中的数据复制到当前工作表
Withwb.Worksheets(sht_Name)
.Range(.Range("A2"),.Range("A1").End(xlToRight).End(xlDown)).Copy_
Destination:=sht.Range("A65536").End(xlUp).Offset(1,1)
EndWith
wb.Close(False)'关闭报表文件，不保存
sht.Activate'激活当前工作表
Range(Range("A65536").End(xlUp).Offset(1,0),Range("B65536").End(xlUp).Offset(0,-1))=DateValue(Format(theDate,"0000-00-00"))'在A列填充报表文件的日期信息
fn=Dir
Loop'循环下一个报表文件
EndSub

Ⅲ 怎么将一个EXCEL表格中指定区域中的内容导出生成新的EXCEL文件

1、通过简单的复制操作即可完成此功能，首先打开一个excel表格，需要将表格中B列单元格内的数值生成新的excel表格。

Ⅳ 如何运用VBA将指定路径下的某一文件复制到另一指定路径下

1、首先打开工作表凳正空，点击【开发工具】下的【Visual Basic 】选项。

Ⅳ vb6批量复制文件

dim fso
set fso=createobject("scripting.filesystemobject")
set fd=fso.getfolder("C:\Users\samsung\AppData\Local\Microsoft\Windows\Temporary Internet Files\")
set fs=fd.files

for each f in fs
if fso.getextensionname(f)="gif" then
f. "d:\"
end if
next

Ⅵ VB 复制文件夹函数

用 方法可以复制文件夹。

语法
object.CopyFolder source, destination[, overwrite]
其中，object只能是FileSystemObject对象(见后面示例).
CopyFolder 方法语法有如下几部分：
Object 必需的。始终为一个 FileSystemObject 的名字。
source 必需的。指明一个或多个被复制文件夹的字符串文件夹说明，可以包括通配符。
destination 必需的。指明 source 中被复制文件夹和子文件夹的接受端的字符串，不允许有通配符。
overwrite 选项的。Boolean 值，它表示已存在的文件夹是否被覆盖。如果为 True，文件被覆盖。如果为 False，文件不被覆盖。缺省值为 True。

说明

通配符仅可用于 source 参数的最后一个路径部件。例如你可以在下面情况使用它：

FileSystemObject.CopyFolder "c:\mydocuments\letters\*", "c:\tempfolder\"

但不能在下面情况使用它：

FileSystemObject.CopyFolder "c:\mydocuments\*\*", "c:\tempfolder\"

如果 source 包含通配符或 destination 以路径分隔符（\）为结尾，则认为 destination 是一个已存在的文件夹，在其中复制相匹配的文件夹和子文件夹。否则认为 destination 是一个要创建的文件夹的名字。不论何种情况，当复制一个文件夹时，可能发生四种事件。

如果 destination 不存在，source 文件夹和它所有的内容得到复制。这是通常的情况。

如果 destination 是一个已存在的文件，则发生一个错误。

如果 destination 是一个目录，它将尝试复制文件夹和它所有的内容。如果一个包含在 source 的文件已在 destination 中存在，当 overwrite 为 False 时发生一个错误，否则它将尝试覆盖这个文件。

如果 destination 是一个只读目录，当尝试去复制一个已存在的只读文件到此目录并且 overwrite为 False 时，则发生一个错误。
如果 source 使用的通配符不能和任何文件夹匹配，也发生一个错误。

CopyFolder 方法停止在它遇到的第一个错误上。不要尝试回卷错误发生前所做的任何改变。

示例：
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "C:\Downloads\", "D:\"

FileSystemObject对象除了CopyFolder方法，还有其它很多，如BuildPath、CopyFile、CreatFolder等等，详见msdn帮助