Opening file, alternative paths

Ask Question Forum:

Model Library:2025-02-08 Updated:A.I. model is online for auto reply question page

Show

ASK RECENT

Opening file, alternative paths

Asked by Seamus2626

at 2024-07-17 02:35:11

Point:500 Replies:6 POST_ID:829003USER_ID:11690

Topic:

Microsoft Excel Spreadsheet Software;;

Hi,

A different user has a slightly different path to a spreadsheet as another

User 1
"x:Morris InfoME_Morris_ProjectME Downloads"
User 2
"x:SPMMorris InfoME_Morris_ProjectME Downloads"

So i am using "Workbooks.Open Filename:= _"

Is there a line of code to say, if path "x:Morris InfoME_Morris_ProjectME Downloads" not found, then try path

"x:SPMMorris InfoME_Morris_ProjectME Downloads"

Many thanks

Expert: duncanb7 replied at 2024-07-17 06:24:44

Thanks for your points

Have a nice day

Duncan

Author: Seamus2626 replied at 2024-07-17 06:23:05

Thanks Duncan!

Accepted Solution

Expert: duncanb7 replied at 2024-07-17 03:30:32

500 points EXCELLENT

Ignore in last previous post, try this with directory check from vbDirectory at
http://www.techonthenet.com/excel/formulas/dir.php

sub test()Filename="example.xls"localfile="x:Morris InfoME_Morris_ProjectME Downloads"localfile2="x:SPMME_Morris_ProjectME Downloads"If Dir(localfile ,vbDirectory) <> "" Then    MsgBox "File exists."'Do your code here Workbooks.Open Filename:=localfile & ""  & FilenameElse    MsgBox "File doesn't exist."'Do you cod hereWorkbooks.Open Filename:= localfile2 & "" & FilenameEnd IfEnd Sub

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:

Select All Code

Expert: duncanb7 replied at 2024-07-17 03:27:19

Try this
Duncan

sub test()Filename="example.xls"localfile="x:Morris InfoME_Morris_ProjectME Downloads"localfile2="x:SPMME_Morris_ProjectME Downloads"If Dir(localfile & "" & Filename) <> "" Then    MsgBox "File exists."'Do your code here Workbooks.Open Filename:=localfile & ""  & FilenameElse    MsgBox "File doesn't exist."'Do you cod hereWorkbooks.Open Filename:= localfile2 & "" & FilenameEnd IfEnd Sub

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:

Select All Code

Author: Seamus2626 replied at 2024-07-17 03:21:35

Thanks Duncan,

When running the code, its is skipping to

Else

Workbooks.Open Filename:=localfile2 & "" & Filename

Whereas localfile is available, and should be opening, it is skipping to localfile2 which is not available from my PC!

Thanks

Expert: duncanb7 replied at 2024-07-17 02:56:01

You need Dir() function on VBA to check the file path existing or not
before switching to other file path
Duncan

sub test()Filename="example.xls"localfile="x:Morris InfoME_Morris_ProjectME Downloads"localfile2="x:SPMME_Morris_ProjectME Downloads"If Dir(localfile) <> "" Then    MsgBox "File exists."'Do your code here Workbooks.Open Filename:=localfile & ""  & FilenameElse    MsgBox "File doesn't exist."'Do you cod hereWorkbooks.Open Filename:= localfile2 & "" & FilenameEnd IfEnd Sub

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:

Select All Code

新聞財經娛樂♬資訊 News Economy

About Us|Service|Pricing

Stock Index全球即時指數期貨:

&nbps;

News即時新聞:↓

News即時新聞:↑

On Balance Volume (OBV):

Youtube Video♬ Sharing by members:↓

Youtube Video♬ Sharing by members:↑

Ask Question Forum:

Opening file, alternative paths

Your Information

Members/Profolio