Hi Ashish, Thank you so much for your reply. Just I went trhough your code , and using this code I can only able to extract the single file at a time. Is there any possible way to extract all the pdf's mentioned in excel sheet in a single button click? Regards, Pankaj
On Thursday, April 10, 2014 7:23:53 PM UTC+5:30, ashish wrote: > Declare Function URLDownloadToFile Lib "urlmon" Alias _ > "URLDownloadToFileA" (ByVal pCaller As Long, _ > ByVal szURL As String, _ > ByVal szFileName As String, _ > ByVal dwReserved As Long, _ > ByVal lpfnCB As Long) As Long > > Function downloadfile(URL As String, LocalFilename As String) As Boolean > Dim lngRetVal As Long > lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) > If lngRetVal = 0 Then downloadfile = True > End Function > > Sub download_file() > 'Source - > http://www.cpearson.com/excel/downloadfile.aspx<http://l.facebook.com/l.php?u=http%3A%2F%2Fwww.cpearson.com%2Fexcel%2Fdownloadfile.aspx&h=TAQEit-rd&enc=AZMLNgnrGp9ggxRiSuOJgUHMUCMa4SNXrgVisQk6U6ARpgZeEBLxWw5Sx8-z67s2RYilxKHosxGcUVcrgIDUUOQWpb82ECeR6UWfNwmrADeYx2dP6SgHDr6E25Id8XF8Ntuoeu_ikMOXRWZjTC0b3pxj&s=1> > > Dim sURL As String > Dim LocalFilename As String > Dim filename As String > > Const folder_name = "C:\Documents and Settings\Ashish Koul\Desktop\sample > files\" 'change folder path > > sURL = "http://nseindia.com/content/nsccl/fao_participant_oi_21022014.csv"; > ' change url > filename = "fao_participant_oi_21022014.csv" ' file name > > LocalFilename = folder_name & filename > > Call downloadfile(sURL, LocalFilename) > > End Sub > > > On Thu, Apr 10, 2014 at 5:07 PM, pankaj khairanar > <panka...@gmail.com<javascript:> > > wrote: > >> Dear Expert, >> >> I need your help in below scenario, >> >> I have to extract pdf's files from web application and save those pdf's >> in our local drive with same name. I have all URL's in excel file. >> >> So could you please help to do this? >> >> Please find the attached excel file for your reference! >> >> Best Regards, >> Pankaj Khairnar >> >> -- >> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s >> =TIME(2,DO:IT,N:OW) ! 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 unsubscribe from this group and stop receiving emails from it, send an >> email to excel-macros...@googlegroups.com <javascript:>. >> To post to this group, send email to excel-...@googlegroups.com<javascript:> >> . >> Visit this group at http://groups.google.com/group/excel-macros. >> For more options, visit https://groups.google.com/d/optout. >> > > > > -- > *Regards* > > *Ashish Koul* > > > *Visit* > http://www.excelvbamacros.in > Like Us on > Facebook<http://www.facebook.com/pages/Excel-VBA-Codes-Macros/151803898222297> > Join Us on Facebook <http://www.facebook.com/groups/163491717053198/> > > > P Before printing, think about the environment. > > > -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! 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 unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
