Copy worksheet

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

AlanW - 26 Aug 2007 02:12 GMT

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

Reply to this Message

Dave Peterson - 26 Aug 2007 02:35 GMT

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

> 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
[quoted text clipped - 15 lines]
>
> Thanks

Signature

Dave Peterson

Reply to this Message

AlanW - 26 Aug 2007 13:36 GMT

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" 來函：

> First, you should post the code that you're using instead of typing it into the
> post.
[quoted text clipped - 32 lines]
> >
> > Thanks

Reply to this Message

Dave Peterson - 26 Aug 2007 15:47 GMT

Did you try the first suggestion?

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

> Hi Dave,
>
[quoted text clipped - 53 lines]
> >
> > Dave Peterson

Signature

Dave Peterson

Reply to this Message