Error 1004 - Excel cannot access "filename". The document may be read-only or encrypted

[tigerdel]

Good morning experts
I am trying to get a macro to open the users Onedrive folder and allow them the option of which file to open but I keep getting the error in the picture.
The folder is neither read-only or encrypted
The code I tried is:
Workbooks.Open ("C:\Users\" & Environ("UserName") & "\OneDrive\SIT")
Am I missing something??
Many thanks for looking

 

[sykes]

Just a thought - do you need the file extension, too?
Workbooks.Open ("C:\Users\" & Environ("UserName") & "\OneDrive\SIT.xlsx")

One other thing; the user needs to be logged into OneDrive, to access files, if I remember correctly.
Not sure whether this is the case on a network, though.

 

[tigerdel]

OK I guess I am approaching this all wrong
What I am trying to do is, have a button that when click will go to a specific folder in the users OneDrive and allow them to open a csv file
I already have the code to pull the data from the csv file into a specific sheet but I want the button to go to where the csv file is stored so they don't need to go searching for the folder each time

 

[sykes]

This should work; the only thing I can't be sure about is the path to the folder - especially concerning the username. This is because I have an odd file setup, whereby my OneDrive folder isn't stored under my username, so you may need to tweak this a little.

Sub opn()
Dim op_fl As String

    With Application.FileDialog(msoFileDialogOpen)
         .InitialFileName = "C:\Users\" & Environ("UserName") & "\OneDrive\SIT"
         .Filters.Clear
        .Filters.Add "CSV Files", "*.csv"
        If .Show = -1 Then
            op_fl = .SelectedItems(1)
        End If
    End With
    Workbooks.Open op_fl
End Sub

You just need to bolt it onto a command button.

HTH

 

[tigerdel]

Brilliant Thank You - Works perfectly

 

[sykes]

Hurrah!
Thanks for the feedback.