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