Importação de dados arquivo csv

[Maicon Aaron]

Bom dia!

 

esse é minha primeira participação aqui, procurei algo para tentar me ajudar nos fóruns já aberto, mais não encontrei.

 

a minha duvida é seguinte, estou elaborando uma macro para importar dados de planilha.CSV, para uma planilha.xlsm, porém não consigo fazer a separação do arquivo csv por colunas

 

qual o critério devo fazer para que assim que abrir a planilha.CSV já fazer a separação das colunas por " ; " para que possa importar os dados corretamente a planilha.xlsm

 

hoje a macro faz a importação dos dados todos juntos na coluna A, não é feita a separação por " ; "

 

segue abaixo a macro que estou usando.

Sub ImportarDados()
Dim wsOrigem As Worksheet
Dim wsDestino As Worksheet
Workbooks.Open Filename:="\\rs-vm29-app\D\Report_Compras\Produtos.csv"
Set wsOrigem = Workbooks("Produtos.csv").Worksheets("Produtos")
Set wsDestino = Workbooks("MACROTESTE.xlsm").Worksheets("Plan1")
 
With wsOrigem
Range("A:J").Copy Destination:=wsDestino.Range("A1")
End With
Workbooks("Produtos.csv").Close SaveChanges:=True
MsgBox "Importação de Dados Concluída"
End Sub

 

[Maicon Aaron]

não sei se deu pra entender!

 

mas basicamente precisava copiar os dados do arquivo.CSV, como texto e colar na planilha.xlsm