Awaited for your reply...
I have attached sample file Lakshman Prasad ----- Forwarded Message ----- From: dguillett1 <[email protected]> To: LAKSHMAN PRASAD <[email protected]> Sent: Thursday, July 12, 2012 5:37 PM Subject: Re: Split Workbook into Multiple Worksheets If you decide to hire me to do this @ $75 hourly, provide a proper file with significant data for testing. Don Guillett Microsoft Excel Developer SalesAid Software [email protected] From: LAKSHMAN PRASAD Sent: Thursday, July 12, 2012 1:15 AM To: dguillett1 Subject: Re: Split Workbook into Multiple Worksheets Dear Sir, Absulilty right, and one more thing as you can see my mail I am try to get reply from group but no one reply. Only you are the person who response, thank you very much. Lakshman Prasad Manager (Finance) GAURSONS INDIA LIMITED Ph: +91 12 456777 Mob. No. 9582279261 Website: http://www.gaursonsindia.com/ ________________________________ From: dguillett1 <[email protected]> To: LAKSHMAN PRASAD <[email protected]> Sent: Thursday, July 12, 2012 3:47 AM Subject: Re: Split Workbook into Multiple Worksheets As I understand it you want to split the active workbook into a separate wb for each sheet in the workbook. Then you want to list the wb and the file size (and more?) for each split up file?? This would require a bit of programming for which you may want to offer to hire one of us. Your suppliied wb did not have any data or formulas, etc. Don Guillett Microsoft Excel Developer SalesAid Software [email protected] From: LAKSHMAN PRASAD Sent: Wednesday, July 11, 2012 12:43 AM To: [email protected] Subject: Fw: Split Workbook into Multiple Worksheets Dear Sir, Can i know why no one respond my query? Is this query is meaning less or anything else........................? Regards Lakshman Prasad ----- Forwarded Message ----- From: LAKSHMAN PRASAD <[email protected]> To: Rajan Verma <[email protected]> Cc: "[email protected]" <[email protected]> Sent: Tuesday, July 10, 2012 11:40 AM Subject: Fw: Split Workbook into Multiple Worksheets ----- Forwarded Message ----- From: LAKSHMAN PRASAD <[email protected]> To: "[email protected]" <[email protected]> Cc: NOORAIN ANSARI <[email protected]> Sent: Monday, July 9, 2012 1:38 PM Subject: Split Workbook into Multiple Worksheets Dear Expert, I have two macro 1 for Split Workbook into Multiple Worksheets. And 2 for find out how much memory is being used by a excel files located in particular location(posted by Mr. NOORIAN). I want to joint both macro into one macro so that I can find out how much memory is being used by a excel sheet in particular excel file. Step 1 select a file. Step 2 crate a folder in a drive like C:\ Step 3 Split Workbook into Multiple Worksheets in located drive folder (Run macro 1) Step 4 Run 2 macro for collecting located drive folder file size. Step 5 after collecting file size information delete that folder. Macro 1. Sub NewWBS() Dim wbNew As Workbook Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Copy Set wbNew = ActiveWorkbook wbNew.SaveAs ThisWorkbook.Path & "/" & ws.Name wbNew.Close Next ws End Sub Macro 2. Sub file_names_in_folder() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim fldpath Dim fld As Object, fil As Object, fso As Object, j As Long With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Choose the folder" .Show End With On Error Resume Next fldpath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\" If fldpath = False Then MsgBox "Folder Not Selected" Else Workbooks.Add Cells(1, 1).Value = fldpath Cells(3, 1).Value = "Path" Cells(3, 2).Value = "Dir" Cells(3, 3).Value = "Name" Cells(3, 4).Value = "Size" Cells(3, 5).Value = "Type" Cells(3, 6).Value = "Date Created" Cells(3, 7).Value = "Date Last Access" Cells(3, 8).Value = "Date Last Modified" j = 4 Set fso = CreateObject("scripting.filesystemobject") Set fld = fso.getfolder(fldpath) For Each fil In fld.Files Cells(j, 1).Value = fil.Path Cells(j, 2).Value = Left(fil.Path, InStrRev(fil.Path, "\")) Cells(j, 3).Value = fil.Name Cells(j, 4).Value = fil.Size Cells(j, 5).Value = fil.Type Cells(j, 6).Value = fil.DateCreated Cells(j, 7).Value = fil.DateLastAccessed Cells(j, 8).Value = fil.DateLastModified j = j + 1 Next End If Range("a1").Font.Size = 9 ActiveWindow.DisplayGridlines = False Range("a4:h" & Range("a4").End(xlDown).Row).Font.Size = 9 Range("a3:h3").Interior.Color = vbCyan Columns("c:h").AutoFit Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub Lakshman Prasad Manager (Finance) GAURSONS INDIA LIMITED -- -- FORUM RULES (986+ 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 [email protected] To unsubscribe, send a blank email to [email protected] -- -- FORUM RULES (986+ 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 [email protected] To unsubscribe, send a blank email to [email protected] -- -- FORUM RULES (986+ 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 [email protected] To unsubscribe, send a blank email to [email protected]
