Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3963|回复: 2

[已解决]如何从其他工作簿中复制数据到当前工作簿中?

[复制链接]
发表于 2012-1-18 19:24 | 显示全部楼层 |阅读模式
我需要将其他工作簿中的数据粘贴到当前工作簿中,附件中代码最后一句粘贴总是出错,求朋友帮忙修正一下?
最佳答案
2012-1-18 20:23

  1. Sub SelectFile()
  2.     Dim FileName As Variant
  3.     Dim sWKName As Workbook
  4.     Dim cel As Range, RNG As Range

  5.     '打开源文件
  6.     FileName = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls", , "打开数据源")
  7.     If FileName = "False" Then Exit Sub
  8.     Set sWKName = Workbooks.Open(FileName)
  9.    
  10.     '选择源区域
  11.     Set RNG = Application.InputBox(Prompt:="请选取数据源!", Title:="提取数据", Type:=8)
  12.     If RNG Is Nothing Then GoTo 100

  13.     '选择目的区域
  14.     ThisWorkbook.Activate
  15.     Set cel = Application.InputBox(Prompt:="请选择数据放置的位置!", Title:="数据存放", Type:=8)
  16.     If cel Is Nothing Then GoTo 100
  17.    
  18.     '复制值
  19.     RNG.Copy
  20.     cel.Cells(1).PasteSpecial Paste:=xlPasteValues
  21.    
  22. 100:
  23.     sWKName.Close False
  24. End Sub
复制代码
附件表格式b.rar (10.79 KB, 下载次数: 55)

附件表格式.rar

12.36 KB, 下载次数: 21

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2012-1-18 20:23 | 显示全部楼层    本楼为最佳答案   

  1. Sub SelectFile()
  2.     Dim FileName As Variant
  3.     Dim sWKName As Workbook
  4.     Dim cel As Range, RNG As Range

  5.     '打开源文件
  6.     FileName = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls", , "打开数据源")
  7.     If FileName = "False" Then Exit Sub
  8.     Set sWKName = Workbooks.Open(FileName)
  9.    
  10.     '选择源区域
  11.     Set RNG = Application.InputBox(Prompt:="请选取数据源!", Title:="提取数据", Type:=8)
  12.     If RNG Is Nothing Then GoTo 100

  13.     '选择目的区域
  14.     ThisWorkbook.Activate
  15.     Set cel = Application.InputBox(Prompt:="请选择数据放置的位置!", Title:="数据存放", Type:=8)
  16.     If cel Is Nothing Then GoTo 100
  17.    
  18.     '复制值
  19.     RNG.Copy
  20.     cel.Cells(1).PasteSpecial Paste:=xlPasteValues
  21.    
  22. 100:
  23.     sWKName.Close False
  24. End Sub
复制代码
附件表格式b.rar (10.79 KB, 下载次数: 55)
回复

使用道具 举报

发表于 2012-1-21 11:09 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 14:10 , Processed in 0.602017 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表