Outlook VBA - сохранить файл Excel с темой электронной почты

Question

Я создаю макрос для экспорта таблицы HTML, встроенной в электронную почту Outlook, в Excel.

Экспортирование выполняется нормально, однако при сохранении возникают проблемы.Я хотел бы сохранить новый файл в определенной папке, а имя должно быть темой письма.

У меня проблемы с x FilePath = "\ xxx \ docs \ Testing \"& strSubject part.

Если я использую определенное имя файла (например, \ xxx \ docs \ Testing \ test.csv "), файл сохраняется с этим именем без проблем.Однако, если я пытаюсь сделать его динамичным, используя тему письма, файл не сохраняется.Есть мысли?

Ниже весь код:

Код:

Sub ImportTableToExcel()
Dim xMailItem As MailItem
    Dim xTable As Word.Table
    Dim xDoc As Word.Document
    Dim xExcel As Excel.Application
    Dim xWb As Workbook
    Dim xWs As Worksheet
    Dim I As Integer
    Dim xRow As Integer
    Dim xFilePath As String
    Dim strSubject As String

    On Error Resume Next
    Set xExcel = New Excel.Application
    Set xWb = xExcel.Workbooks.Add
    xExcel.Visible = True
    Set xWs = xWb.Sheets(1)
    xRow = 1


    For Each xMailItem In Application.ActiveExplorer.Selection
        Set xDoc = xMailItem.GetInspector.WordEditor
        For I = 1 To xDoc.Tables.count
            Set xTable = xDoc.Tables(I)
            xTable.Range.Copy
            xWs.Paste
            xRow = xRow + xTable.Rows.count + 1
            xWs.Range("A" & CStr(xRow)).Select
        Next
    Next

    strSubject = xMailItem.Subject  
    xFilePath = "\\xxx\docs\Testing\" & strSubject

    xWs.SaveAs xFilePath
    xWs.Close
End Sub