|
我需要将其他工作簿中的数据粘贴到当前工作簿中,附件中代码最后一句粘贴总是出错,求朋友帮忙修正一下?
- Sub SelectFile()
- Dim FileName As Variant
- Dim sWKName As Workbook
- Dim cel As Range, RNG As Range
-
- '打开源文件
- FileName = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls", , "打开数据源")
- If FileName = "False" Then Exit Sub
- Set sWKName = Workbooks.Open(FileName)
-
- '选择源区域
- Set RNG = Application.InputBox(Prompt:="请选取数据源!", Title:="提取数据", Type:=8)
- If RNG Is Nothing Then GoTo 100
-
- '选择目的区域
- ThisWorkbook.Activate
- Set cel = Application.InputBox(Prompt:="请选择数据放置的位置!", Title:="数据存放", Type:=8)
- If cel Is Nothing Then GoTo 100
-
- '复制值
- RNG.Copy
- cel.Cells(1).PasteSpecial Paste:=xlPasteValues
-
- 100:
- sWKName.Close False
- End Sub
复制代码
附件表格式b.rar
(10.79 KB, 下载次数: 55)
|
|