Exportação Excel
27/08/2008
0
Olá pessoal,
gostaria da ajuda de vocês...
eu estou exportando dados de um dataset para uma planilha excel. Está exportando corretamente, só que na célula está mostrando o dado que eu exportei mais um aspa simples na frente desse dado.
EX: ´Nome (exportei somente Nome)
Alguem pode me ajudar a descobrir o porquê disso.
Segue um trecho do meu código...
sConexaoExcel = ´Provider=Microsoft.Jet.OLEDB.4.0;´ & _
´Data Source=´ & sNmCaminho & sNmDocumento & ´.xls´ & ´;´ & _
´Extended Properties=´´Excel 8.0;HDR=YES´´´
objConexao.ConnectionString = sConexaoExcel
objConexao.Open()
objComando.Connection = objConexao
For iIndex = 0 To dttDocumento.Columns.Count - 1
sCamposCreate += ´[´ & dttDocumento.Columns.Item(iIndex).ToString & ´] ntext,´
sCamposSelect += ´[´ & dttDocumento.Columns.Item(iIndex).ToString & ´],´
sCampos += dttDocumento.Columns.Item(iIndex).ToString & ´,´
Next
sCamposCreate = sCamposCreate.Trim.Substring(0, sCamposCreate.Trim.Length - 1)
sCamposSelect = sCamposSelect.Trim.Substring(0, sCamposSelect.Trim.Length - 1)
objComando.CommandText = ´CREATE TABLE [´ & sNmDocumento & ´] (´ & sCamposCreate.ToUpper & ´)´
gostaria da ajuda de vocês...
eu estou exportando dados de um dataset para uma planilha excel. Está exportando corretamente, só que na célula está mostrando o dado que eu exportei mais um aspa simples na frente desse dado.
EX: ´Nome (exportei somente Nome)
Alguem pode me ajudar a descobrir o porquê disso.
Segue um trecho do meu código...
sConexaoExcel = ´Provider=Microsoft.Jet.OLEDB.4.0;´ & _
´Data Source=´ & sNmCaminho & sNmDocumento & ´.xls´ & ´;´ & _
´Extended Properties=´´Excel 8.0;HDR=YES´´´
objConexao.ConnectionString = sConexaoExcel
objConexao.Open()
objComando.Connection = objConexao
For iIndex = 0 To dttDocumento.Columns.Count - 1
sCamposCreate += ´[´ & dttDocumento.Columns.Item(iIndex).ToString & ´] ntext,´
sCamposSelect += ´[´ & dttDocumento.Columns.Item(iIndex).ToString & ´],´
sCampos += dttDocumento.Columns.Item(iIndex).ToString & ´,´
Next
sCamposCreate = sCamposCreate.Trim.Substring(0, sCamposCreate.Trim.Length - 1)
sCamposSelect = sCamposSelect.Trim.Substring(0, sCamposSelect.Trim.Length - 1)
objComando.CommandText = ´CREATE TABLE [´ & sNmDocumento & ´] (´ & sCamposCreate.ToUpper & ´)´
Alecoelho2004
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)