workbook1 data to workbook2 data

[raisin]

hi there, does anyone knows the code to grab data from one workbook's worksheet to another workbook's worksheet? i only know the code from worksheet to worksheet. actually i got alot of files. so i have to grab the values from diff workbook. i also only have the code to grab the workbook.but it cannot paste the values into another workbook..
thanks for ur help!!!
=)

the code i'm using to grab the file:

'GrabWorkbook
Dim tstWkbk As Workbook
Set tstWkbk = Nothing
On Error Resume Next
Set tstWkbk = Workbooks("Book2.xls")
On Error GoTo 0
If tstWkbk Is Nothing Then
On Error Resume Next
Set tstWkbk = Workbooks.Open(Filename:="D:\Documents and Settings\Administrator\Desktop\Book2.xls")
On Error GoTo 0
End If

[CLR]

You can bring in data from other workbooks without using code if you
wish.......

='C:\[book1test.xls]Sheet1'!$A$1

This formula will bring in the value from the Workbook, Sheet, and Cell
specified......you can have one sheet bring in values from many other
workbooks/sheets/cells.........

hth
Vaya con Dios,
Chuck, CABGx3



"raisin" wrote:

>
> hi there, does anyone knows the code to grab data from one workbook's
> worksheet to another workbook's worksheet? i only know the code from
> worksheet to worksheet. actually i got alot of files. so i have to grab
> the values from diff workbook. i also only have the code to grab the
> workbook.but it cannot paste the values into another workbook..
> thanks for ur help!!!
> =)
>
> the code i'm using to grab the file:
>
> 'GrabWorkbook
> Dim tstWkbk As Workbook
> Set tstWkbk = Nothing
> On Error Resume Next
> Set tstWkbk = Workbooks("Book2.xls")
> On Error GoTo 0
> If tstWkbk Is Nothing Then
> On Error Resume Next
> Set tstWkbk = Workbooks.Open(Filename:="D:\Documents and
> Settings\Administrator\Desktop\Book2.xls")
> On Error GoTo 0
> End If
>
>
> --
> raisin
> ------------------------------------------------------------------------
> raisin's Profile: http://www.excelforum.com/member.php...o&userid=29141
> View this thread: http://www.excelforum.com/showthread...hreadid=507158
>
>