+ Reply to Thread
Results 1 to 10 of 10

Macro to select and open filepath stored at worksheet

Hybrid View

Faridwahidi Macro to select and open... 03-30-2014, 10:46 PM
patel45 Re: Macro to select and open... 03-31-2014, 01:47 AM
Faridwahidi Re: Macro to select and open... 03-31-2014, 02:05 AM
patel45 Re: Macro to select and open... 03-31-2014, 02:49 AM
Faridwahidi Re: Macro to select and open... 03-31-2014, 03:35 AM
patel45 Re: Macro to select and open... 03-31-2014, 04:24 AM
Faridwahidi Re: Macro to select and open... 03-31-2014, 04:53 AM
Faridwahidi Re: Macro to select and open... 03-31-2014, 05:22 AM
Faridwahidi Re: Macro to select and open... 03-31-2014, 11:33 PM
patel45 Re: Macro to select and open... 04-01-2014, 04:32 AM
  1. 03-30-2014, 10:46 PM #1
    Faridwahidi is offline
    Valued Forum Contributor
    Join Date
    03-28-2014
    Location
    Kuala Lumpur, Malaysia
    MS-Off Ver
    Excel 2016
    Posts
    702

    Macro to select and open filepath stored at worksheet

    Hi,

    I am just want to enquiry general questions on how to create a macro to select and open various filepath stored at worksheet


    Assume there are 2 columns of filepath in worksheet "File directory"


    The filepath have been stored as follow :
    ---------------------------------------
    1st Range("A1:A25")

    2nd Range("B1:B25")


    The programme will prompt user to select either column "A" or column "B" , then the programme will automatically open all 25 filepath stored at that column


    regards,
    farid.
    Reply With QuoteRegister To Reply
  2. 03-31-2014, 01:47 AM #2
    patel45 is offline
    Forum Expert
    Join Date
    07-15-2012
    Location
    Leghorn, Italy
    MS-Off Ver
    Excel 2010
    Posts
    3,431

    Re: Macro to select and open filepath stored at worksheet 

    Sub Open_files_list()
col = inputbox("Column name ") ' no number, but a b c
For r = 1 To 25
  Iname = cells(r,col)
    Workbooks.Open Filename:=Iname
Next
End Sub
    If solved remember to mark Thread as solved
    Reply With QuoteRegister To Reply
  3. 03-31-2014, 02:05 AM #3
    Faridwahidi is offline
    Valued Forum Contributor
    Join Date
    03-28-2014
    Location
    Kuala Lumpur, Malaysia
    MS-Off Ver
    Excel 2016
    Posts
    702

    Re: Macro to select and open filepath stored at worksheet

    Hi,

    There is run time error '1004':while executing Workbooks.Open FileName:=IName due to file not found


    Is the method of filepath stored at my column correct? worksheet name "File Directory"


    Column A (A1:25)

    Workbooks.Open FileName:=""Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\ATM\ATM Availability - Branch 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\ATM\ATM Availability - Safeguards 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\ATM\ATM Availability - Armour 20140301.xls"
    Workbooks.Open FileName:=""Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\ATM\ATM Availability - NCR 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\ATM\ATM Availability - Wincor 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\ATM\ATM Availability - Diebold 20140301.xls"
    Workbooks.Open FileName:=""Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\ATM\ATM Availability 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\CDM\CDM Availability - Branch 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\CDM\CDM Availability - Safeguards 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\CDM\CDM Availability - Armour 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\CDM\CDM Availability - NCR 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\CDM\CDM Availability - CL Systems 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\CDM\CDM Availability 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\SRM\SRM Availability - Branch 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\SRM\SRM Availability - Safeguards 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\SRM\SRM Availability - Armour 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\SRM\SRM Availability - CL Systems 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\SRM\SRM Availability 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\CQM\CQM Availability - Branch 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\CQM\CQM Availability - Safeguards 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\CQM\CQM Availability - Armour 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\CQM\CQM Availability - Opensys 20140301.xls"
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\CQM\CQM Availability - Interdeals 20140301.xls"
    Workbooks.Open FileName:=""Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\CQM\CQM Availability 20140301.xls"""
    Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\MFK\MFK Availability 20140301.xls"



    Column B (B1:B25)

    Workbooks.Open FileName:=""C:\ATM & SST\eSST Daily Uptime Mar 2014\ATM\ATM Availability - Branch 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\ATM\ATM Availability - Safeguards 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\ATM\ATM Availability - Armour 20140301.xls"
    Workbooks.Open FileName:=""C:\ATM & SST\eSST Daily Uptime Mar 2014\ATM\ATM Availability - NCR 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\ATM\ATM Availability - Wincor 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\ATM\ATM Availability - Diebold 20140301.xls"
    Workbooks.Open FileName:=""C:\ATM & SST\eSST Daily Uptime Mar 2014\ATM\ATM Availability 20140301.xls"""
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\CDM\CDM Availability - Branch 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\CDM\CDM Availability - Safeguards 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\CDM\CDM Availability - Armour 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\CDM\CDM Availability - NCR 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\CDM\CDM Availability - CL Systems 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\CDM\CDM Availability 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\SRM\SRM Availability - Branch 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\SRM\SRM Availability - Safeguards 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\SRM\SRM Availability - Armour 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\SRM\SRM Availability - CL Systems 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\SRM\SRM Availability 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\CQM\CQM Availability - Branch 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\CQM\CQM Availability - Safeguards 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\CQM\CQM Availability - Armour 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\CQM\CQM Availability - Opensys 20140301.xls"
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\CQM\CQM Availability - Interdeals 20140301.xls"
    Workbooks.Open FileName:=""C:\ATM & SST\eSST Daily Uptime Mar 2014\CQM\CQM Availability 20140301.xls"""
    Workbooks.Open FileName:="C:\ATM & SST\eSST Daily Uptime Mar 2014\MFK\MFK Availability 20140301.xls"




    Regards,
    Farid
    Reply With QuoteRegister To Reply
  4. 03-31-2014, 02:49 AM #4
    patel45 is offline
    Forum Expert
    Join Date
    07-15-2012
    Location
    Leghorn, Italy
    MS-Off Ver
    Excel 2010
    Posts
    3,431

    Re: Macro to select and open filepath stored at worksheet

    attach please your file with the code
    Reply With QuoteRegister To Reply
  5. 03-31-2014, 03:35 AM #5
    Faridwahidi is offline
    Valued Forum Contributor
    Join Date
    03-28-2014
    Location
    Kuala Lumpur, Malaysia
    MS-Off Ver
    Excel 2016
    Posts
    702

    Re: Macro to select and open filepath stored at worksheet

    Hi,

    I attach the summary file and sample of 3 files to be opened

    eSST Daily Uptime Summary Mar 2014

    ATM Availability - Branch 20140301.xls"
    ATM Availability - Safeguards 20140301.xls"
    ATM Availability - Armour 20140301.xls"

    filepath for column A represent orginal desktop while column B for others desktop (assume network drive defaulted to "Y")
    Attached Files Attached Files
    Reply With QuoteRegister To Reply
  6. 03-31-2014, 04:24 AM #6
    patel45 is offline
    Forum Expert
    Join Date
    07-15-2012
    Location
    Leghorn, Italy
    MS-Off Ver
    Excel 2010
    Posts
    3,431

    Re: Macro to select and open filepath stored at worksheet

    you have to put in column A and B only file name
    not Workbooks.Open FileName:="Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\ATM\ATM Availability - Safeguards 20140301.xls"
    but Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\ATM\ATM Availability - Safeguards 20140301.xls
    Reply With QuoteRegister To Reply
  7. 03-31-2014, 04:53 AM #7
    Faridwahidi is offline
    Valued Forum Contributor
    Join Date
    03-28-2014
    Location
    Kuala Lumpur, Malaysia
    MS-Off Ver
    Excel 2016
    Posts
    702

    Re: Macro to select and open filepath stored at worksheet

    hI,

    i already make changes, to

    Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\ATM\ATM Availability - Safeguards 20140301.xls

    but still unable to open the file. file not found.


    but opening the file using VBA script Workbooks.Open FileName:=""Y:\eSST Daily Uptime\eSST Daily Uptime Mar 2014\ATM\ATM Availability - Branch 20140301.xls" is ok. ( just to ensure file is stored in correct path)




    regards,
    farid
    Reply With QuoteRegister To Reply
  8. 03-31-2014, 05:22 AM #8
    Faridwahidi is offline
    Valued Forum Contributor
    Join Date
    03-28-2014
    Location
    Kuala Lumpur, Malaysia
    MS-Off Ver
    Excel 2016
    Posts
    702

    Re: Macro to select and open filepath stored at worksheet

    Ok great,

    thank you
    Reply With QuoteRegister To Reply
  9. 03-31-2014, 11:33 PM #9
    Faridwahidi is offline
    Valued Forum Contributor
    Join Date
    03-28-2014
    Location
    Kuala Lumpur, Malaysia
    MS-Off Ver
    Excel 2016
    Posts
    702

    Re: Macro to select and open filepath stored at worksheet

    Hi,

    I have modified your code but, Only the 1st filepath open, the next filepath unable to open,


    Sub Open_files_list()

    Dim IName As String
    Dim Column As String
    Dim r As Integer


    Sheets("Filepath").Select

    Column = InputBox("Please Select Filepath Column") ' no number, but a b c

    For r = 1 To 25
    IName = Cells(r, Column)
    Workbooks.Open FileName:=IName
    Next r

    End Sub


    Seek your assistance, please
    Reply With QuoteRegister To Reply
  10. 04-01-2014, 04:32 AM #10
    patel45 is offline
    Forum Expert
    Join Date
    07-15-2012
    Location
    Leghorn, Italy
    MS-Off Ver
    Excel 2010
    Posts
    3,431

    Re: Macro to select and open filepath stored at worksheet

    column is a reserved word, you can not use it for variable
    Reply With QuoteRegister To Reply
+ Reply to Thread
« Previous Thread | Next Thread »

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. [SOLVED] macro to open a pdf stored on servier
    By dantray02 in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 01-29-2014, 09:15 AM
  2. [SOLVED] MACRO: how to activate worksheet with file name stored as variant
    By AnnieMcken in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 09-13-2013, 10:30 AM
  3. [SOLVED] Trying to get the filepath on "Open", but get filepath of a temporary file instead
    By ianpwilliams in forum Excel Programming / VBA / Macros
    Replies: 18
    Last Post: 08-22-2013, 12:27 AM
  4. [SOLVED] Open a batch file from the location where the worksheet is stored
    By grid in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 04-20-2013, 01:38 PM
  5. [SOLVED] Copying files from a selected filepath to a filepath mentioned in a worksheet's cell
    By subbby in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 09-10-2012, 03:59 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Forum Rules


Search Engine Friendly URLs by vBSEO 3.6.0 RC 1