Dear Paul, thanks for the reply.
I am also working on the option number 3, which you have suggested. where is you see, I am assigning a value of path to a veriable "P" and the using "ChDir = P" where value of P is taking from a excel cell. Kindly suggest what may be going wrong in it. On Thu, Mar 31, 2016 at 10:53 PM, Paul Schreiner <schreiner_p...@att.net> wrote: > In Macro1, you specify the full pathname: > Workbooks.Open Filename:= _ > "D:\Phillipins\Automation\Raw Data\CUSTOMIZED REPORT.xlsx" > > in the others, you are not defining the path. > In the first you ARE using: > ChDir "D:\Phillipins\Automation\Raw Data" > but don't need it in Macro1 > > since you're not including the path in macro2 and macro3, they would only > work if you run macro1 first. > > I created (3) similar macros and all worked perfectly: > Sub tOpen1() > Workbooks.Open Filename:="C:\temp\vba\Contract_Distribution.xlsx" > Workbooks("Contract_Distribution.xlsx").Close > End Sub > > Sub tOpen2() > ChDir "C:\temp\vba" > Workbooks.Open "Contract_Distribution.xlsx" > Workbooks("Contract_Distribution.xlsx").Close > End Sub > > Sub tOpen3() > Dim wb1 > ChDir "C:\temp\vba" > Set wb1 = Workbooks.Open("Contract_Distribution.xlsx") > wb1.Close > End Sub > > > > *Paul* > ----------------------------------------- > > > > > > > > *“Do all the good you can,By all the means you can,In all the ways you > can,In all the places you can,At all the times you can,To all the people > you can,As long as ever you can.” - John Wesley* > ----------------------------------------- > > > On Thursday, March 31, 2016 1:04 PM, Secret Shot <secrets...@gmail.com> > wrote: > > > > Dear Expert, > > I am stuck in one very simple macro, and not able to find what's the > problem is. > > Please help me with it as my entire work got stuck because of it. > > I have three macros for same task, where first 1 is working perfectly and > opening the workbook "CUSTOMIZED REPORT.xlsx", But rest 2 are giving me > error of > "Run-time error '1004': Sorry, we couldn't find "CUSTOMIZED REPORT.xlsx" > > Below are the Macros. . . please help is suggesting why I am not able to > use workbook.open function. > > > > Sub Macro1() > > ChDir "D:\Phillipins\Automation\Raw Data" > Workbooks.Open Filename:= _ > "D:\Phillipins\Automation\Raw Data\CUSTOMIZED REPORT.xlsx" > End Sub > Sub Macro2() > Dim Wb1 As Workbook > Dim p As String > p = Workbooks("Data Compiler.xlsm").Worksheets("Macro").Range("I6").Value > ' Value in Cell I6 is D:\Phillipins\Automation\Raw Data > ChDir p > Workbooks.Open "CUSTOMIZED REPORT.xlsx" > Set Wb1 = Workbooks("CUSTOMIZED REPORT.xlsx") > End Sub > > Sub Macro3() > Dim Wb1 As Workbook > Dim p As String > p = Workbooks("Data Compiler.xlsm").Worksheets("Macro").Range("I6").Value > ' Value in Cell I6 is D:\Phillipins\Automation\Raw Data > ChDir p > Set Wb1 = Workbooks.Open("CUSTOMIZED REPORT.xlsx") > End Sub > > > Please help experts . . . > > -- > Pankaj Pandey > Bhopal > -- > 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 https://groups.google.com/group/excel-macros. > For more options, visit https://groups.google.com/d/optout. > > > -- > 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 https://groups.google.com/group/excel-macros. > For more options, visit https://groups.google.com/d/optout. > -- Pankaj Pandey Bhopal -- 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 https://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.