Generar sentencias SQL INSERT INTO en Excel

La semana pasada surgió la necesidad de cargar información desde Excel a SQL Server. Lo primero que propuse es usar ya un archivo que publiqué anteriormente en este artículo Conectar Excel a Access, MySql y SQL.

Al prinicio sirvió su cometido, pero al momento de cambiar de base de datos o de tabla, si no se tiene el tiempo suficiente para armar o modificar la macro en vba, entonces las cosas ya no van bien.

Es por esto que comparto una macro que nos ayuda a armar sentencias o queries de SQL o MySql sólo con armar una tabla de datos en Excel para después entrar al administrador de base de datos, pegar y ejecutar las sentencias.

La tabla

INSERT INTO

Las sentencias INSERT INTO

INSERT INTO2

Nota: si las sentencias se ejecutan en MySql, cada línea debe tener un punto y coma.

Código de la macro

Option Explicit
'---------------------------------------------------------------------------------------
' Module    : Módulo1
' Author    : MVP Sergio Alejandro Campos
' Date      : 23/06/2013
' Purpose   : Generar Query de SQL INSERT INTO
' Website   : http://blogs.itpro.es/exceleinfo
'---------------------------------------------------------------------------------------
'
Sub GenerarInsertInto()
'Definiendo variables
Dim Filas As Integer
Dim Cuenta As Integer
Dim Rango As String
Dim Celda As Range
Dim Valor, Valor1, Valor2 As String
Dim Largo As Integer
Dim RowCursor As Integer
Dim strSQL As String
Dim Mensaje As String
'
On Error GoTo Errores
Filas = Application.WorksheetFunction.CountA(Range("A:A"))
Cuenta = 1
Rango = Application.Transpose(ActiveCell.CurrentRegion.Resize(1).Select)
'
'Extrayendo encabezados
For Each Celda In Selection
    Valor = Celda.Value
    Valor1 = Valor1 & Valor & ", "
Next Celda
Largo = Len(Valor1)
Valor2 = Left(Valor1, Largo - 2)
'
'Generando Query
With ActiveWorkbook.Sheets("Datos")
    For RowCursor = 2 To Filas
        strSQL = "INSERT INTO Tabla (" & Valor2 & ") " & _
                 "VALUES ('" & .Cells(RowCursor, 1) & "', " & _
                 "'" & .Cells(RowCursor, 2) & "', " & _
                 .Cells(RowCursor, 3) & "," & _
                 "'" & .Cells(RowCursor, 4) & "', " & _
                 "'" & .Cells(RowCursor, 5) & "')"
        Sheets("Query INSERT INTO").Range("A" & Cuenta).Value = strSQL
        Cuenta = Cuenta + 1
    Next
End With
'
Mensaje = MsgBox("Query generada. Deseas ver el código generado?", vbQuestion + vbYesNo)
If Mensaje = vbYes Then Sheets("Query INSERT INTO").Activate
'
'Manejo de errores
Exit Sub
Errores:
MsgBox "Error: " & Err.Description, vbExclamation, "EXCELeINFO"
End Sub

:: Descarga el ejemplo EXCELeINFO – Generar Query SQL INSERT INTO.xlsm

You may also like...

9 Responses

  1. jaki says:

    شركة القمة لنقل عفش
    بالرياض

    تنظيف فلل بالرياض

    تنظيف
    خزانات بالرياض

    نقل اثاث بالرياض

    تنظيف مجالس بالرياض

    تنظيف موكيت بالرياض

    تنظيف شقق بالرياض

    رش
    مبيدات بالرياض

    كشف تسربات المياه بالرياض

    تنظيف خزانات بالرياض

    عزل خزانات بالرياض

    عزل اسطح بالرياض

    شركة كشف تسربات المياه
    بالرياض

    تسليك مجارى بالرياض

    تنظيف بيارات بالرياض

    شركة عوازل

    شركة عزل مائي

    شركة البستان نظافة عامة بالرياض

    شركة نظافة بالرياض

    شركة تنظيف منازل بالرياض

    تنظيف فلل بالرياض

    تنظيف شقق بالرياض

    تنظيف موكيت بالرياض

    تنظيف كنب بالرياض

    شركة نظافة عامة بالرياض

    تنظيف مجالس بالرياض

    تنظيف قصور بالرياض

    شركة مكافحة حشرات
    بالرياض

    تنظيف فلل بالرياض

    شركة كشف تسربات المياه
    بالرياض

    شركات عزل اسطح بالرياض

    شركة نظافة بالرياض

    شركة رش مبيد بالرياض

    شركة تخزين اثاث بالرياض

    تنظيف شقق بالرياض

    تنظيف خزانات بالرياض

    شركة تنظيف منازل بالرياض

    نقل عفش بالرياض

    شركة تنظيف مجالس

    شركة كشف تسربات بالرياض

    نقل
    عفش بالرياض

    كشف تسربات المياه

    عزل خزانات بالرياض

    مستودع تخزين عفش بالرياض

    شركة تنظيف كنب بالرياض

    تنظيف منازل بالرياض

    جلي بلاط بالرياض

    تسليك مجارى بالرياض

    شركة رش مبيدات بالرياض

    شركة تنظيف كنب بالرياض

    شركة القحطاني رش المبيدات بالرياض

    مكافحة
    حشرات بالرياض

    شركة نقل اثاث بالرياض

    تنظيف خزانات بالرياض

    تخزين اثاث

    عزل مائي

    شركة تنظيف اثاث بالرياض

    رش مبيدات بالرياض

    افضل شركة كشف تسربات بالرياض

    كشف تسربات المياه

    تسليك مجارى بالرياض

    تنظيف بيارات بالرياض

    عزل اسطح بالرياض

    تنظيف خزانات بالرياض

    عزل خزانات بالرياض

    شركة
    عزل حراري الرياض

    شركة عزل مائي الرياض

    شركة رش مبيدات و مكافحة حشرات بالرياض

    شركة تنظيف منازل بالرياض

    شركة نقل اثاث بالرياض

    تخزين اثاث

    رش مبيدات بالرياض

    مكافحة حشرات بالرياض

    تنظيف خزانات بالرياض

    تنظيف موكيت بالرياض

    تنظيف فلل بالرياض

    تنظيف مجالس بالرياض

    تنظيف شقق بالرياض

    كشف تسربات بالرياض

    شركة كشف تسربات المياه
    بالدمام

    شركة رش مبيدات بالدمام

    شركة تنظيف خزانات بالدمام

    شركة تنظيف بيارات بالدمام

    شركة تسليك مجاري بالدمام

    شركة مكافحة حشرات بالدمام

    شركة تنظيف منازل بالدمام

    شركة
    تنظيف فلل بالدمام

    شركة تنظيف بالدمام

    مكافحة
    الحشرات ورش المبيدات

    تنظيف بيوت بالمدينة

    تنظيف منازل بالدمام

    نقل عفش

    عزل أسطح بالدمام

    شركة تنظيف خزانات
    بالدمام

    نقل عفش بالمدينة

    عزل أسطح بالرياض

    تنظيف فلل بجده

    شركة تنظيف منازل بالخرج

    عزل أسطح بالدمام

    نقل عفش الدمام

    شركة
    تنظيف بيوت بالرياض

    اسعار نقل العفش بالرياض

    شركة نقل اثاث بالمدينة
    المنورة

    شركات تنظيف المنازل في جدة

    شركة نقل اثاث بالرياض

    شركة تسليك مجارى بالرياض

    شركة
    تخزين اثاث بالرياض

    شركات رش المبيدات الحشرية
    بجدة

    شركه تنظيف خزانات بجدة

    شركة تنظيف بمكة

    شركة نقل اثاث بجدة

    شركه
    تنظيف خزانات بالدمام

    شركه
    نقل اثاث بمكة

    شركة نقل اثاث بالدمام

    شركة تنظيف منازل بالمدينة
    المنورة

    شركات عزل مائي

    شركة مكافحة حشرات جدة

    تنظيف فلل بالدمام

    شركات مكافحة الحشرات فى
    الرياض

    افضل شركة تنظيف بالخرج

  2. Samar Abo Lila says:

    انواع
    دعامات القلب

    عملية
    دعامة القلب

    قسطرة
    الشريان التاجي

    علاج
    قصور الشريان التاجى

    الشريان
    التاجي

    عملية
    قسطرة القلب

    قسطرة
    القلب والدعامات

    قسطرة
    القلب

    تضخم
    الغدة الدرقية

    عملية
    الغدة

    استئصال
    الغدة الدرقية

    دكتور
    غدة درقية

    عملية
    الغدة الدرقية

    عملية
    استئصال الغدة الدرقية

    تضخم
    البروستاتا الحميد

    تضخم
    البروستاتا

    اعراض
    تضخم البروستاتا

    عملية
    البروستاتا

    استئصال
    البروستاتا

    سرطان
    البروستاتا

    علاج
    تضخم البروستاتا الحميد

    علاج
    تضخم البروستاتا

    علاج
    البروستاتا

    دعامات
    القلب

    الدعامة
    الدوائية

    ما
    هي قسطرة القلب

    عملية
    القسطرة للقلب

    القسطرة
    القلبية

    حصوة
    المثانة

    تفتيت
    حصى الكلى بالليزر

    تفتيت
    حصوات الحالب

    تفتيت
    حصوات الكلى

    علاج
    حصوة الكلى

    علاج
    حصوات الكلى

    علاج
    حصوة الحالب

    منظار
    الحالب

    حصوات
    الحالب

    ورم
    المثانة

    اورام
    المثانة

    سرطان
    المثانة

    اعراض
    الغدد الصماء

    الغدد
    الصماء

    القدم
    السكرية

    القدم
    السكرى

    داء
    السكري

    علاج
    مرض السكري نهائيا

    علاج
    القدم السكرى

    مرض
    القدم السكرى

    عملية
    الليزك

    عملية
    تصحيح النظر الليزك

    تكلفة
    عملية الليزك

    استئصال
    البروستاتا بالليزر

    عمليات
    الجيوب الانفيه بالمنظار

    عملية
    الحاجز الانفي

    اصلاح
    اعوجاج الحاجز الانفي

    مراكز
    التجميل فى مصر

    اسعار
    عمليات التجميل

    زراعة
    الشعر

    مراكز
    زراعة الشعر فى مصر

    عمليات
    زراعة الشعر في مصر

    تكلفة
    زراعة الشعر في مصر

    عملية
    تجميل الانف فى مصر

    عمليات
    تجميل البطن

    استئصال
    الرحم عن طريق المهبل

    عملية
    منظار الرحم

    عملية
    زرع القرنية

    عملية
    استئصال عنق الرحم

    عملية
    غضاريف الانف

    علاج
    الغدة الدرقية

    عمليات
    التجميل بالليزر

    دكتور
    نساء وتوليد

    علاج
    حصوات المرارة

    عملية
    الغدة الدرقية بالليزر

    دكتور
    انف واذن وحنجرة

    عمليات
    تجميل العين

    علاج
    تليف الكبد

    دكتور
    غدد صماء

    علاج
    زيادة افراز الغدة الدرقية

    دكتور
    جراحة تجميل

    علاج
    فيروس الكبد سي

    اعراض
    زيادة نشاط الغدة الدرقية

    سرطان
    الكبد وعلاجه

    اعراض
    ورم الغدة النخامية

    امراض
    الكبد والمرارة

    امراض
    المعدة والجهاز الهضمي

    مناظير
    الجهاز الهضمى

    اورام
    الجهاز الهضمى

  1. July 1, 2013

    […] Generar sentencias SQL INSERT INTO en Excel […]

Leave a Reply

Your email address will not be published.

%d bloggers like this: