met vba automatische bestandsnaam bij opslaan word naar excel

[jlu]

Beste mensen,

Ik heb in word een bestand gemaakt. Deze moet overgepompt worden naar excel voor verdere dataverwerking.
Dit heb ik voor gedaan door onderstaande te gebruiken.

Sub kopie_naar_excel()

 
  On Error Resume Next
  Set XL = GetObject(, "Excel.Application")
  If Err.Number > 0 Then Set XL = CreateObject("Excel.Application")
  Selection.WholeStory
  Selection.Copy
  With XL
    .DisplayAlerts = False
    .Workbooks.Add
    With .ActiveWorkbook
      .Sheets(1).Paste .Sheets(1).Range("B2")
      .SaveAs "C:\Documents and Settings\jlu\desktop\test nieuw sjabloon word - excel\test111.xls"
      .Close
    End With
  End With
End Sub

Nu wil ik alleen dat de bestandsnaam automatisch wordt gegenereerd vanuit een tabel in word (wat mijn bronbestand is) bijv tabel 1 rij 1 kolom 2 + kolom 3.

Kan iemand hiervan of van iets dergelijks een voorbeeldje plaatsen dan kan ik zelf wel even gaan uitvogelen hoe ik dit in mijn geval kan gebruiken.

Alvast bedankt,

Jan