Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

nemtconto

[Resolvido] Importar dados de Excel

Recommended Posts

Olá pessoal, sou eu novamente...

 

Seguinte, eu estou querendo fazer com que quando eu fizer o upload de um arquivo em excel, após o upload seja feito a inserção dos dados dela no banco de dados.

 

Por exemplo eu tenho um banco de dados chamado "Banco.mdb"

 

E uma tabela chamada "mailingNews", quero fazer um upload de arquivo excel que quando for "upado" os dados deste arquivo excel caiam corretamente nos dados da tabela "mailingNews"

 

Os dados que tem dentro dela são

 

id_mai - que é a numeração automatica dos dados

email - que é onde irão ser gravados os e-mails (os dados estarão no excel)

nome - Onde irá gravar o nome

grupo_mai - onde mostra a que grupo pertence esses e-mails.

 

Porém o grupo_mai já deve ser gravado como 14, caso a pessoa não escreva nada neste campo, ou seja já definido.

 

A tabela no excel creio que deveria ficar assim

 

| email | nome | grupo_mai |

email@email.com.br | João Email | 4 | (caso não tenha nada no grupo_mai ser gravado no banco de dados com o número 14

 

Como devo proceder. Já procurei aqui no forum várias coisas. O upload eu consigo fazer sem problemas usando "SAfileUp" porém como fazer gravar os dados no banco, já vi um exemplo parecido do que preciso aqui: http://forum.imasters.com.br/index.php?/topic/243703-lendo-xls-dinamico-para-visualizacao-em-tela/

 

Mas não entendi direito e pelo que vi, é apenas para visualizar na tela, porém quero que GRAVE no banco de dados...

 

Será que alguém pode me ajudar, postar um exemplo ou algum lugar que ensine como fazer isso? Pois estou precisando urgente =)

 

Obrigado mais uma vez pela ajuda de todos!

 

Após deixar tudo isso pronto já posto no banco de scripts pois vi que muita gente tem a mesma dúvida que eu rsrs..

Compartilhar este post


Link para o post
Compartilhar em outros sites

Velho da uma olhada neste tópico, no caso primeiramente você terá que fazer o upload, depois identificar e tirar as infos do upload feito você pode fazer uma função pra deletar este arquivo

 

http://forum.imasters.com.br/index.php?/topic/203019-resolvido%26nbsp%3Bimportar-planilha-excel-para-bd-em-asp/

 

Eu cheguei a ver esse exemplo, tanto que cheguei naquele outro que comentei...

 

Só que não consegui.. não deu certo o que fiz...

 

Se alguém puder ajudar, vou continuar a fazer aqui alguns testes que pensei... vou postar o código assim que "parar"

Compartilhar este post


Link para o post
Compartilhar em outros sites

velho testei aqui o script do Jonathan e funcionou belezinha, a questão naquele caso é modifica-lo para sua necessidade, o que você não esta conseguindo fazer?

Compartilhar este post


Link para o post
Compartilhar em outros sites

velho testei aqui o script do Jonathan e funcionou belezinha, a questão naquele caso é modifica-lo para sua necessidade, o que você não esta conseguindo fazer?

 

Por exemplo eu peguei o script dele, copiei e colei para fazer o teste..

 

Ele apresenta o seguinte erro

 

Microsoft JET Database Engine error '80004005'

Failure creating file.

/newsletter/importarArq.asp, line 42

Ele não grava os dados no banco de dados... fica dando esse erro...

 

O codigo abaixo é de toda a página de como ficou... estou usando o SafileUp para fazer o upload dos arquivos...

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="estilo.css" rel="stylesheet" type="text/css">
<title>Importar Dados</title>
</head>

<body>

<!-- #include file ="conexao.asp" -->

		<%
		
		SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp") 
 
			'Configura o caminho onde arquivo será salvo
			SaFileUp.Path = "e:\vhosts\dominio.com.br\httpdocs\newsletter\upload\"
 
			'Caso o usuário não indique um arquivo para upload, informa erro.
			If SaFileUp.IsEmpty Then
					response.write "<center>Por favor, indique um arquivo para upload.</center><br>"
			Else
				'Salva o arquivo no servidor
				SaFileUp.Save
				response.write "<center>Total de Bytes Enviados: " & SaFileUp.TotalBytes & "</center>"
			End if
 
			'Gera um link html para retornar a pagina anterior
			'response.write "<center><a href='javascript:history.go(-1)'>Voltar</a></center>"
 
		Set SaFileUp = Nothing 
		
		
		
							Dim sSourceXLS
							Dim sDestXLS
							sDestXLS = Server.MapPath(".") & "e:\vhosts\dominio.com.br\httpdocs\newsletter\upload\teste.xls"  ' caminho e nome do arquivo xls
							Dim oConn
							Set oConn = Server.CreateObject("ADODB.Connection") 'conexao com o xls
							oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &sDestXLS& ";Extended Properties=""Excel 8.0;HDR=NO;"""
							Dim oRS 
							Set oRS = Server.CreateObject("ADODB.Recordset") 'objeto recordset que armazena os dados do xls
									 'F1 = coluna 1 do xls, F2 = coluna 2, e assim sucessivamente...se for * seleciona todas as colunas
											oRS.Open "Select F1 from tabelaXls", oConn, 1, 3 'executa o recordset
									 do while not oRS.eof 'listando as celulas do arquivo
									  Response.Write(oRS.Fields(0).Value)'fields tem o numero da coluna do xls,
									  Response.Write("<br>")
									  oRS.movenext
									 loop
									 oRS.close
									 set oRS=nothing
											oConn.Close
											Set oConn = Nothing
									 'Abra o xls vá em Menu-Inserir=>>Nome=>>Definir 
									 'escolha o nome da sua seleção de celulas, esse nome é o mesmo que vai no sql, como se fosse o nome da tabela, no exemplo está como tabelaXLS
		
		
        %>
</body>
</html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tente assim

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="estilo.css" rel="stylesheet" type="text/css">
<title>Importar Dados</title>
</head>

<body>

<!-- #include file ="conexao.asp" -->

                <%

                SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp")

                        'Configura o caminho onde arquivo será salvo
                        SaFileUp.Path = "e:\vhosts\dominio.com.br\httpdocs\newsletter\upload\"

                        'Caso o usuário não indique um arquivo para upload, informa erro.
                        If SaFileUp.IsEmpty Then
                                        response.write "<center>Por favor, indique um arquivo para upload.</center><br>"
                        Else
                                'Salva o arquivo no servidor
                                SaFileUp.Save
                                response.write "<center>Total de Bytes Enviados: " & SaFileUp.TotalBytes & "</center>"
                        End if

                        'Gera um link html para retornar a pagina anterior
                        'response.write "<center><a href='javascript:history.go(-1)'>Voltar</a></center>"

                Set SaFileUp = Nothing



                                                        Dim sSourceXLS
                                                        Dim sDestXLS
                                                        sDestXLS = "e:\vhosts\dominio.com.br\httpdocs\newsletter\upload\teste.xls"  ' caminho e nome do arquivo xls
                                                        Dim oConn
                                                        Set oConn = Server.CreateObject("ADODB.Connection") 'conexao com o xls
                                                        oConn.Open "Microsoft.Jet.OLEDB.4.0;Data Source=" &sDestXLS& ";Extended Properties=Excel 8.0;"
                                                        Dim oRS
                                                        Set oRS = Server.CreateObject("ADODB.Recordset") 'objeto recordset que armazena os dados do xls
                                                                         'F1 = coluna 1 do xls, F2 = coluna 2, e assim sucessivamente...se for * seleciona todas as colunas
                                                                                        oRS.Open "Select F1 from tabelaXls", oConn, 1, 3 'executa o recordset
                                                                         do while not oRS.eof 'listando as celulas do arquivo
                                                                          Response.Write(oRS.Fields(0).Value)'fields tem o numero da coluna do xls,
                                                                          Response.Write("<br>")
                                                                          oRS.movenext
                                                                         loop
                                                                         oRS.close
                                                                         set oRS=nothing
                                                                                        oConn.Close
                                                                                        Set oConn = Nothing
                                                                         'Abra o xls vá em Menu-Inserir=>>Nome=>>Definir
                                                                         'escolha o nome da sua seleção de celulas, esse nome é o mesmo que vai no sql, como se fosse o nome da tabela, no exemplo está como tabelaXLS


        %>
</body>
</html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tente assim

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="estilo.css" rel="stylesheet" type="text/css">
<title>Importar Dados</title>
</head>

<body>

<!-- #include file ="conexao.asp" -->

                <%

                SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp")

                        'Configura o caminho onde arquivo será salvo
                        SaFileUp.Path = "e:\vhosts\dominio.com.br\httpdocs\newsletter\upload\"

                        'Caso o usuário não indique um arquivo para upload, informa erro.
                        If SaFileUp.IsEmpty Then
                                        response.write "<center>Por favor, indique um arquivo para upload.</center><br>"
                        Else
                                'Salva o arquivo no servidor
                                SaFileUp.Save
                                response.write "<center>Total de Bytes Enviados: " & SaFileUp.TotalBytes & "</center>"
                        End if

                        'Gera um link html para retornar a pagina anterior
                        'response.write "<center><a href='javascript:history.go(-1)'>Voltar</a></center>"

                Set SaFileUp = Nothing



                                                        Dim sSourceXLS
                                                        Dim sDestXLS
                                                        sDestXLS = "e:\vhosts\dominio.com.br\httpdocs\newsletter\upload\teste.xls"  ' caminho e nome do arquivo xls
                                                        Dim oConn
                                                        Set oConn = Server.CreateObject("ADODB.Connection") 'conexao com o xls
                                                        oConn.Open "Microsoft.Jet.OLEDB.4.0;Data Source=" &sDestXLS& ";Extended Properties=Excel 8.0;"
                                                        Dim oRS
                                                        Set oRS = Server.CreateObject("ADODB.Recordset") 'objeto recordset que armazena os dados do xls
                                                                         'F1 = coluna 1 do xls, F2 = coluna 2, e assim sucessivamente...se for * seleciona todas as colunas
                                                                                        oRS.Open "Select F1 from tabelaXls", oConn, 1, 3 'executa o recordset
                                                                         do while not oRS.eof 'listando as celulas do arquivo
                                                                          Response.Write(oRS.Fields(0).Value)'fields tem o numero da coluna do xls,
                                                                          Response.Write("<br>")
                                                                          oRS.movenext
                                                                         loop
                                                                         oRS.close
                                                                         set oRS=nothing
                                                                                        oConn.Close
                                                                                        Set oConn = Nothing
                                                                         'Abra o xls vá em Menu-Inserir=>>Nome=>>Definir
                                                                         'escolha o nome da sua seleção de celulas, esse nome é o mesmo que vai no sql, como se fosse o nome da tabela, no exemplo está como tabelaXLS


        %>
</body>
</html>

 

Hmmm... acho que entendi o que você quis fazer...

 

porém apresentou o seguinte erro

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/newsletter/importarArq.asp, line 42

deste jeito ele já pegaria o nome do arquivo que está fazendo o upload... tipo "planilha.xls" e colocaria ou deve ser colocado o nome que está pedindo abaixo..

 

Já tentei setar uma variavel dando o request no upload ou até mesmo petando o "SaFileUp" para adicionar no codigo de importação... porém está meio confuso ainda... por que é a primeira vez que preciso fazer algo neste estilo...

Compartilhar este post


Link para o post
Compartilhar em outros sites

cara eu to achando que o script não ta localizando o arquivo xls

 

e:\vhosts\dominio.com.br\httpdocs\newsletter\upload\teste.xls

verifica se ele esta sendo criado certinho neste caminho

Compartilhar este post


Link para o post
Compartilhar em outros sites

cara eu to achando que o script não ta localizando o arquivo xls

 

e:\vhosts\dominio.com.br\httpdocs\newsletter\upload\teste.xls

verifica se ele esta sendo criado certinho neste caminho

 

Sendo criado? criado neste lugar um arquivo chamado teste.xls não está não

 

O que acontece é que quando é realizado o upload de um arquivo ele o faz corretamente nesta pasta... Ou seja ele aparece com o nome que fiz o upload... Até tentei fazer um upload com o nome de teste.xls mas não acontece nada...

 

Esse caminho é o que a locaweb me passou para gravar no servidor deles... pensei em usar uma url mesmo mas não sei se funcionaria.

Compartilhar este post


Link para o post
Compartilhar em outros sites

cara mais é por isso que não ta indo, note nesta linha

 

sDestXLS = "e:\vhosts\dominio.com.br\httpdocs\newsletter\upload\teste.xls"

ao abrir este xls ele tenta localizar o aquivo tete.xls

 

o que você tem ue fazer é identificar o nome do arquivo que foi passado por upload e jogar no lugar deste teste.xls pois da atual maneira num vai da mesmo ja que não é existente e o nome não bate.

 

Recupere o nome e jogue em uma variavel depois manda assim no seu code

 

sDestXLS = "e:\vhosts\dominio.com.br\httpdocs\newsletter\upload\"& nomearquivo &".xls"

mais ou menos assim, mais recupere o nome do arquivo e jogue em uma variavel depois coloque esta variavel para ser reconhecida na variavel sDestXLS

 

[]'s

Compartilhar este post


Link para o post
Compartilhar em outros sites

cara mais é por isso que não ta indo, note nesta linha

 

sDestXLS = "e:\vhosts\dominio.com.br\httpdocs\newsletter\upload\teste.xls"

ao abrir este xls ele tenta localizar o aquivo tete.xls

 

o que você tem ue fazer é identificar o nome do arquivo que foi passado por upload e jogar no lugar deste teste.xls pois da atual maneira num vai da mesmo ja que não é existente e o nome não bate.

 

Recupere o nome e jogue em uma variavel depois manda assim no seu code

 

sDestXLS = "e:\vhosts\dominio.com.br\httpdocs\newsletter\upload\"& nomearquivo &".xls"

mais ou menos assim, mais recupere o nome do arquivo e jogue em uma variavel depois coloque esta variavel para ser reconhecida na variavel sDestXLS

 

[]'s

 

Bom acho qu estou nos "quase" rsrs...

 

Consegui recuperar em uma váriável, consegui fazer com que por essa ele adiciona o endereço certinho de onde foi feito o upload quando dou o response.write, porém o erro que aparece ainda é

 


Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/newsletter/importarArq.asp, line 48

 

Tentei aqui por diversos meios (por isso a demora para responder novamente)... mas ainda estou "parado" nisso...

 

O codigo ficou assim agora.

 


                Dim sSourceXLS
                Dim sDestXLS
		sDestXLS = nomearquivo
                Dim oConn
															
                Set oConn = Server.CreateObject("ADODB.Connection") 'conexao com o xls
                oConn.Open "Microsoft.Jet.OLEDB.4.0;Data Source="&sDestXLS&" ;Extended Properties=Excel 8.0;"
                Dim oRS
								
		         Set oRS = Server.CreateObject("ADODB.Recordset") 'objeto recordset que armazena os dados do xls
			 oRS.Open "Select * from tabelaXls", oConn, 1, 3 'executa o recordset
			 do while not oRS.eof 'listando as celulas do arquivo
										            Response.Write(oRS.Fields(0).Value)'fields tem o numero da coluna do xls,
			
                         Response.Write("<br>")
			 oRS.movenext
			 loop
			 oRS.close
			 set oRS=nothing
										 
                          oConn.Close
                          Set oConn = Nothing

Estou colocando apenas a parte da escrita e não novamente do componente de upload.

 

a váriavel : nomearquivo é onde recupera o nome do arquivo que foi "upado" junto com a url (local) de onde foi, ou seja aquela linha grande: e:\vhosts\dominio.com.br\httpdocs\newsletter\upload\

Compartilhar este post


Link para o post
Compartilhar em outros sites

rsrsrsrsrsrs, velho to aqui no trampo na correria, to sem iis aqui, mais chegando em casa eu te ajudo nisso, não é dificil não.

Compartilhar este post


Link para o post
Compartilhar em outros sites

rsrsrsrsrsrs, velho to aqui no trampo na correria, to sem iis aqui, mais chegando em casa eu te ajudo nisso, não é dificil não.

 

beleza vou ficar no aguardo...

 

Enquanto isso vou ficar aqui me matando no trampo para ver se consigo resolver esse treco =) Se conseguir antes aviso aqui se não fico no aguardo da ajuda xD

Compartilhar este post


Link para o post
Compartilhar em outros sites

mano me manda como esta o seu code

 

conexao.asp e qual a tabela e colunas do mdb

 

tb faça um teste assim

 

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" &sDestXLS& ""

 

[]'s

Compartilhar este post


Link para o post
Compartilhar em outros sites

olha este exemplo

Compartilhar este post


Link para o post
Compartilhar em outros sites

esse link ja foi passado para o membro no início do tópico, o membro ja havia respondido que estava ciente, e que a duvida dele agora é outra pois esta parte ele ja conseguiu...

Compartilhar este post


Link para o post
Compartilhar em outros sites

dá uma olhada aki, pode te ajudar

 

Sua melhor opção é sempre usar a funcionalidade de exportação construído em importação / que já existe e quase todos os sistemas de banco de dados. Se, por alguma estranha razão isto não é uma opção para você, você pode se conectar a uma planilha do Excel e ler as linhas de dados exatamente como faria qualquer outro banco de dados. Sua string de conexao pode ser:

 

"Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=" & Server.mappath("./YourSheet.xls") & ";UID=admin;"

e akimais opcoes de conexaun com Excel

 

se for o Excel 2007, olha este exemplo:

 

Set objConn2 	= 	Server.CreateObject("ADODB.Connection")
	
objConn2.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath & sFile & "; Extended Properties=Excel 12.0 Xml; HDR=YES;"	
		
strSQL 			= 	"SELECT * FROM A1:Q10000"
Set objRS		=	objConn2.Execute(strSQL)

Compartilhar este post


Link para o post
Compartilhar em outros sites

dá uma olhada aki, pode te ajudar

 

Sua melhor opção é sempre usar a funcionalidade de exportação construído em importação / que já existe e quase todos os sistemas de banco de dados. Se, por alguma estranha razão isto não é uma opção para você, você pode se conectar a uma planilha do Excel e ler as linhas de dados exatamente como faria qualquer outro banco de dados. Sua string de conexao pode ser:

 

"Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=" & Server.mappath("./YourSheet.xls") & ";UID=admin;"

e akimais opcoes de conexaun com Excel

 

se for o Excel 2007, olha este exemplo:

 

Set objConn2 	= 	Server.CreateObject("ADODB.Connection")
	
objConn2.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath & sFile & "; Extended Properties=Excel 12.0 Xml; HDR=YES;"	
		
strSQL 			= 	"SELECT * FROM A1:Q10000"
Set objRS		=	objConn2.Execute(strSQL)

 

Olá pessoal... consegui dar uma bela "avançada" nisso...

 

Creio que está tudo certo... a única coisa que está dando agora é

 

Microsoft JET Database Engine error '80004005'

Could not find installable ISAM.

/newsletter/importarArq.asp, line 121

Não sei ao certo qual é o problema pois está tudo certo...

 

Abaixo segue o código que aponta aonde está dando o erro.

 

oConn.Open "driver={Microsoft Excel Driver (*.xls)};DBQ=" &  server.MapPath(cntCaminho)

 

O codigo abaixo é onde ele faz a "importação" para o Banco de Dados.

 

A variável "nome" é o nome do arquivo

e a variável "nomearquivo" é o nome do arquivo + o caminho

 

Já tntei colocar ali no "cntCaminho" porém quando faço isso ele diz que não pode ser um caminho físico e sim um virtual... então mudando para um "virtual" com o nome do arquivo apresenta o erro acima.

cntCaminho = "./upload/"&nome&""
	 
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRS = Server.CreateObject("ADODB.Recordset")
oConn.Provider = "Microsoft.Jet.OLEDB.4.0"
oConn.Properties("Extended Properties").Value = "Excel 8.0"
	
oConn.Open "driver={Microsoft Excel Driver (*.xls)};DBQ=" &  server.MapPath(cntCaminho)

'PEGAR DATA DO EXCEL
sSQL = "SELECT * FROM Plan1;"
set oRS = oConn.Execute(sSQL)

Do While Not oRS.EOF 

'GRAVAR DADOS NO BANCO DE DADOS
objRS = "INSERT INTO mailingNews (nome, email) VALUES ('"
objRS = objRS & objRS("A")
objRS = objRS & "', '"
objRS = objRS & objRS("B")
objRS = objRS & "')"
conbanco.Execute (objRS)

oRS.MoveNext
Loop

set oRS = NOTHING
set oConn = NOTHING

Acho que estou QUASE.... se alguém souber o por que disso (vi no google e em alguns lugares que isso é um problema do host... porém na locaweb não me falaram nada a respeito...

 

 

Ah e o meu codigo de conexao.asp que o Patrique me pediu... esse é apenas para o banco de dados.

 

cntCaminho = "banco.mdb"

Set conbanco = Server.CreateObject ("ADODB.Connection")
conbanco.Open "driver={Microsoft Access Driver (*.mdb)};DBQ=" &  server.MapPath(cntCaminho)

Compartilhar este post


Link para o post
Compartilhar em outros sites

Galera consegui fazer de um outro jeito.... muito mais simples e sem coisas confusas... PORÉM ainda não funciona corretamente

 

O erro que apresenta agora é

 

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/newsletter/importarArq.asp, line 52
Para mim esse erro é que ele não consegue pegar os "dados" que estão dentro da planilha Excel que ele pegou... ou seja ele conecta nela, pega tudo que tem na guia ("guia = Plan1")

 

Porém ele não BUSCA o que tem dentro... ele abre e tal... mas não resgata os valores lá dentro... alguém poderia me ajudar nisso? acho que só falta isso pra funcionar, dai vendo isso já crio um "script" para o "laboratio" para todos que tenham essa dúvida possam também ter a solução heheh

 

Abaixo segue o código que é usado para fazer a inserção, muito mais simples.

 

nome = O nome do arquivo

 

Set Conexao2 = Server.CreateObject("ADODB.Connection")

Conexao2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./upload/"&nome&"") & ";Extended Properties=""Excel 8.0;HDR=Yes;"";"
Set excel = Conexao2.Execute("SELECT * FROM [Plan1$]")

Do Until excel.EOF

Set insere = conbanco.execute("insert into mailingNews (nome, email, grupo_mai) values ('"&excel("A")&"','"&excel("B")&"','"&excel("C")&"')")
Set insere = nothing


excel.MoveNext
Loop

Set excel = nothing

Conexao2.Close

Set Conexao2 = nothing

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.