[Resolvido]Exportar tabela Formato CSV

Boa tarde Senhores,
Estou com uma dificuldade e gostaria que se possivel me ajudassem preciso fazer
funcionar esse código estou exportando uma tabela para um modelo de Arquivo .csv
ja pronto porem esta inserindo todo o conteudo em uma unica coluna separado por virgula (Certo por ser .csv), mas alguem conhece um jeito de funcionar separando-as por colunas.

segue código:

'********************************************************************************************
' Teste Manipula Arquivos com FileSytem
'********************************************************************************************

Dim fso As New FileSystemObject, file1, file2

Set file1 = fso.GetFile("C:\Sistema_PCI\Exportacoes\PCI.csv")

file1.Delete
'MsgBox "O arquivo Bloco_Semana.xls foi excluido com Sucesso!"


Set file2 = fso.GetFile("C:\Sistema_PCI\Exportacoes\Modelo\PCI.csv")

file2.Copy ("C:\Sistema_PCI\Exportacoes\PCI.csv")

file_xls = "C:\Sistema_PCI\Exportacoes\PCI.csv"


Set obj = New Excel.Application
obj.Application.DisplayAlerts = False
Set Workbook = obj.Workbooks.Open(file_xls)
'********************************************************************************************
'Popula Sheet 1
'********************************************************************************************
Set planilha = Workbook.Sheets(1)

Dim rs_Geral2 As Recordset

sql_Geral2 = "SELECT * FROM tbl_ExportPCI"
Set rs_Geral2 = CurrentDb.OpenRecordset(sql_Geral2)


If Not rs_Geral2.EOF Then
X = 2
Do While Not rs_Geral2.EOF
planilha.Range("A" & X).Value = rs_Geral2("ID_Retorno")
'planilha.Range("B" & X).Value = rs_Geral2("Cod_Empresa")
planilha.Range("B" & X).Value = rs_Geral2("Cod_Empresa")
planilha.Range("C" & X).Value = rs_Geral2("CPF")
planilha.Range("D" & X).Value = rs_Geral2("Nome")
planilha.Range("E" & X).Value = rs_Geral2("Sexo")
planilha.Range("F" & X).Value = rs_Geral2("RG")
planilha.Range("G" & X).Value = rs_Geral2("DT_ExpedicaoRG")
planilha.Range("H" & X).Value = rs_Geral2("Orgao_Expedidor")
planilha.Range("I" & X).Value = rs_Geral2("UF")
planilha.Range("J" & X).Value = rs_Geral2("Dt_Nascimento")
planilha.Range("K" & X).Value = rs_Geral2("Salario")
planilha.Range("L" & X).Value = rs_Geral2("Filial")
planilha.Range("M" & X).Value = rs_Geral2("Cod_Centro_Custo")
planilha.Range("N" & X).Value = rs_Geral2("Nome_Pai")
planilha.Range("O" & X).Value = rs_Geral2("Nome_Mae")
planilha.Range("P" & X).Value = rs_Geral2("Base_Origem")
'planilha.Range("Q" & X).Value = rs_Geral2("Dt_Limite")
planilha.Range("Q" & X).Value = rs_Geral2("Criminal")
planilha.Range("R" & X).Value = rs_Geral2("Comercial")


X = X + 1
rs_Geral2.MoveNext
Loop
End If
Workbook.Save
Workbook.Close

'MsgBox "Teste ok!"

'
'
' Fim Teste
'
'

Galera ainda não consegui resolver esse problema.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.