MailMerge Can't Find My File

[loract]

I need help with a file path not opening in a MailMerge I am trying to write. I copied this code from a YouTube video and after some research on the 5174 error "Sorry can't find your file? Was it removed,etc?" I added the line about replacing Chr(13) but I'm still getting the error at the line

oDoc.MailMerge.OpenDataSource sPath

I would really appreciate any help you can give me!

Public Sub LabelMerge()
' From https://www.youtube.com/watch?v=0nBcxc5zt1Q
Dim oWord As Word.Application, oDoc As Word.Document
Dim sPath As String, i As Integer, oHeaders As Range, bPrint As Boolean
Set oHeaders = Range("A1").CurrentRegion.rows(1)
sPath = ActiveWorkbook.FullName
sPath = Trim(sPath)
sPath = Replace(sPath, "Chr(13)", "")

If MsgBox("Print labels out (or send to new document)?", vbOKCancel) = vbOK Then bPrint = True
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add
oWord.Visible = True
oDoc.MailMerge.MainDocumentType = wdMailingLabels
oWord.Dialogs(wdDialogLabelOptions).Show
oDoc.Activate
With oDoc.MailMerge.Fields
    For i = 1 To oHeaders.Columns.Count
        .Add oWord.Selection.Range, oHeaders.Cells(1, i)
        oWord.Selection.TypeText " "
    Next i
End With
oDoc.MailMerge.OpenDataSource sPath
oWord.WordBasic.mailmergepropagatelabel
oDoc.MailMerge.ViewMailMergeFieldCodes = False
oDoc.ActiveWindow.View.ShowFieldCodes = False
If bPrint = True Then
    oDoc.MailMerge.Destination = wdSendToPrinter
    oDoc.MailMerge.Execute
Else
    oDoc.MailMerge.Destination = wdSendToNewDocument
    oDoc.MailMerge.Execute
End If

Set oDoc = Nothing
Set oWord = Nothing



End Sub

 

[Joe4]

I don't understand why you are trying to edit the file name.

sPath = ActiveWorkbook.FullName
sPath = Trim(sPath)
sPath = Replace(sPath, "Chr(13)", "")

I don't think it should be necessary.

What happens if you remove those two lines?

If you add the line in red below your current line, what does it return?

sPath = ActiveWorkbook.FullName
MsgBox sPath

 

[Joe4]

And does it make any difference if you change this line:

oDoc.MailMerge.OpenDataSource sPath

to

oDoc.MailMerge.OpenDataSource Name:=sPath

You may also want to take a look at the various things discussed in this thread here:

How to OpenDataSource for Word MailMerge from Excel Worksheet

I am trying to automate the creation of a word document using the OpenDataSource from MailMerge and using as source a worksheet where previously the data was saved. The problem is that everytime the

stackoverflow.com