macro send to ecxel

[#1]

Hello,
I want a macro that allows me to save the active list in an excel file or txt

for example a list contain the values ?? AB and C goal is to register A1 B1 C1 over AB and C.

thank you

I found the code:

Sub ttttt
Set xlApp = CreateObject ("Excel.Application")
Set XLDOC XLApp.Workbooks.Open = ("D: \ tt.xls)
'xlApp.Visible = True

'This Is The qvw tab
Set s = ActiveDocument.Sheets ("Copy of Main")
ActiveDocument.Sheets ("Copy of Main"). Activate
ActiveDocument.ClearCache
'ActiveDocument.GetApplication.WaitForIdle
'ActiveDocument.GetSheetObject ("LB07"). Restore
ActiveDocument.GetSheetObject ("LB07"). CopyTableToClipboard true

'This Is The sheet in Excel
Set xlSheet XLDOC.Worksheets = ("Sheet1")
XLSheet.Paste XLSheet.Range ("A2")



Set xlApp = Nothing
= Nothing Set XLDOC
= Nothing Set xlSheet


End Sub

I manage to register the list in Excel to read it all here but not the active list.
plus I can not excel opens (read only) is there not a way to close it.

Thank you