2013-01-15 51 views
-1

我想了解如何将已经打开的excel工作簿中的单元格复制到另一个文件中。我不只是想要一个代码,我想要一个教程。我的问题是谷歌只给我论坛。有人可以用视频提出一个很好的教程吗?超级链接将有所帮助。建议使用Excel 2003 VBA视频?

+0

这似乎很明显,但你有没有试过YouTube? –

+0

是的,所有出现的视频都是基本的。没有人告诉我如何从一个文件到另一个文件。他们都是,“这里是如何从一个单元复制到另一个单元”,或者,“这里是如何从一个单元复制到另一个单元”。我确实找到了一个视频,但它只是打字而不解释。我想了解当我完成时我在做什么。 –

+0

这确实是一个相当简单的概念。我可以给你写一个非常简单易用的代码来向你展示一个答案,但是肯定有很多例子都是清晰和简单的。 –

回答

3
Option Explicit 

Sub CopyFromOpenWorkbookToAnother() 

'declare variables 
Dim wkbCopy as Workbook, wkbPaste as Workbook 
Dim wksCopy as Worksheet, wksPaste as Worksheet 
Dim rngCopy as Range 

'set variables -> change the names to suit your data needs 
Set wkbCopy = Workbooks("WorkbookToCopyFrom.xls") 
Set wkbPaste = Workbooks("WorkbookToCopyTo.xls") 
Set wksCopy = wkbCopy.Sheets("SheetToCopy") 
Set wksPaste = wkbPaste.Sheets("SheetToPaste") 

Set rngCopy = wksCopy.Range("A1:A10") 'adjust to whatever range you need 
rngCopy.Copy wksPaste.Range("A1") 'adjust to wherever you want to paste 

End Sub