如何将工作表中的工作表复制到另一个工作簿 [英] How to copy sheets from a workbook to another workbook

问题描述

我有这段代码可以将工作表从VBA/Access中的工作簿复制到另一个工作簿/文件.

I have this code to copy a sheet from a Workbook in VBA/Access to another Workbook/File.

Dim File1 as String
Dim File2 as String
File1 = "D:\File1.xls"
File2 = "D:\File2.xls"

Windows(File1).Activate
Sheets("Name of Sheet").Select
Sheets("Name of Sheet").Copy Before:=Workbooks(File2).Sheets("Name of Target Sheet")

这不起作用. 我需要在后台复制.还要禁用任何宏.

This is not working. I need to copy in background.Also to disable any macros.

1. 我如何使它工作?
2. 我可以给索引而不是表名"吗?
3. 我可以给一组索引复制到第二本工作簿吗?

推荐答案

如果您在MS Access中运行，则需要在以下几行中进行一些操作:

If you are running in MS Access, you need something on these lines:

Dim CopyFrom As Object
Dim CopyTo As Object ''Early binding: Workbook
Dim CopyThis As Object
Dim xl As Object ''Early binding: New Excel.Application

''Late binding
Set xl = CreateObject("Excel.Application")
xl.Visible = True

''To use a password: Workbooks.Open Filename:="Filename", Password:="Password"
Set CopyFrom = xl.Workbooks.Open("z:\docs\From.xls")
Set CopyThis = CopyFrom.Sheets(1) ''Sheet number 1
Set CopyTo = xl.Workbooks.Open("z:\docs\To.xls")
CopyThis.Copy After:=CopyTo.Sheets(CopyTo.Sheets.Count)

CopyFrom.Close False

这篇关于如何将工作表中的工作表复制到另一个工作簿的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！