Excel 2016 on Windows 10 using Parallels - Run-time error '53' File not found

dpilr

New Member
Joined
Jun 20, 2018
Messages
3
Hey Guys! 1st Time Posting!

An employee who works with me built some quoting software for us years ago and it will successfully save quotes on either Windows or Mac, but cannot save in Parallels using Windows 10/Excel 2016. We have it setup to access our local server for the next quote # and save into the selected customers folder on our local server. I am doubtful this will ever work because of Parallels causing the confusion, but thought I would see what you guys thought! I get the Run-time error '53' File not found below when trying to save and when I debug, below is the vba error or whatever it is called.

_____________________________________________________________________________


Code:
Sub saveWithQuoteNumber()


Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.ErrorCheckingOptions.BackgroundChecking = False
Application.DisplayStatusBar = False
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False


Dim the_name As Variant
Dim Cust As Variant
Dim dashCheck As Variant
Dim companyName As Variant
Dim the_path As Variant
Dim sep As Variant
Dim Cntr, InvoiceNumber As Integer
Dim the_path_number As Variant
Dim quotedBy As String


With ActiveSheet


If Sheets("Screen Printing").[N1] = 1 Then
MsgBox ("You must select your name in the ""Quoted by"" popup menu before you can save this quote.")
End
Else
quotedBy = Application.VLookup(Sheets("Screen Printing").[N1], Sheets("Values").[R28:T33], 3, False)
End If


Sheets("Quote Sheet").[m4] = Date
Sheets("Emb Quote Sheet").[F4] = Date


Cntr = FreeFile()

If Mid(curdir(), 2, 1) = ":" Then
the_path_number = "z:\Quotes Screen Printing\quotenumber.txt"
the_path = "z:\Quotes Screen Printing"
sep = ""
Else
the_path_number = "Server Jobs:Quotes Screen Printing:quotenumber.txt"
the_path = "Server Jobs:Quotes Screen Printing:"
sep = ":"
End If


If [D2] = "" Then
[B][COLOR=#ff0000]Open the_path_number For Input As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Cntr"]#Cntr[/URL] [/COLOR][/B]
Input [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Cntr"]#Cntr[/URL] , InvoiceNumber
[D2] = InvoiceNumber
Close [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Cntr"]#Cntr[/URL] 
Open the_path_number For Output As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Cntr"]#Cntr[/URL] 
Write [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Cntr"]#Cntr[/URL] , InvoiceNumber + 1
Close
End If


Cust = Sheets("Screen Printing").[A1]


If Cust <> 1 Then
companyName = Application.VLookup(Cust, Sheets("Customers").[A2:L999], 2, False)
salesPerson = Application.VLookup(Cust, Sheets("Customers").[A2:L999], 3, False)
dashCheck = InStr(1, companyName, " - ")

If dashCheck Then
the_name = the_path & Left(companyName, dashCheck - 1) & sep & [D2] & " " & Left(companyName, dashCheck - 1) & " " & salesPerson & " " & [E2] & " " & quotedBy & ".xls"
Else
the_name = the_path & companyName & sep & [D2] & " " & companyName & " " & [E2] & " " & quotedBy & ".xls"
End If


Else
the_name = the_path & "Others" & sep & [D2] & " " & [E2] & " " & quotedBy & ".xls"
End If

ActiveWorkbook.SaveAs Filename:=the_name


End With


Application.Calculate
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.ErrorCheckingOptions.BackgroundChecking = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True


End Sub
_____________________________________________________________________________


Greatly appreciate any/all help!!!

Thanks,
Cody
 
Last edited by a moderator:

Excel Facts

Create a chart in one keystroke
Select the data and press Alt+F1 to insert a default chart. You can change the default chart to any chart type
Re: PLEASE HELP! Excel 2016 on Windows 10 using Parallels - Run-time error '53' File not found

Ok... so we had to enable SNB1 through Windows 10 because our local server is older. We mapped the server directly to the virtual Windows 10 machine. The excel file actually saved once onto our local server with the correct quote # and into the correct customer folder, but that is it. We cannot get it to save correctly again..? Back to getting the run-time error 53.. Any help would be greatly appreciated!!
 
Upvote 0
Re: PLEASE HELP! Excel 2016 on Windows 10 using Parallels - Run-time error '53' File not found

The issue seems to be that you cannot use any sort of shortcuts when opening the actual file on the local server. You have to open Excel 1st, then browse and open the file through Excel. Not ideal, but works for me!!!

Hope this helps someone else!
 
Upvote 0

Forum statistics

Threads
1,223,236
Messages
6,170,915
Members
452,366
Latest member
TePunaBloke

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top