Desafio CSV para insert (CSV2SQL)

Eu estava com um desafio…

Tinha um arquivo CSV com nome das colunas na primeira linha e os dados na segunda (170 colunas =X)

Então criei um script (do mal) que percorre as colunas preenchendo comando SQL

Tem bug ainda pois queria resultado rapido, mas resolveu meu problema:

<code>

Sub Macro2()

‘ Macro em VBA para selecionar as 2 linhas do excel e criar um comando SQL insert
‘ Objetivo: Arquivo CSV gerado do SQL SERVER para comando sql

Dim insert As String
Dim valores As String
Dim coluna As Integer
Dim info As String
Dim en As String

insert = “INSERT INTO TABELA (”

valores = “) VALUES (”

coluna = 1

Do Until ActiveSheet.Cells(1, coluna) = “” ‘Loop until find a blank

info = ActiveSheet.Cells(1, coluna)
insert = insert + info + “,”

en = ActiveSheet.Cells(2, coluna)
valores = valores + en + “,”

coluna = coluna + 1
Loop

Range(“A1”).Select
Selection.End(xlToRight).Next.Select

ActiveCell.FormulaR1C1 = insert + valores

Selection.Copy
End Sub

</code>

, ,

  1. Deixe um comentário

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: