Excel VBA 怎么样复制当前工作表到目标工作簿 首先工作簿是一个对象Object，所以要用VBA中处理对象的语句那，你准备如何处理这个(D2)名字的工作簿？如果是不存在的，你就要Create，如果是已存在的，你就要Open或GetObject，不管是上面的哪种，都需要提供文件名，而文件名就可以用字符串了，也就是，用你（D2）内的字符串，作为处理对象时的参数，而这个对象可以用set oWorkbook=…来指代，处理成功后，你就可以用oWorkBook来代表这个对象了
Excel怎么把工作表Sheet复制至另一个工作簿，日常生活中，使用办公软件OFFICE，有时候会遇到Excel怎么把工作表Sheet复制至另一个工作簿的问题。那么，Excel怎么把工作表。
VBA复制一个SHEET到另一个文件中的代码 不知道你是否一行一行的读过你写的代码，你读了会发现什么嘛，我是这么读的：Private Sub CommandButton9_Click()Dim i As String，j As String，k As String，yy As Integer，mm As Integer，dd As Integeri=ActiveWorkbook.Pathj=\"备份数据.xlsxyy=Year(Now())mm=Month(Now())dd=Day(Now())Workbooks.Add '1.添加工作簿k=yy&mm&dd&jActiveWorkbook.SaveAs Filename：=i&k '2.新工作簿另存为指定名字Workbooks(\"项目情况一览表.xls\").Sheets(\"sheet1\").Cells.Copy ThisWorkbook.Sheets(\"sheet2\").Range(\"a1\")'3.拷贝一些数据到一个工作簿中End Sub看了我的注释1、2、3，我就觉得逻辑不对，至少应该拷贝过去了再保持，另外还有细节问题，ThisWorkbook表示写有宏代码的工作簿，肯定不是你新建的。我觉得逻辑应该这么做：把指定工作表复制到新工作簿，然后另存为保存新工作薄，最后关闭新工作簿，就三句：Sheets(\"Sheet1\").Copy '把宏所在工作簿的Sheet1表复制到新工作簿中ActiveWorkbook.SaveAs Filename：=\".\"'保存新工作簿'ActiveWorkbook.Close '关闭新工作簿
vba excel如何跨工作簿拷贝内容
excel怎么从一个工作簿复制表格到另一个工作簿，有时在工作中，常常会需要合并多个Excel的工作表格，但是粘贴复制太麻烦，怎么样将表格从一个工作簿复制到另一个工作簿中呢。
如何用VBA实现跨工作簿的复制粘贴？高手给看看代码 Set tt=Workbooks.Open(ThisWorkbook.Path&\"\\\"&\"汇总\"&\".xls\")这一句应在FOR的外面，否则两次打开汇总表。tt.Worksheets(CStr(1)).Range(1，n)叫“1”的表即CStr(1)不知你有没，Range(1，n)，这表述错了，应为Cells(1，n)。我修正一下的代码，你在一个同文件夹下建3个文件，1.xls，2.xls，3.xls。表3是汇总表。再建一个BOOK1表，也存在该文件夹，在此表放入下面代码，执行则可。Sub 按钮1_单击()On Error Resume NextDim i，tt，ss，nApplication.ScreenUpdating=Falsen=1Set tt=Workbooks.Open(ThisWorkbook.Path&\"\\\"&\"3\"&\".xls\")For i=1 To 2Set ss=Workbooks.Open(ThisWorkbook.Path&\"\\\"&i&\".xls\")ss.Worksheets(\"Sheet1\").Range(\"F4：F170\").Copy tt.Worksheets(\"Sheet1\").Cells(1，n)n=n+1ss.CloseNext iApplication.ScreenUpdating=TrueEnd Sub
移动或复制工作表，在工作簿中找不到目标文件的具体操作步骤如下：1、首先我们打开电脑点击“开始”，再选择“EXCEL”，打开Excel程序。2、然后我们点击“打开其他工作簿”。3、点击“浏览”，选择要打开的Excel文件，如“员工信息表_2.xlsx”。4、打开选择的Excel文件，打开的Excel表格中，有5个工作表。5、右键点击一个工作表，如“基本信息”，弹出右键菜单，点击“移动或复制”。6、在“移动或复制工作表”对话框中，选择要将工作表移动到哪个位置，如移动到“个人简历”工作表之前，点击“确定”。7、这样，“基本信息”工作表就移动到“个人简历”工作表之前了。8、右键点击一个工作表，如“基本信息”，弹出右键菜单，点击“移动或复制”。9、在“移动或复制工作表”对话框中，选择要将工作表复制到哪个位置，如复制到最后的位置。10、在“移动或复制工作表”对话框中，勾选“建立副本”，点击“确定”。11、这样，“基本信息”工作表就在最后的位置建立了一个副本“基本信息（2）”，内容跟“基本信息”工作表一模一样。
如何将excel中一个工作簿的内容复制到更多的工作簿 首先，一个工作簿就是一个Excel文档其次，要复制工作簿到其他工作簿，是属于操作系统层面的事情。只要在操作系统的资源管理器，右键点击工作簿，选择复制，然后在需要复制的位置右键点击，选择黏贴就可以了。可以连续复制再者，如果楼主指的只是Excel工作簿中的某一个工作表，那么需要在Excel层面操作，如果是在同一工作簿内拷贝工作表，可以右键点击工作表标签，选择 移动或复制工作表，然后勾选 建立副本 就可以。最后，Excel不支持工作表在不同工作簿中的复制以上，不知道楼主需要的是什么
VBA 复制工作表至新的工作簿中的工作表 Sub 新建工作簿()Application.ScreenUpdating=FalseDim gzb As WorkbookSet gzb=Workbooks.AddActiveSheet.Name=\"1-aWorkbooks(\"A.xls\").Sheets(\"a\").Cells.Copy[a1]Worksheets.Add(after：=Worksheets(Worksheets.Count)).Name=\"1-bWorkbooks(\"A.xls\").Sheets(\"b\").Cells.Copy[a1]gzb.SaveAs ThisWorkbook.Path&\"\\1-A.xls\"，FileFormat：=xlExcel8Set gzb=NothingActiveWorkbook.CloseApplication.ScreenUpdating=TrueEnd Sub这个vba代码写在A工作簿的模块里即可，指定区域你可以自己修改下代码，我这里是全表复制的效果。
