Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2003, Convert EXISTING Worksheet Data to XML? | Excel Discussion (Misc queries) | |||
Charts not recognizing source data if original linked data is changed. | Charts and Charting in Excel | |||
Line Graph Data Recognition | Charts and Charting in Excel | |||
Macro to Synchronize data frm svrl workbooks & columns to 1 workbo | Excel Discussion (Misc queries) | |||
Running Data Table using an input that triggers DDE linked data | Excel Discussion (Misc queries) |