разделить по разделителю для всей книги Excel

Question

Я объединил несколько файлов CSV в одну книгу Excel. Теперь я хочу разделить дату в рабочей книге точкой с запятой. Моя проблема в том, что я не могу сделать это для всей книги. Это работает только для активного листа. Есть ли код VBA, который может решить мою проблему?

Или вот мой код VBA для объединения файлов CSV в одну книгу Excel. Есть ли способ добавить что-то в этот код, сделать так, чтобы трюк и разделение данных точкой с запятой и объединение их в одну книгу все сразу?

Sub CombineCsvFiles()
'updateby Extendoffice 20151015
Dim xFilesToOpen As Variant
Dim I As Integer
Dim xWb As Workbook
Dim xTempWb As Workbook
Dim xDelimiter As String
Dim xScreen As Boolean
On Error GoTo ErrHandler
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xDelimiter = "|"
xFilesToOpen = Application.GetOpenFilename("Text Files (*.csv), *.csv", , 
"Kutools for Excel", , True)
If TypeName(xFilesToOpen) = "Boolean" Then
    MsgBox "No files were selected", , "Kutools for Excel"
    GoTo ExitHandler
End If
I = 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Copy
Set xWb = Application.ActiveWorkbook
xTempWb.Close False
Do While I < UBound(xFilesToOpen)
    I = I + 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
Loop
ExitHandler:
Application.ScreenUpdating = xScreen
Set xWb = Nothing
Set xTempWb = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
Resume ExitHandler
End Sub