$$Excel-Macros$$ Request Macro for Merge Text file
Dear All, Please find below is my request to create excel macro. I have a list of files in local directory and file list located in A column and need to merge text file based on the B column listed files. A1---B1 C:\1.txt --- C:\Merge\1.txt C:\2.txt --- C:\3.txt --- C:\4.txt --- C:\Merge\4.txt C:\5.txt --- C:\6.txt --- C:\7.txt --- C:\8.txt --- C:\9.txt --- C:\Merge\9.txt C:\10.txt --- Result: C:\Merge\ 1.txt + Here 1.txt, 2.txt and 3.txt combined and named in 1.txt 4.txt 9.txt Kindly help us to get solution for my request. Thanks & Regards Ganesh -- Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 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) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en.
$$Excel-Macros$$ My Self - Introduction
Hi All, My Name is Ganesh from India - Chennai, I am working with Inscribe - BPO for last 7 years as a Project Leader. In our office most the works processed by ms excel, so it is most important to our daily work. Mr Ashish referred to join this forum and it was more useful and reduced our routing works too Thanks a lot for everyone in this forum :) Thanks & Regards, Ganesh -- 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 excel-macros@googlegroups.com To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
$$Excel-Macros$$ Re: Split tif page using EXCEL VBA
On Tuesday, July 10, 2012 7:34:49 PM UTC+5:30, Ganesh S wrote: > > > Hi All, > > I got the below coding from some other sites.. but while executing this > macro, i got error messages and i can't solve this coding issue. Please > help me to get resolve or any new coding to split tif images thru excel vba > macro. > > "* > > Option Explicit > > Dim ImageFile As Long > Dim BitMapImage As Long > > Private Sub cmdFile_Click() > cmdSplit.Enabled = False > > ' create a open dialog so that you can select > ' the multipage tiff to split > CommonDialog.InitDir = App.Path > CommonDialog.DialogTitle = "Select Multi Page TIFF" > CommonDialog.DefaultExt = "*.TIF" > CommonDialog.Filter = "TIF Files|*.TIF|TIFF Files|*.TIFF" > CommonDialog.ShowOpen > > If (Len(CommonDialog.Filename) > 0) Then > > ' apply the selected image to the Kodak > ' thumbnail control to display icons of the > ' different pages > imgThumb.Image = CommonDialog.Filename > imgThumb.Refresh > > ' use the FreeImage DLL to open the multipage > ' TIFF file, and use the GetPageCount function > ' to determine if there are multiple pages to > ' process > > ImageFile = FreeImage_OpenMultiBitmap(FIF_TIFF, _ > CommonDialog.Filename, False, True) > > If (FreeImage_GetPageCount(ImageFile) > 1) Then > cmdSplit.Enabled = True > End If > > ' update caption bar with filename + page count > Caption = CommonDialog.Filename & " " & _ > FreeImage_GetPageCount(ImageFile) & " page(s)" > > ' close the multi-page TIFF file > Call FreeImage_CloseMultiBitmap(ImageFile) > End If > End Sub > > > Private Sub cmdSplit_Click() > Dim pages As Integer > Dim i As Integer > > ' use the FreeImage DLL to open the multipage > ' TIFF file, and use the GetPageCount function > ' to determine if there are multiple pages to process > ImageFile = FreeImage_OpenMultiBitmap(FIF_TIFF, _ > CommonDialog.Filename, False, True) > > pages = FreeImage_GetPageCount(ImageFile) > > i = 0 > Do While i <= (pages - 1) > ' use the lock page function to copy that > ' page into a new variable BitMapImage > BitMapImage = FreeImage_LockPage(ImageFile, i) > > ' save that page out to a new filename > Call FreeImage_Save(FIF_TIFF, BitMapImage, _ > App.Path & "\page" & i + 1 & ".tif") > > ' unlock the page > Call FreeImage_UnlockPage(ImageFile, i, False) > > i = i + 1 > Loop > > ' close the multi-page TIFF file > Call FreeImage_CloseMultiBitmap(ImageFile) > > ' feedback to user that process is complete > MsgBox pages & " pages, split from " & _ > CommonDialog.Filename, vbInformation, "Complete" > End Sub > > * > > I will expect your views and suggestion to get solution for this coding. > Please let me know if you have any clairifications. > > Thanks & Regards, > Ganesh -- 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 excel-macros@googlegroups.com To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
$$Excel-Macros$$ Split tif page using EXCEL VBA
Hi All, I got the below coding from some other sites.. but while executing this macro, i got error messages and i can't solve this coding issue. Please help me to get resolve or any new coding to split tif images thru excel vba macro. "* Option Explicit Dim ImageFile As Long Dim BitMapImage As Long Private Sub cmdFile_Click() cmdSplit.Enabled = False ' create a open dialog so that you can select ' the multipage tiff to split CommonDialog.InitDir = App.Path CommonDialog.DialogTitle = "Select Multi Page TIFF" CommonDialog.DefaultExt = "*.TIF" CommonDialog.Filter = "TIF Files|*.TIF|TIFF Files|*.TIFF" CommonDialog.ShowOpen If (Len(CommonDialog.Filename) > 0) Then ' apply the selected image to the Kodak ' thumbnail control to display icons of the ' different pages imgThumb.Image = CommonDialog.Filename imgThumb.Refresh ' use the FreeImage DLL to open the multipage ' TIFF file, and use the GetPageCount function ' to determine if there are multiple pages to ' process ImageFile = FreeImage_OpenMultiBitmap(FIF_TIFF, _ CommonDialog.Filename, False, True) If (FreeImage_GetPageCount(ImageFile) > 1) Then cmdSplit.Enabled = True End If ' update caption bar with filename + page count Caption = CommonDialog.Filename & " " & _ FreeImage_GetPageCount(ImageFile) & " page(s)" ' close the multi-page TIFF file Call FreeImage_CloseMultiBitmap(ImageFile) End If End Sub Private Sub cmdSplit_Click() Dim pages As Integer Dim i As Integer ' use the FreeImage DLL to open the multipage ' TIFF file, and use the GetPageCount function ' to determine if there are multiple pages to process ImageFile = FreeImage_OpenMultiBitmap(FIF_TIFF, _ CommonDialog.Filename, False, True) pages = FreeImage_GetPageCount(ImageFile) i = 0 Do While i <= (pages - 1) ' use the lock page function to copy that ' page into a new variable BitMapImage BitMapImage = FreeImage_LockPage(ImageFile, i) ' save that page out to a new filename Call FreeImage_Save(FIF_TIFF, BitMapImage, _ App.Path & "\page" & i + 1 & ".tif") ' unlock the page Call FreeImage_UnlockPage(ImageFile, i, False) i = i + 1 Loop ' close the multi-page TIFF file Call FreeImage_CloseMultiBitmap(ImageFile) ' feedback to user that process is complete MsgBox pages & " pages, split from " & _ CommonDialog.Filename, vbInformation, "Complete" End Sub * I will expect your views and suggestion to get solution for this coding. Please let me know if you have any clairifications. Thanks & Regards, Ganesh -- 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 excel-macros@googlegroups.com To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
$$Excel-Macros$$ Excel Macro Code Request for List files and Move specified directory
Dear all, Please find below is my request to create macro code: Step1: Browse Directory. Step2: List files in above selected directory. Step3: Create directory based on the file Step4: Move files based on its named directory. Please help us to get this process solution. Please let me know if you have any clarifications in this regard. * * -- 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 excel-macros@googlegroups.com directorycreation.xls Description: MS-Excel spreadsheet
$$Excel-Macros$$ Date : Illogical date checking in a entire column
Hi All, I have a table and one column is entered date. Example: B1:B500 I want to check all the dates are entered correctly and if there is any illogical dates within it. Default date format is mm/dd/.. Please help me... with excel macro to solve this as easier way to find.. Please let me know if you did not understand my request.. thanks & regards, ganesh -- 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 excel-macros@googlegroups.com
