SELECT * FROM [PARAM$] IN 'C:\TEMP\100820.xlsx'[Excel 12.0;IMEX=1;]

    
        Set xlApp = CreateObject("Excel.Application")        
        Set xlBook = xlApp.Workbooks
        xlBook.Open FileName:=PathFile, ReadOnly:=False, IgnoreReadOnlyRecommended:=True 
        Set xlSheet = xlApp.Worksheets

        xlSheet("BSC_UNIC_PARAM").Activate
'--------------------------------- вот тут не получается сохранить
        'xlBook.SaveAs FileName:="C:\temp\test.csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
        'xlBook.SaveAs "C:\temp\test.csv" ' 
'-----------------------------------------------------------------------------------------------
        xlBook.Close
        xlApp.Quit

        Set xlSheet = Nothing
        Set xlBook = Nothing
        Set xlApp = Nothing