1. EXCEL用vba實現跨文件的內容復制
你可以把你的文件發一份可我看看
2. Excel 請問如何用vba復制文件到另一個文件夾下面
用FileCopy語句即可。例如將「D:\123.txt"文件復制到C:\ABC文件夾下：
FileCopy D:\123.txt C:\ABC\123.txt
當然在復制的同時還可以改變文件名
3. 用VBA打開並復制文件夾中的所有excel文件中的數據的問題
Sub 匯總數據()
Application.ScreenUpdating = False
p = "C:\path\" '源文件存放的路徑，根據實際修專改
f = Dir(p & "*.csv")
Do While f <> ""
Workbooks.Open p & f
r = r + 1
ActiveWorkbook.Sheets(1).Rows(UsedRange.Rows.Count).Copy Workbooks("匯總表屬.xls").Sheets(1).Cells(r, 1) '匯總表.xls必須存在
ActiveWorkbook.Saved = True
ActiveWindow.Close
f = Dir
Loop
Application.ScreenUpdating = True
End Sub
4. 關於excel，vba. 用vba復制某個工作表並另存為另一個文件。
將ActiveWorkbook.SaveAs這一句改為
ActiveWorkbook.CloseSaveChanges:=True,Filename:=mypath&myfile
5. 如何通過vba把當前打開的excel 文件復制一份存成另一個文件
Sub Macro1()
Sheets.Select
Sheets.Copy
End Sub
6. EXCEL VBA中怎麼把另外一個EXCEL文件的sheet1完全（數據及格式）復制到當前sheet1
按ALT+F11,插入一個模塊,輸入下列代碼.即可
Sub All()
fname = "C:\Book2.xls" '需要復制的excel文件地址及文件名,你自己專修改
Set d = GetObject(fname) '打開文件
d.sheets("sheet1").Cells.Copy ActiveSheet.Cells(1, 1) '將sheet1完全復制到屬當前表
d.Close '關閉文件
Set d = Nothing
End Sub
7. VBA EXCEL如何將一個文件復制到另一個文件
sub aaa()
dim sh1 as worksheet
dim sh2 as worksheet
set sh1 = workbooks("1.xls").sheets(1)
set sh2 = workbooks("2.xls").sheets(1)
sh1.range(sh1.[a1], sh1.range("a1").end(xldown)). sh2.[a1]
sh1.range(sh1.[a65536].end(xlup), sh1.[a65536].end(xlup).end(xlup)). sh2.[b1]
end sub隨便放哪個工復作簿吧。但是制，兩個工作簿都要打開。當然你也可以加上打開工作簿的代碼。
8. Excel中怎樣利用vba實現-全選-復制-新建Excel文件-選擇性數值粘貼到新文件-保存，保存文件名為某一單元格
既然都可以說得那來么清楚，我自就把說明與注意點，直接備注在代碼中了，完整代碼如下
Subadmin()
DimxWkAsWorkbook,xShAsWorksheet,xRanAsRange
DimnWkAsWorkbook
'要復制內容為當天工作表
SetxWk=ActiveWorkbook
SetxSh=ActiveSheet
'保存的文件名為A1單元格里的內容，如果是其它單元格，修改這里
SetxRan=xSh.Range("A1")
SetnWk=Workbooks.Add
xSh.Cells.Copy
nWk.Worksheets(1).Range("A1").PasteSpecialxlPasteValues
'保存在與復制內容同一目錄下
nWk.SaveAsxWk.Path&""&xRan.Value
EndSub
9. 如何用excelvba復制已打開的excel文件
復制整個打開的文件，既然打開了，就不要復制了，直接另存就好了。
打開的文件.SaveAs 路徑& 文件名
10. vba 把excel中的值復制粘貼到txt中
Excel每行數據導出成txt.文件的VBA代碼：
Sub DaoChu()
Dim I As Integer, J As Long, RW As Long
For I = 1 To ActiveSheet.UsedRange.Columns.Count
Open ThisWorkbook.Path & "\" & Cells(1, I) & ".txt" For Output As 1
For J = 2 To Cells(65536, I).End(3).Row
Print #1, Cells(J, I).Value
Next J
Close 1
Next I
MsgBox "數據導出完畢!回", vbOKOnly, "導出成答功"
End Sub