Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
naming two open workbooks
From a blank Excel application (toolbar), I am opening one workbook
("oldSheet"), and then opening another workbook ("newSheet"), and copying values from the old to the new. I need help identfying each workbook. I want to declare range objects (i.e. oldSheet and newSheet), but don't know how. Please help? So far, I have: Sub captureData() 'from old Dim B4 As String, D4 As String, K4 As String, O4 As String Dim C6 As String, H6 As String, O6 As String Dim oldSheet 'As Sheet1, newSheet Set oldSheet = ActiveWorkbook.Sheets(1) B4 = oldSheet.Range("B4").Value D4 = oldSheet.Range("d4").Value K4 = oldSheet.Range("k4").Value O4 = oldSheet.Range("o4").Value C6 = oldSheet.Range("c6").Value H6 = oldSheet.Range("h6").Value O6 = oldSheet.Range("o6").Value 'to new Workbooks.Open Filename:="newOne.xls" ActiveWorkbook.ActiveSheet.Range("b2").Value = B4 ActiveWorkbook.ActiveSheet.Range("e2").Value = D4 ActiveWorkbook.ActiveSheet.Range("b4").Value = K4 ActiveWorkbook.ActiveSheet.Range("b5").Value = O4 ActiveWorkbook.ActiveSheet.Range("c8").Value = C6 ActiveWorkbook.ActiveSheet.Range("f8").Value = H6 ActiveWorkbook.ActiveSheet.Range("o8").Value = O6 End Sub TIA |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Date calculation across workbooks / Workbook naming question. | Excel Discussion (Misc queries) | |||
workbooks.open function fails to open an existing excel file when used in ASP, but works in VB. | Excel Programming | |||
Excel 2003 Workbooks.Open with CorruptLoad=xlRepairFile fails on Excel 5.0/95 file due to Chart, with Error 1004 Method 'Open' of object 'Workbooks' failed | Excel Programming | |||
Naming Workbooks and Sheets | Excel Programming | |||
Workbooks.Open / .Open Text - How do you stop the .xls addition? | Excel Programming |