Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
search facility
Hi Everyone.
Ive got some code below from some helpful chap on this forum which i use to search through a whole range of files in a folder, the problem is that it takes rather a long time with it opening everysingle file. Is there any way for it to do the same thing but with out opening each file? Simple instructions would be preferable, even better if it can be a quick ammendment to the code below. Thankyou for your help. Set basebook = ThisWorkbook rnum = 1 Do While FNames < "" If Left(FNames, 1) = "0" Then Set mybook = Workbooks.Open(FNames) Range("A65000").End(xlUp).Select n = ActiveCell.Row Set sourceRange = mybook.Worksheets(1).Range _ ("a1", "p" & n) a = sourceRange.Rows.Count Set destrange = basebook.Worksheets(1).Cells _ (rnum, 1) sourceRange.Copy destrange rnum = rnum + a mybook.Close False End If FNames = Dir() Loop |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
List Box with lookup facility | Excel Worksheet Functions | |||
Is there a 'floating key/ legend' facility? | Excel Discussion (Misc queries) | |||
Spelling Facility | New Users to Excel | |||
how do i use LOTUS combine facility in Excel | Excel Discussion (Misc queries) | |||
Set up an Ordering facility for a Buying Dept | Excel Programming |