VBA Path Issue

[dwool40]

I am running the 3 macros below on many computers with no issue. However, on one computer the Downloads module returns a file not found error (53). It's the same path! Is there some reason I can't think of that this would be happening?

Sub Copynotice()
Dim wb1 As Workbook, wb2 As Workbook
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set wb1 = ThisWorkbook
'enter correct path to Downloads folder
Set wb2 = Workbooks.Open("C:\Users\User1\Dropbox\z_sync_do_not_delete\Downloads\DataGridExport.xlsx")
wb2.Sheets("Report1").Range("E2:E120").Copy
wb1.Sheets("Notice").Range("D3").PasteSpecial Paste:=xlPasteValues
wb2.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub CopyUA()
Dim wb1 As Workbook, wb2 As Workbook
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set wb1 = ThisWorkbook
'enter correct path to Downloads folder
Set wb2 = Workbooks.Open("C:\Users\User1\Dropbox\z_sync_do_not_delete\Downloads\UnitAvailabilityDetails" & Format(Date, "mm_dd_yyyy") & ".xlsx")
wb2.Sheets("Report1").Range("A10:R300").Copy
wb1.Sheets("Unit Availability").Range("A8").PasteSpecial Paste:=xlPasteValues
wb2.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub Downloads()
'enter correct path to Downloads folder
Kill "C:\Users\User1\Dropbox\z_sync_do_not_delete\Downloads\*.*"
End Sub

 

[JEC]

"C:\Users\User1\Dropbox\z_sync_do_not_delete\Downloads\DataGridExport.xlsx"

The user is the same?

 

[dwool40]

"C:\Users\User1\Dropbox\z_sync_do_not_delete\Downloads\DataGridExport.xlsx"

The user is the same?

Yes. All 3 macros have the same path to the downloads folder. The Copynotice and CopyUA macros work fine. The Downloads macro (same path) returns the 53 error.

 

[EdNerd]

Have you tried specifically naming the files to delete, instead of using *.*?
Does that computer have Delete permissions in that folder?

 

[dwool40]

Have you tried specifically naming the files to delete, instead of using *.*?
Does that computer have Delete permissions in that folder?

It does have delete permissions. It's the Downloads folder.

 

[EdNerd]

Did you try specifying the files? Along the lines of:

Kill "C:\Users\User1\Dropbox\z_sync_do_not_delete\Downloads\DataGridExport.xlsx"

Have you tried some other method, like FSO, to see if it makes a difference?

File and Folder Procedures - VBA Visual Basic for Applications (Microsoft) FAQ - Tek-Tips

www.tek-tips.com

 

[dwool40]

I switched *.* to *.xl* to get the result I needed. It's a newer computer so IT must have changed permissions.

 

[EdNerd]

I hate it when they do that!!