Salvataggio del foglio di lavoro Excel in file CSV con nome file + nome foglio di lavoro utilizzando VB

Sono molto nuovo con la codifica VB, sto cercando di salvare più fogli di lavoro dei file Excel su csv, non so farlo per più fogli, ma ho trovato un modo per fare un singolo file. Ho trovato il codice su questo sito che è molto utile per quello che sto cercando di fare, solo il problema è che i file vengono salvati con il nome del foglio di lavoro, ma sto cercando di salvarli con il nome originale del file e del foglio di lavoro come filename_worksheet name , I ho provato a farlo io stesso ma continuo a ricevere errori, potresti per favore avvisare cosa sto facendo male?

Il codice che sto usando è il seguente:

  Public Sub SaveWorksheetsAsCsv() Dim WS As Excel.Worksheet Dim SaveToDirectory As String Dim CurrentWorkbook As String Dim CurrentFormat As Long CurrentWorkbook = ThisWorkbook.FullName CurrentFormat = ThisWorkbook.FileFormat ' Store current details for the workbook SaveToDirectory = "H:\test\" For Each WS In ThisWorkbook.Worksheets WS.SaveAs SaveToDirectory & WS.Name, xlCSV Next Application.DisplayAlerts = False ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat Application.DisplayAlerts = True ' Temporarily turn alerts off to prevent the user being prompted ' about overwriting the original file. End Sub