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
Las sentencias INSERT INTO
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
شركات نظافة بالرياض
شركة تنظيف خزانات المياه
بالرياض
شركة تنظيف بالرياض
شركة تنظيف فلل بالرياض
شركة نقل اثاث بالرياض
شركة
مكافحة حشرات بالرياض
شركة كشف تسربات بالرياض
شركة تنظيف منازل بالرياض
شركة رش مبيدات بالدمام
شركة تنظيف خزانات بالدمام
شركة تنظيف فلل بالرياض
here
here
here
here
here
here
here
here
here
شركة تنظيف شقق بالرياض
شركة تنظيف واجهات بالرياض
شركة تنظيف مجالس بالرياض
شركة تنظيف موكيت بالرياض
شركة غسيل السجاد بالرياض
شركة تنظيف مسابح بالرياض
شركة كشف تسربات بالرياض
كشف تسربات المياه بالرياض
عزل خزانات واسطح
شركة تنظيف خزانات بالرياض
شركة عزل اسطح بالرياض
شركة عزل خزانات بالرياض
مكافحة حشرات
شركة رش مبيدات بالرياض
شركة مكافحة حشرات بالرياض
شركة تسليك مجارى بالرياض
تنظيف مجالس
شركة تنظيف مجالس بالرياض
شركة تنظيف موكيت بالرياض
شركة غسيل السجاد بالرياض
شركة تسليك مجارى بالرياض
شركة تنظيف بيارات بالرياض
شركة شفط بيارات بالرياض
شركة تنظيف بالرياض
شركة تنظيف فلل بالرياض
شركة تنظيف شقق بالرياض
شركة تنظيف منازل بالرياض
شركة تنظيف بيوت بالرياض
شركة كشف تسربات بالرياض
شركة تسربات المياه بالرياض
نقل اثاث
شركة نقل اثاث بالرياض
شركة نقل عفش بالرياض
شركة تخزين عفش بالرياض
شركة رش مبيدات بالرياض
شركة مكافحة حشرات بالرياض
مكافحة حشرات
شركة القمة لنقل عفش
بالرياض
تنظيف فلل بالرياض
تنظيف
خزانات بالرياض
نقل اثاث بالرياض
تنظيف مجالس بالرياض
تنظيف موكيت بالرياض
تنظيف شقق بالرياض
رش
مبيدات بالرياض
كشف تسربات المياه بالرياض
تنظيف خزانات بالرياض
عزل خزانات بالرياض
عزل اسطح بالرياض
شركة كشف تسربات المياه
بالرياض
تسليك مجارى بالرياض
تنظيف بيارات بالرياض
شركة عوازل
شركة عزل مائي
شركة البستان نظافة عامة بالرياض
شركة نظافة بالرياض
شركة تنظيف منازل بالرياض
تنظيف فلل بالرياض
تنظيف شقق بالرياض
تنظيف موكيت بالرياض
تنظيف كنب بالرياض
شركة نظافة عامة بالرياض
تنظيف مجالس بالرياض
تنظيف قصور بالرياض
شركة مكافحة حشرات
بالرياض
تنظيف فلل بالرياض
شركة كشف تسربات المياه
بالرياض
شركات عزل اسطح بالرياض
شركة نظافة بالرياض
شركة رش مبيد بالرياض
شركة تخزين اثاث بالرياض
تنظيف شقق بالرياض
تنظيف خزانات بالرياض
شركة تنظيف منازل بالرياض
نقل عفش بالرياض
شركة تنظيف مجالس
شركة كشف تسربات بالرياض
نقل
عفش بالرياض
كشف تسربات المياه
عزل خزانات بالرياض
مستودع تخزين عفش بالرياض
شركة تنظيف كنب بالرياض
تنظيف منازل بالرياض
جلي بلاط بالرياض
تسليك مجارى بالرياض
شركة رش مبيدات بالرياض
شركة تنظيف كنب بالرياض
شركة القحطاني رش المبيدات بالرياض
مكافحة
حشرات بالرياض
شركة نقل اثاث بالرياض
تنظيف خزانات بالرياض
تخزين اثاث
عزل مائي
شركة تنظيف اثاث بالرياض
رش مبيدات بالرياض
افضل شركة كشف تسربات بالرياض
كشف تسربات المياه
تسليك مجارى بالرياض
تنظيف بيارات بالرياض
عزل اسطح بالرياض
تنظيف خزانات بالرياض
عزل خزانات بالرياض
شركة
عزل حراري الرياض
شركة عزل مائي الرياض
شركة رش مبيدات و مكافحة حشرات بالرياض
شركة تنظيف منازل بالرياض
شركة نقل اثاث بالرياض
تخزين اثاث
رش مبيدات بالرياض
مكافحة حشرات بالرياض
تنظيف خزانات بالرياض
تنظيف موكيت بالرياض
تنظيف فلل بالرياض
تنظيف مجالس بالرياض
تنظيف شقق بالرياض
كشف تسربات بالرياض
شركة كشف تسربات المياه
بالدمام
شركة رش مبيدات بالدمام
شركة تنظيف خزانات بالدمام
شركة تنظيف بيارات بالدمام
شركة تسليك مجاري بالدمام
شركة مكافحة حشرات بالدمام
شركة تنظيف منازل بالدمام
شركة
تنظيف فلل بالدمام
شركة تنظيف بالدمام
مكافحة
الحشرات ورش المبيدات
تنظيف بيوت بالمدينة
تنظيف منازل بالدمام
نقل عفش
عزل أسطح بالدمام
شركة تنظيف خزانات
بالدمام
نقل عفش بالمدينة
عزل أسطح بالرياض
تنظيف فلل بجده
شركة تنظيف منازل بالخرج
عزل أسطح بالدمام
نقل عفش الدمام
شركة
تنظيف بيوت بالرياض
اسعار نقل العفش بالرياض
شركة نقل اثاث بالمدينة
المنورة
شركات تنظيف المنازل في جدة
شركة نقل اثاث بالرياض
شركة تسليك مجارى بالرياض
شركة
تخزين اثاث بالرياض
شركات رش المبيدات الحشرية
بجدة
شركه تنظيف خزانات بجدة
شركة تنظيف بمكة
شركة نقل اثاث بجدة
شركه
تنظيف خزانات بالدمام
شركه
نقل اثاث بمكة
شركة نقل اثاث بالدمام
شركة تنظيف منازل بالمدينة
المنورة
شركات عزل مائي
شركة مكافحة حشرات جدة
تنظيف فلل بالدمام
شركات مكافحة الحشرات فى
الرياض
افضل شركة تنظيف بالخرج
انواع
دعامات القلب
عملية
دعامة القلب
قسطرة
الشريان التاجي
علاج
قصور الشريان التاجى
الشريان
التاجي
عملية
قسطرة القلب
قسطرة
القلب والدعامات
قسطرة
القلب
تضخم
الغدة الدرقية
عملية
الغدة
استئصال
الغدة الدرقية
دكتور
غدة درقية
عملية
الغدة الدرقية
عملية
استئصال الغدة الدرقية
تضخم
البروستاتا الحميد
تضخم
البروستاتا
اعراض
تضخم البروستاتا
عملية
البروستاتا
استئصال
البروستاتا
سرطان
البروستاتا
علاج
تضخم البروستاتا الحميد
علاج
تضخم البروستاتا
علاج
البروستاتا
دعامات
القلب
الدعامة
الدوائية
ما
هي قسطرة القلب
عملية
القسطرة للقلب
القسطرة
القلبية
حصوة
المثانة
تفتيت
حصى الكلى بالليزر
تفتيت
حصوات الحالب
تفتيت
حصوات الكلى
علاج
حصوة الكلى
علاج
حصوات الكلى
علاج
حصوة الحالب
منظار
الحالب
حصوات
الحالب
ورم
المثانة
اورام
المثانة
سرطان
المثانة
اعراض
الغدد الصماء
الغدد
الصماء
القدم
السكرية
القدم
السكرى
داء
السكري
علاج
مرض السكري نهائيا
علاج
القدم السكرى
مرض
القدم السكرى
عملية
الليزك
عملية
تصحيح النظر الليزك
تكلفة
عملية الليزك
استئصال
البروستاتا بالليزر
عمليات
الجيوب الانفيه بالمنظار
عملية
الحاجز الانفي
اصلاح
اعوجاج الحاجز الانفي
مراكز
التجميل فى مصر
اسعار
عمليات التجميل
زراعة
الشعر
مراكز
زراعة الشعر فى مصر
عمليات
زراعة الشعر في مصر
تكلفة
زراعة الشعر في مصر
عملية
تجميل الانف فى مصر
عمليات
تجميل البطن
استئصال
الرحم عن طريق المهبل
عملية
منظار الرحم
عملية
زرع القرنية
عملية
استئصال عنق الرحم
عملية
غضاريف الانف
علاج
الغدة الدرقية
عمليات
التجميل بالليزر
دكتور
نساء وتوليد
علاج
حصوات المرارة
عملية
الغدة الدرقية بالليزر
دكتور
انف واذن وحنجرة
عمليات
تجميل العين
علاج
تليف الكبد
دكتور
غدد صماء
علاج
زيادة افراز الغدة الدرقية
دكتور
جراحة تجميل
علاج
فيروس الكبد سي
اعراض
زيادة نشاط الغدة الدرقية
سرطان
الكبد وعلاجه
اعراض
ورم الغدة النخامية
امراض
الكبد والمرارة
امراض
المعدة والجهاز الهضمي
مناظير
الجهاز الهضمى
اورام
الجهاز الهضمى
yes
ارشفة المواقع والمنتديات
كشف تسربات المياه
نقل اثاث بالرياض
تخزين اثاث بالرياض
كشف تسربات المياه
عزل مائى بالرياض
ترميم منازل
كشف تسربات المياه
ترميم منازل بالرياض
تخزين اثاث بالرياض
كشف تسربات المياه
نقل اثاث بالرياض
تخزين اثاث بالرياض
تخزين اثاث بالرياض
تخزين اثاث بالرياض
كشف تسربات المياه
ترميم منازل بالرياض
كشف تسربات المياه
عزل مائى بالرياض
نقل اثاث بالرياض
تخزين اثاث بالرياض
تخزين عفش
نقل اثاث بالرياض
تخزين اثاث بالرياض
نفل عفش بالرياض
ترميم منازل بالرياض
كشف تسربات المياه بالرياض
شركة عزل مائى بالرياض
نقل اثاث بالرياض
تخزين اثاث بالرياض
تخزين عفش بالرياض
رش مبيدات بالرياض
مكافحة الحشرات بالرياض
نقل اثاث بالرياض
ترميم منازل فى الرياض
عزل مائى وحرارى بالرياض
كشف تسربات المياه بالرياض
كشف تسربات المياه
كشف تسربات المياه
—–
Nice share
عازل حرارى شركة كشف تسربات المياه غسيل خزانات شركة نقل عفش مكافحة الحشرات بالرياض ترميم منازل عزل مائى كشف تسربات تخزين اثاث نقل اثاث عازل حرارى عزل مائى ترميم منازل تنظيف خزانات عزل مائى تخزين اثاث نقل اثاث كشف تسربات ترميم منازل عازل حرارى رش مبيدات كشف تسربات عزل مائى عازل حرارى نقل عفش بالرياض غسيل خزانات نقل اثاث بالرياض مكافحة الحشرات تخزين اثاث نقل اثاث ترميم منازل عزل مائى العاب بنات 2015 ترميم منازل عزل مائى