宏将数据从工作簿导入另一个（例外，vba） [英] Macro to import data from an workbook to another (exce, vba)

问题描述

大家好，

我是否知道如何通过点击底部获取WorkBook1中的WorkSheet并将其放入Workbook2的Worksheet2中？



我需要一个宏来做到这一点。

我尝试修改一些代码，但它不起作用。以下是代码：

  Sub  test（）
 ' 获取客户工作簿...  
 昏暗 customerBook 作为工作簿
  Dim 过滤器作为 字符串 
  Dim 标题作为 字符串 
  Dim  customerFilename 作为 字符串 
  Dim  customerWorkbook 作为工作簿
  Dim  targetWorkbook 作为工作簿
 
 '  make weak assumpti在该活动工作簿上是目标 
 设置 targetWorkbook = Application.ActiveWorkbook 
 
 ' 获取客户工作簿 
 filter =  文本文件（* .xlsx），*。xlsx 
 caption =  请选择一个输入文件 
 customerFilename = Application.GetOpenFilename（filter，caption）
 
  Set  customerWorkbook = Application.Workbooks.Open（customerFilename）
 
 
 '  copy从客户到目标工作簿的数据 
  Dim  targetSheet 作为工作表
 设置 targetSheet = targetWorkbook.Worksheets（ 1 ）
 < span class =code-keyword> Dim  sourceSheet  As 工作表
 设置 sourceSheet = customerWorkbook.Worksheets（ 1 ）
 
 ' 工作簿（PGT.xlsx）。工作表（1）。复制后：=工作簿（Classeur1.xlsx）。ActiveSheet  
 
 
关闭客户工作簿
 customerWorkbook.Close 
 结束  Sub  

谢谢

解决方案

这很简单！

 sourceSheet.Copy After：= targetWorksheet 

MSDN文档：Worksheet.Copy Method（Excel） [ ^

Hi everybody,
Does any body knows how i can get the WorkSheet in WorkBook1 and put it in Worksheet2 of Workbook2 by clickling a bottom?

I need a macro to do that.
I try to modify some code but it doesn't work. Here is the code:

Sub test()
' Get customer workbook...
Dim customerBook As Workbook
Dim filter As String
Dim caption As String
Dim customerFilename As String
Dim customerWorkbook As Workbook
Dim targetWorkbook As Workbook

' make weak assumption that active workbook is the target
Set targetWorkbook = Application.ActiveWorkbook

' get the customer workbook
filter = "Text files (*.xlsx),*.xlsx"
caption = "Please Select an input file "
customerFilename = Application.GetOpenFilename(filter, , caption)

Set customerWorkbook = Application.Workbooks.Open(customerFilename)


' copy data from customer to target workbook
Dim targetSheet As Worksheet
Set targetSheet = targetWorkbook.Worksheets(1)
Dim sourceSheet As Worksheet
Set sourceSheet = customerWorkbook.Worksheets(1)

'Workbooks("PGT.xlsx").Worksheets(1).Copy After:=Workbooks("Classeur1.xlsx").ActiveSheet


Close customer workbook
customerWorkbook.Close
End Sub

Thanks

解决方案

It's simple!

sourceSheet.Copy After:=targetWorksheet

MSDN documentation: Worksheet.Copy Method (Excel)[^]

这篇关于宏将数据从工作簿导入另一个（例外，vba）的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！