workbook1 data to workbook2 data
 

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

workbook1 data to workbook2 data
 

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