用vb语言怎样把一个工作簿里所有工作表的内容移到另一个工作簿里，代码实现

如题所述

第1个回答推荐于2016-03-06

直接用录制的方式录制出操作的VBA代码，再把代码加上对象名称，就可用到VB代码中。
你说的操作是复制或者移动工作表，在工作表标签上，右键菜单就可以操作复制或移动，把操作录制下来就可以转移到VB上用了。

比如，录制到代码：
Sheets("Sheet1").Select‘这句话是选择sheet1的意思，由于后面是直接用名称引用操作对象，而不是对选择的对象进行操作，所以选择不选择都无所谓，这句话可以删除
Sheets("Sheet1").Move Before:=Workbooks("工作簿1").Sheets(1)
这句代码的意思就是把当前的Sheet1移动到“工作簿1”的第一个工作表之前。
你只要在sheets前面加上当前工作簿的引用就可以用到VB代码中。本回答被提问者和网友采纳

相似回答

...vba把Excel中所有的工作表复制到另一个工作表里面答：这个主要是用到For语句和Copy方法。比如：把从第2个表开始的A1:A2单元格区域复制到第1张表的A列里面。代码如下：Sub ShCopy()Dim i%, endrow%'定义变量For i = 2 To Sheets.Count'变量i从2开始循环到整个工作簿的表的个数 endrow = Sheets(1).Range("A65536").End(xlUp).Row + 1 ...

...如何同一个工作簿下工作表内的数据移到另一个工作表指定位置请大神指...答：1) .Range("L15") = Orng.Offset(0, 2) .Range("L16") = Orng.Offset(0, 3) .Range("k4")

如何用vb编程把数据从一个工作表导入到另一个工作表答：我想要的结果最好是这样的:用VBA,在工作表3里面做一个带有两个按钮的窗体,from和to,点击from按钮出现浏览选择文件窗口,然后我可以选择表一,将表一数据导入表三,点击to按钮又可以出现浏览选择文件窗口,选择表二,然后可以将这些数据对号入座导入到表二。感谢zipall,现在我已经用vlookup得到了表一,现在我需要用一个...

请教如何利用VBA实现将一个工作表复制到另一个工作簿中答：1、开发工具——VB。2、输入代码：Sub 复制表() Dim MyBook1 As Workbook Set MyBook1 = Workbooks.Open("C:\Users\Administrator\Desktop\工作表1.xls") Sheets("移动表").Select Sheets("移动表").Copy Before:=Workbooks( _ "工作表2.xls").Sheets(1)MyBook1.CloseEnd Sub。3、...

一个工作表提取另一个工作表格数据的VB编程?答：在 Excel 中，您可以使用 VBA 编程来根据一个工作表的数据提取并汇总到另一个工作表。以下是一个简单的示例，从 Sheet1 汇总物料名称的数量，并将结果填入 Sheet2 中的对应日期和物料名称单元格：Sub SummarizeData()Dim ws1 As Worksheet, ws2 As Worksheet Dim lastRowWs1 As Long, lastRowWs2...

...一个工作的内容复制到另一个工作簿中的一个工作表中答：下面代码把c:\1.xls中Sheet1工作表的内容拷贝到另外一个新建工作表中，并保存为“c:\2.xls”Private Sub Command1_Click()Dim S() As String, i As Integer, j As Integer Dim xlApp Dim xlBook Dim xlSheet Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 xlApp.Display...

如何把工作簿中内的100个工作表的内容全部复制粘贴到新的工作表中答：1.新建立一个工作表，将工作表放在第一工作表的位置（sheet1的位置）2.按ALT+F11打开VBA编辑器 3.打开一个VBA窗口，粘贴下面的代码 4.点击运行，或回到工作表界面按ALT+F5运行一下这个宏就能满足你的要求了 Sub 合并工作表()For i = 2 To Sheets.Count rw = Sheets(1).[a100000].End(xlUp...

...个文件中某一个sheet里指定区域内容复制到另一个汇总工作簿里一个...答：参考代码 private Sub bookMerge(nstart As Long, ncolumn As Integer)' MsgBox "欢迎使用合并工作表工具1.0" & Chr(13) & "made by excel880工作室" & Chr(13) _' & "本工具将合并当前目录下所有工作簿的第一个工作表到一个工作簿"' Dim fs, f, f1, fc, s Dim wk As...

请问如何用VBA将一个EXCEL文件中的数据复制到别一个EXCEL文件相同的位置...答：Sub Work_copy()Dim a As Range Dim i As Long Dim xls1 As Worksheet Dim xls2 As Worksheet Set xl1 = Workbooks("源文件").Worksheets("源工作表")i = xl1.Index '返回源工作表的索引号 Set xl2 = Workbooks("目标文件").Worksheets(i)a = Application.InputBox("选择要复制的单元...

大家正在搜

怎样把一个工作簿的所有表合并 vba复制工作表到另一个工作簿怎样复制工作簿中所有的表格 vba抓取数据到另一个工作簿 vb复制sheet至另一个工作簿 vba将工作表保存为工作簿 vba跨工作簿复制工作表三个工作簿汇总到一个拆分工作簿vb代码