怎样用vba将一个工作簿中的一个工作表复制到另一个工作簿的一个工作表中

apshai 2004-01-09 01:35:52

worksheet.copy是对本工作簿中的复制
怎么才能复制到其他工作簿中那？

...全文

5765 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

OFFICE之门 2004-01-09

打赏
举报

回复 1

Workbooks("Book2").Sheets("Sheet1").Copy Before:=Workbooks("Book1").Sheets(1)

apshai 2004-01-09

打赏
举报

回复

谢了，我已经成功了

Private Sub CommandButton2_Click() For Z = 2 To Sheet2.[b65536].End(3).Row Next Application.ScreenUpdating = False Dim j As Integer Dim souce As Worksheet Dim target As Workbook Set souce ...

如何将某个Excel文件中的特定sheet复制到一个另一如何将某个Excel文件中的特定sheet复制到一个另一个Excel文件中去？小编给你倒一杯热水。可你惦记着其他饮料，所以你将它放置一旁。等你想起那杯水时，可惜它已经变得冰冷刺骨。在电脑桌面里将两个表格都打开，也就是要复制的原EXCEL文件，还有目标EXCEL文件。感情有很多种，对一个人好，不一定要和这个人在一起。因为你知道她最宝贵的是什么...

我不知道为什么你需要一个exe文件。下面的代码是在Excel中的一个模块与扩展.XLSM文件，比方说CopySheets.xlsm。将一个CommandButton添加到user_form(或者如果它更容易，可能在其中一张表中)，并且在该文件的模块中包含以下代码。Option ExplicitDim a As WorkbookDim b As WorkbookDim txt As StringD...

Sub test() Dim wb_data, wb_copy As Workbook Dim fn_data, fn_copy As String fn_data = "C:\Users\xlbtlmy\Desktop\VBA\data.xlsx" fn_copy = "C:\Users\xlbtlmy\Desktop\VBA\copy.xlsx" Set wb_data = GetObject(fn_data) Set wb_copy

Sub 宏1() ' ' 宏1 宏 ' ' Sheets("Sheet1").Select Sheets("Sheet1").Copy Before:=Workbooks("B.xlsx").Sheets(1) Windows("A.xlsx").Activate End Sub

Office开发/ VBA

5,174

社区成员

17,906

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章