Microsoft visual basic runtime error 5174

R3uK

14.4k7 gold badges42 silver badges77 bronze badges

Joe BourneJoe Bourne

1,11410 silver badges18 bronze badges

The error handling can be done like this:

sub Main
Dim savename, FileExt, FileName As String
Dim i, finalrow As Integer
Dim wdvar As Word.Application
Dim wrdDoc As Word.Document

On Error GoTo Main_Error

Set wdvar = CreateObject("Word.Application")
wdvar.Visible = True         

FileName = Environ("UserProfile") & "DesktopReport.docx"
Set wrdDoc = wdvar.Documents.Open(FileName)

With wdvar
    .Visible = True
    .Activate


   .Documents.Add
'...
on error goto 0
exit sub
Main_error
   if err.number = 5174 then
   'you may write something here
else
   'normally a msgbox for the error 
end if
end sub

Additionally 1: if you want to create the file, you may do it from the error handler or you can simply check whether the file is existing. Depends what you want: -> http://www.rondebruin.nl/win/s9/win003.htm

Additionally 2:
do not use integers, but use long, and declare each variable on a separate line, otherwise you declare them as vars.

answered Oct 5, 2016 at 9:57

Personnaly, I use this function :

Public Function File_Exist(sFilePath As String) As Boolean
    Dim sProv As String
    On Error GoTo ErrorHandler
        sProv = Dir(sFilePath, vbDirectory)

        File_Exist = (sProv <> "")
    On Error GoTo 0
    Exit Function

ErrorHandler:
    MsgBox prompt:="Error on test file= " & sFilePath & vbCrLf & _
           Err.Number & vbCrLf & Err.Description
End Function

Where do you need to use it :

If File_Exist(Filename) Then
    Set wrdDoc = wdvar.Documents.Open(Filename)
Else
    With wdvar
        .Visible = True
        .Activate

       .Documents.Add
    End With
End If

answered Oct 5, 2016 at 10:07

When you get a runtime error, keep in mind that it is happening due to programs that are conflicting with each other. The first thing you can do to resolve the problem is to stop these conflicting programs.

• Open Task Manager by clicking Ctrl-Alt-Del at the same time. This will let you see the list of programs currently running.
• Go to the Processes tab and stop the programs one by one by highlighting each program and clicking the End Process buttom.
• You will need to observe if the error message will reoccur each time you stop a process.
• Once you get to identify which program is causing the error, you may go ahead with the next troubleshooting step, reinstalling the application.

Using Control Panel

• For Windows 7, click the Start Button, then click Control panel, then Uninstall a program
• For Windows 8, click the Start Button, then scroll down and click More Settings, then click Control panel > Uninstall a program.
• For Windows 10, just type Control Panel on the search box and click the result, then click Uninstall a program
• Once inside Programs and Features, click the problem program and click Update or Uninstall.
• If you chose to update, then you will just need to follow the prompt to complete the process, however if you chose to Uninstall, you will follow the prompt to uninstall and then re-download or use the application’s installation disk to reinstall the program.

Using Other Methods

• For Windows 7, you may find the list of all installed programs when you click Start and scroll your mouse over the list that appear on the tab. You may see on that list utility for uninstalling the program. You may go ahead and uninstall using utilities available in this tab.
• For Windows 10, you may click Start, then Settings, then choose Apps.
• Scroll down to see the list of Apps and features installed in your computer.
• Click the Program which is causing the runtime error, then you may choose to uninstall or click Advanced options to reset the application.

Virus infection causing runtime error on your computer must immediately be prevented, quarantined or deleted. Make sure you update your virus program and run a thorough scan of the computer or, run Windows update so you can get the latest virus definition and fix.

You might be getting the error because of an update, like the MS Visual C++ package which might not be installed properly or completely. What you can do then is to uninstall the current package and install a fresh copy.

• Uninstall the package by going to Programs and Features, find and highlight the Microsoft Visual C++ Redistributable Package.
• Click Uninstall on top of the list, and when it is done, reboot your computer.
• Download the latest redistributable package from Microsoft then install it.

You might also be experiencing runtime error because of a very low free space on your computer.

• You should consider backing up your files and freeing up space on your hard drive
• You can also clear your cache and reboot your computer
• You can also run Disk Cleanup, open your explorer window and right click your main directory (this is usually C: )
• Click Properties and then click Disk Cleanup

If the error is related to a bad graphics driver, then you may do the following:

• Open your Device Manager, locate the graphics driver
• Right click the video card driver then click uninstall, then restart your computer

If the error you are getting is related to the Internet Explorer, you may do the following:

1. Reset your browser.
• For Windows 7, you may click Start, go to Control Panel, then click Internet Options on the left side. Then you can click Advanced tab then click the Reset button.
• For Windows 8 and 10, you may click search and type Internet Options, then go to Advanced tab and click Reset.
2. Disable script debugging and error notifications.
• On the same Internet Options window, you may go to Advanced tab and look for Disable script debugging
• Put a check mark on the radio button
• At the same time, uncheck the «Display a Notification about every Script Error» item and then click Apply and OK, then reboot your computer.

If these quick fixes do not work, you can always backup files and run repair reinstall on your computer. However, you can do that later when the solutions listed here did not do the job.