Erro ao gerar o arquivo csv

[fernandinhapop 0]

Bom Dia! Pessoal!

 

Estou com um probleminha, quando gero o arquivo csv ele traz todos os registros em uma unica célula.

 

O código está descrito abaixo:

 

Sub Exportar ()

 

sqlexporta = "SELECT " & baseg & ".*, " & basec & ".* FROM " & baseg & " INNER JOIN " & basec & " ON " & baseg & ".txt_cpf = " & basec & ".txt_cpf "

 

rsBase.Open sqlexporta, cnBase , adOpenStatic, adLockReadOnly, adCmdText

 

Response.ContentType = "application/csv"

Response.AddHeader "Content-Disposition", "filename=cap.csv;"

 

for i = 0 to rsBase.Fields.Count - 1

 

if i = (rsBase.Fields.Count - 1) then

 

Response.Write Ucase(rsBase.Fields(i).Name)

 

else

 

Response.Write Ucase(rsBase.Fields(i).Name) & ","

 

end if

 

next

 

Response.write vbNewLine

Response.write vbNewLine

 

while not rsBase.EOF

 

for u=0 to rsBase.Fields.Count - 1

 

if u = (rsBase.Fields.Count - 1) then

 

Response.Write rsBase.Fields(u).Value

 

else

 

Response.Write rsBase.Fields(u).Value & ","

 

end if

 

next

 

response.write vbNewLine

rsBase.MoveNext

 

wend

 

Response.write vbNewLine

Response.write vbNewLine

 

End Sub

 

Será que alguém pode me ajudar.

 

Desde então muito obrigada.

[Mário Monteiro 179]

mas csv não é texto separado por virgulas??você esta tentando abrir corretamente...

[fernandinhapop 0]

A intenção é essa quando mando exportar para um arquivo csv separa do por virgula ou não. Gostaria que já ficasse formatado cada campo na sua célula.Você sabe como fazer isso?

[fernandinhapop 0]

Alguém sabe?

[Salgado 4]

Que erro que está tendo?

[Mário Monteiro 179]

ainda não entendi o blema..será que é na hora de abrir em algum lugar tipo no excel ou é na hora de usar isso pra carregar outro db...

[fernandinhapop 0]

É quando eu pressiono o botão para exportar. Nesse momento eu peço para salvar e quando eu abro o arquivo em csv ele me traz os dados separados por virgula, porém na mesma celula do excel, ou seja, na A1. Gostaria de saber se não há uma forma de exportar o arquivo, seja excel ou em formato csv, desde que os campod do access fossem na mesma forma. Por exemplo o campo nome na célula A1, o campo idade na célula A2, e assim por diante.

[Salgado 4]

É quando eu pressiono o botão para exportar. Nesse momento eu peço para salvar e quando eu abro o arquivo em csv ele me traz os dados separados por virgula, porém na mesma celula do excel, ou seja, na A1.

  Gostaria de saber se não há uma forma de exportar o arquivo, seja excel ou em formato csv, desde que os campod do access fossem na mesma forma. Por exemplo o campo nome na célula A1, o campo idade na célula A2, e assim por diante.

<{POST_SNAPBACK}>

Ahhhh, então deve ser o seu excel que não está importando o CSV de forma correta. Verifique ele.

[fernandinhapop 0]

Valeu.