Boa tarde Amigos!
Sou novo no fórum e também no VBA, e tenho uma dúvida.
Tenho uma tabela com 6.000.000 de registros e preciso substituir diversas , por ; no vba.
A tabela tem a seguinte estrutura: (Apenas uma coluna e todos os dados dentro desta coluna)
Ex:
Campo1
0299 ,7649,F,:22:52,1,1200,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1200,12,0,0,0,01,0,02,2013:22:52
1419 ,7663,F,:22:52,1,36400,728,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36400,728,0,0,0,01,0,02,2013:22:52
1189 ,7663,F,:22:52,2,29000,1450,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,29000,1450,0,0,0,01,0,02,2013:22:52
1389 ,7663,F,:22:52,3,17070,1707,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17070,1707,0,0,0,01,0,02,2013:22:52
Comecei a fazer o código, mas já fiquei travado, estava tentando usar a função replace, mas não está dando certo:
--------------------------------------------------------------------------------------------------------------------------------------
Private Sub CmdAtualizarCaracter_Click()
Dim rTab As Recordset
Dim sTab As String
Set db = CurrentDb
Set rTab = db.OpenRecordset("SELECT * FROM TabTeste")
sTab = "SELECT * FROM TabTeste"
Replace(rTab, ",",";")
End Sub
--------------------------------------------------------------------------------------------------------------------------------------
Muito Obrigado desde já!
Sou novo no fórum e também no VBA, e tenho uma dúvida.
Tenho uma tabela com 6.000.000 de registros e preciso substituir diversas , por ; no vba.
A tabela tem a seguinte estrutura: (Apenas uma coluna e todos os dados dentro desta coluna)
Ex:
Campo1
0299 ,7649,F,:22:52,1,1200,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1200,12,0,0,0,01,0,02,2013:22:52
1419 ,7663,F,:22:52,1,36400,728,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36400,728,0,0,0,01,0,02,2013:22:52
1189 ,7663,F,:22:52,2,29000,1450,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,29000,1450,0,0,0,01,0,02,2013:22:52
1389 ,7663,F,:22:52,3,17070,1707,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17070,1707,0,0,0,01,0,02,2013:22:52
Comecei a fazer o código, mas já fiquei travado, estava tentando usar a função replace, mas não está dando certo:
--------------------------------------------------------------------------------------------------------------------------------------
Private Sub CmdAtualizarCaracter_Click()
Dim rTab As Recordset
Dim sTab As String
Set db = CurrentDb
Set rTab = db.OpenRecordset("SELECT * FROM TabTeste")
sTab = "SELECT * FROM TabTeste"
Replace(rTab, ",",";")
End Sub
--------------------------------------------------------------------------------------------------------------------------------------
Muito Obrigado desde já!