Re: $$Excel-Macros$$ List all Excel Workbooks
Hi Don That would be great. I am on 2000 at the moment but should be upgrading to 2003 in a few days. Regards Charlie Harris On Sat, Dec 24, 2011 at 2:40 AM, dguillett1 dguille...@gmail.com wrote: Charlie, what is your excel version. I have one for xl2003 not updated for xl2007, that searches all of my c drive and makes a list of 4000+ files quickly. You could change to F:\ and it will search that one with sub folders files *name* *Date* *Size* *Full file Name* CabooseAddressVBA1 12/18/2011 06:39 145920 C:\emails\CabooseAddressVBA1.xls You may also *DOUBLE CLICK ON ROW 4 TO SORT BY THAT COLUMN* *DOUBLE CLICK ON Filename ROW in ANY COLUMN to OPEN that file* *Select Filename Row in Any Column click Kill button to delete file and row* Don Guillett SalesAid Software dguille...@gmail.com *From:* Cab Boose swch...@gmail.com *Sent:* Thursday, December 22, 2011 3:45 PM *To:* excel-macros@googlegroups.com *Subject:* $$Excel-Macros$$ List all Excel Workbooks Hi There are plenty of solutions for listing open excel files. I would like to list all excel workbooks on my C: and F: drives. They are all over the place. My bad housekeeping! How do I get the complete address for each workbook ? either with a hyperlink or not. But do need to print out the list. Using Excel 2000 at the moment but soon hopefully to upgrade to 2003 Thanks Merry Christmas to all regards Charlie -- FORUM RULES (934+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (934+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (934+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com
Re: $$Excel-Macros$$ List all Excel Workbooks
OK. Respond to this and let me know. Don Guillett SalesAid Software dguille...@gmail.com From: Cab Boose Sent: Friday, December 23, 2011 3:58 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ List all Excel Workbooks Hi Don That would be great. I am on 2000 at the moment but should be upgrading to 2003 in a few days. Regards Charlie Harris On Sat, Dec 24, 2011 at 2:40 AM, dguillett1 dguille...@gmail.com wrote: Charlie, what is your excel version. I have one for xl2003 not updated for xl2007, that searches all of my c drive and makes a list of 4000+ files quickly. You could change to F:\ and it will search that one with sub folders files name Date Size Full file Name CabooseAddressVBA1 12/18/2011 06:39 145920 C:\emails\CabooseAddressVBA1.xls You may also DOUBLE CLICK ON ROW 4 TO SORT BY THAT COLUMN DOUBLE CLICK ON Filename ROW in ANY COLUMN to OPEN that file Select Filename Row in Any Column click Kill button to delete file and row Don Guillett SalesAid Software dguille...@gmail.com From: Cab Boose Sent: Thursday, December 22, 2011 3:45 PM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ List all Excel Workbooks Hi There are plenty of solutions for listing open excel files. I would like to list all excel workbooks on my C: and F: drives. They are all over the place. My bad housekeeping! How do I get the complete address for each workbook ? either with a hyperlink or not. But do need to print out the list. Using Excel 2000 at the moment but soon hopefully to upgrade to 2003 Thanks Merry Christmas to all regards Charlie -- FORUM RULES (934+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (934+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (934+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (934+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum
$$Excel-Macros$$ List all Excel Workbooks
Hi There are plenty of solutions for listing open excel files. I would like to list all excel workbooks on my C: and F: drives. They are all over the place. My bad housekeeping! How do I get the complete address for each workbook ? either with a hyperlink or not. But do need to print out the list. Using Excel 2000 at the moment but soon hopefully to upgrade to 2003 Thanks Merry Christmas to all regards Charlie -- FORUM RULES (934+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com
Re: $$Excel-Macros$$ List all Excel Workbooks
Hi Charlie, Please check and try this code, if it helps... '---standard Module- Sub *GenerateList*() ' sitiVi / jakarta 23 Dec 2011 ' in answering: ' http://groups.google.com/group/ _ ' excel-macros/browse_thread/thread/9dbda650f1d09d65# ' Dim ArDir As Variant, iDir As Integer ' please edit this list of Path.. ArDir = Array(*C:\MyData, F\, E:\, D\xFolder\yFolder*) ' ~~ Application.Calculation = xlCalculationManual Application.ScreenUpdating = False For iDir = LBound(ArDir) To UBound(ArDir) Call ListFiles(ArDir(iDir)) Next iDir Columns(A:B).EntireColumn.AutoFit Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Private Sub *ListFiles*(ByVal SpecifiedDir As String) ' sitiVi / jakarta 23 Dec 2011 ' in answering: ' http://groups.google.com/group/ _ ' excel-macros/browse_thread/thread/9dbda650f1d09d65# ' Dim vFName As Variant, RowN As Long RowN = Cells(1).CurrentRegion.Rows.Count If RowN = 1 Then RowN = 0 With Application.FileSearch .NewSearch .LookIn = SpecifiedDir .SearchSubFolders = True .FileType = msoFileTypeExcelWorkbooks REM .Execute If .Execute 0 Then For Each vFName In .FoundFiles RowN = RowN + 1 ActiveSheet.Cells(RowN, 1).Value = SpecifiedDir ActiveSheet.Cells(RowN, 2).Value = vFName Next End If End With End Sub '--end of code - Looking forward to hear if this code works (or not).. Thx, Best regards Wassalamualaikum wr wb. siti Vi On Fri, Dec 23, 2011 at 4:45 AM, Cab Boose swch...@gmail.com wrote: Hi There are plenty of solutions for listing open excel files. I would like to list all excel workbooks on my C: and F: drives. They are all over the place. My bad housekeeping! How do I get the complete address for each workbook ? either with a hyperlink or not. But do need to print out the list. Using Excel 2000 at the moment but soon hopefully to upgrade to 2003 Thanks Merry Christmas to all regards Charlie -- FORUM RULES (934+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com
Re: $$Excel-Macros$$ List all Excel Workbooks
Hi After about 3 minutes (30Gig on hardrives) it came up with: Run-time error '-2144010224 (803500 10)': Method 'Execute' of object 'FileSearch' failed Your comments would be appreciated. Thanks Charlie Harris On Fri, Dec 23, 2011 at 5:28 PM, siti Vi setiyowati.d...@gmail.com wrote: Hi Charlie, Please check and try this code, if it helps... '---standard Module- Sub *GenerateList*() ' sitiVi / jakarta 23 Dec 2011 ' in answering: ' http://groups.google.com/group/ _ ' excel-macros/browse_thread/thread/9dbda650f1d09d65# ' Dim ArDir As Variant, iDir As Integer ' please edit this list of Path.. ArDir = Array(*C:\MyData, F\, E:\, D\xFolder\yFolder*) ' ~~ Application.Calculation = xlCalculationManual Application.ScreenUpdating = False For iDir = LBound(ArDir) To UBound(ArDir) Call ListFiles(ArDir(iDir)) Next iDir Columns(A:B).EntireColumn.AutoFit Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Private Sub *ListFiles*(ByVal SpecifiedDir As String) ' sitiVi / jakarta 23 Dec 2011 ' in answering: ' http://groups.google.com/group/ _ ' excel-macros/browse_thread/thread/9dbda650f1d09d65# ' Dim vFName As Variant, RowN As Long RowN = Cells(1).CurrentRegion.Rows.Count If RowN = 1 Then RowN = 0 With Application.FileSearch .NewSearch .LookIn = SpecifiedDir .SearchSubFolders = True .FileType = msoFileTypeExcelWorkbooks REM .Execute If .Execute 0 Then For Each vFName In .FoundFiles RowN = RowN + 1 ActiveSheet.Cells(RowN, 1).Value = SpecifiedDir ActiveSheet.Cells(RowN, 2).Value = vFName Next End If End With End Sub '--end of code - Looking forward to hear if this code works (or not).. Thx, Best regards Wassalamualaikum wr wb. siti Vi On Fri, Dec 23, 2011 at 4:45 AM, Cab Boose swch...@gmail.com wrote: Hi There are plenty of solutions for listing open excel files. I would like to list all excel workbooks on my C: and F: drives. They are all over the place. My bad housekeeping! How do I get the complete address for each workbook ? either with a hyperlink or not. But do need to print out the list. Using Excel 2000 at the moment but soon hopefully to upgrade to 2003 Thanks Merry Christmas to all regards Charlie -- FORUM RULES (934+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (934+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com
