Copy worksheet

[Guest]

I would like to copy a worksheet from FileA to FileB by using the listed
code, but it is strange that the result is just the opposite; it copies FileB
to FileA. Could someone please help.

The codes are as follows:-

Sub test()
Dim wb As Workbook, ws As Worksheet

Set ws = ThisWorkbook.ActiveSheet
Set wb = Workbooks.Open("C\FileB.xls")

wb.Sheets(1).Range("A1").Copy
ws.Range("A!").PasteSpecial xlPasteValues

wb.Close Savechanges:=False
End Sub


Thanks

 

[Dave Peterson]

First, you should post the code that you're using instead of typing it into the
post.

Sub test()
Dim wb As Workbook, ws As Worksheet

Set ws = ThisWorkbook.ActiveSheet
Set wb = Workbooks.Open("C\FileB.xls") '<-- this won't work

ws.range("a1").copy
wb.sheets(1).range("a1").pastespecial paste:=xlpastevalues

'you sure you want to close FileB without saving?
wb.Close Savechanges:=False

End Sub

 

[Guest]

Hi Dave,

Thank you for your reply first.

I posted below the whole code for your reference, please help me to solve
the problem

Dim wb As Workbook, ws As Worksheet

Set ws = ThisWorkbook.ActiveSheet
Set wb = Workbooks.Open("F:\All MS Office Files\Sample Official.xls")

ws.Range("A1:I14").Copy
wb.Sheet(1).Range("M2").PasteSpecial xlPasteValues


"Dave Peterson" 來函：

 

[Dave Peterson]

Did you try the first suggestion?

And wb.sheet(1)... won't work. Did you mean to post wb.sheets(1)...