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幫助