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

9 thoughts on “Generar sentencias SQL INSERT INTO en Excel”

  1. Pingback: Generar sentencias SQL INSERT INTO en Excel | MVPs de LATAM

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

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

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

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

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

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

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

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

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


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

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

    here

    here

    here

    here

    here

    here

    here

    here

    here

  3. كيمو نور

    شركة تنظيف شقق بالرياض
    شركة تنظيف واجهات بالرياض
    شركة تنظيف مجالس بالرياض
    شركة تنظيف موكيت بالرياض
    شركة غسيل السجاد بالرياض
    شركة تنظيف مسابح بالرياض
    شركة كشف تسربات بالرياض
    كشف تسربات المياه بالرياض
    عزل خزانات واسطح
    شركة تنظيف خزانات بالرياض
    شركة عزل اسطح بالرياض
    شركة عزل خزانات بالرياض
    مكافحة حشرات
    شركة رش مبيدات بالرياض
    شركة مكافحة حشرات بالرياض
    شركة تسليك مجارى بالرياض

  4. كيمو نور

    تنظيف مجالس
    شركة تنظيف مجالس بالرياض
    شركة تنظيف موكيت بالرياض
    شركة غسيل السجاد بالرياض
    شركة تسليك مجارى بالرياض
    شركة تنظيف بيارات بالرياض
    شركة شفط بيارات بالرياض
    شركة تنظيف بالرياض
    شركة تنظيف فلل بالرياض
    شركة تنظيف شقق بالرياض
    شركة تنظيف منازل بالرياض
    شركة تنظيف بيوت بالرياض
    شركة كشف تسربات بالرياض
    شركة تسربات المياه بالرياض

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    شركة عوازل

    شركة عزل مائي

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    تخزين اثاث

    عزل مائي

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    تخزين اثاث

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    نقل عفش

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  6. Samar Abo Lila

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

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

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

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

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

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

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

    قسطرة
    القلب

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

    عملية
    الغدة

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

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

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

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

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

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

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

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

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

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

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

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

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

    دعامات
    القلب

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

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

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

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

    حصوة
    المثانة

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

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

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

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

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

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

    منظار
    الحالب

    حصوات
    الحالب

    ورم
    المثانة

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

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

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

    الغدد
    الصماء

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

    القدم
    السكرى

    داء
    السكري

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

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

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

    عملية
    الليزك

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

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

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

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

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

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

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

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

    زراعة
    الشعر

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  7. yes

    ارشفة المواقع والمنتديات
    كشف تسربات المياه
    نقل اثاث بالرياض
    تخزين اثاث بالرياض
    كشف تسربات المياه
    عزل مائى بالرياض
    ترميم منازل
    كشف تسربات المياه
    ترميم منازل بالرياض
    تخزين اثاث بالرياض
    كشف تسربات المياه
    نقل اثاث بالرياض
    تخزين اثاث بالرياض
    تخزين اثاث بالرياض
    تخزين اثاث بالرياض
    كشف تسربات المياه
    ترميم منازل بالرياض
    كشف تسربات المياه
    عزل مائى بالرياض
    نقل اثاث بالرياض
    تخزين اثاث بالرياض
    تخزين عفش
    نقل اثاث بالرياض
    تخزين اثاث بالرياض
    نفل عفش بالرياض

    ترميم منازل بالرياض
    كشف تسربات المياه بالرياض
    شركة عزل مائى بالرياض
    نقل اثاث بالرياض
    تخزين اثاث بالرياض
    تخزين عفش بالرياض
    رش مبيدات بالرياض
    مكافحة الحشرات بالرياض
    نقل اثاث بالرياض
    ترميم منازل فى الرياض
    عزل مائى وحرارى بالرياض
    كشف تسربات المياه بالرياض
    كشف تسربات المياه
    كشف تسربات المياه
    —–

    1. Nice share

      عازل حرارى شركة كشف تسربات المياه غسيل خزانات شركة نقل عفش مكافحة الحشرات بالرياض ترميم منازل عزل مائى كشف تسربات تخزين اثاث نقل اثاث عازل حرارى عزل مائى ترميم منازل تنظيف خزانات عزل مائى تخزين اثاث نقل اثاث كشف تسربات ترميم منازل عازل حرارى رش مبيدات كشف تسربات عزل مائى عازل حرارى نقل عفش بالرياض غسيل خزانات نقل اثاث بالرياض مكافحة الحشرات تخزين اثاث نقل اثاث ترميم منازل عزل مائى العاب بنات 2015 ترميم منازل عزل مائى

Leave a Comment

Your email address will not be published. Required fields are marked *

Scroll to Top