楼主帮忙看看代码错在哪里？万分感谢

上官瑶瑶

先谢谢上次刘版主的解答，
可是运行时出错，我想将工作表2数据粘贴到工作表1原有数据的下面，只粘贴数值，不粘贴格式，代码如下：
Sub tttt()
FileN = Application.GetOpenFilename(fileFilter:="Excel文件(*.xls*),*.xls*", Title:="", MultiSelect:=False)
If FileN = "FALSE" Then Exit Sub
If Not FileN = "" Then
   Set wb = Workbooks.Open(Filename:=FileN)
   Set WS = wb.Sheets(1)
   WS.UsedRange.Offset(1).Copy ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(3).Offset(1).Resize(WS.UsedRange.Offset(1).Rows.Count, WS.UsedRange.Offset(1).Columns.Count).Value = WS.UsedRange.Offset(1).Value
   wb.Close SaveChanges:=False
End If
End Sub
---------------------
运行时错误，提示类型不匹配，再次上次附件，希望可以得到解答！谢谢。。。

bajifeng

1. Sub tttt()
   
2. 
   
3. FileN = Application.GetOpenFilename(fileFilter:="Excel???(*.xls*),*.xls*", Title:="", MultiSelect:=False)
   
4. If FileN = "FALSE" Then Exit Sub
   
5. If Not FileN = "" Then
   
6.    Set wb = Workbooks.Open(Filename:=FileN)
   
7.    Set WS = wb.Sheets(1)
   
8.    
   
9.    '??????????
   
10.    'WS.UsedRange.Offset(1).Copy ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(3).Offset(1).Resize(WS.UsedRange.Offset(1).Rows.Count, WS.UsedRange.Offset(1).Columns.Count).Value = WS.UsedRange.Offset(1).Value
    
11.    
    
12.    '??????￡?
    
13.    WS.UsedRange.Offset(1).Copy
    
14.    ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(3).Offset(1).Resize(WS.UsedRange.Offset(1).Rows.Count, WS.UsedRange.Offset(1).Columns.Count).PasteSpecial Paste:=xlPasteValues
    
15.    
    
16.    wb.Close SaveChanges:=False
    
17. End If
    
18. 
    
19. End Sub

复制代码

bajifeng

你的代码写的有点复杂呀，给你写一个简单一点的：
尽情享用吧！

1. Sub b() 'by bajifeng
   
2. fn = Application.GetOpenFilename("Excel ???(*.xlsx;*.xls),*.xlsx;*.xls")
   
3. If Len(fn) Then
   
4.     Set wb = Workbooks.Open(fn)
   
5.     ar = wb.ActiveSheet.UsedRange.Offset(1)
   
6.     wb.Close False
   
7. Else
   
8.     End
   
9. End If
   
10. [a65536].End(3).Resize(UBound(ar), UBound(ar, 2)) = ar
    
11. End Sub

复制代码

bajifeng

>>>>>>>>>>>>>>>>>>