الصادرات تلقائيا إلى Microsoft Excel DataTable
اليوم أريد أن أعرض على سبيل المثال أن عملت لي لفترة طويلة وحتى الآن أنا لا يزال استخدامها.
وسوف نبذل مثالا لتصدير DataTable إلى كامل إكسل بغض النظر عن عدد الأعمدة أو الصفوف التي لديها.
قد تكون هناك طرق عديدة للقيام بذلك، ولكن أجد أنه من المفيد حقا لأن هذا الأسلوب يعمل على أي إصدار من Excel. لقضايا compatilidad وفقا لأحدث إصدارات Excel فقط التعامل مع 256 عمودا.
أول شيء نحتاجه هو إضافة إشارة إلى Microsoft.Office.Interop.Excel ونحن نفعل ما يلي:
استيراد إشارة إلى Excel
الاستيراد Excel مرجع
ثم نحن في حاجة الى شكل من الأشكال، زر، داتاغريدفيف وشريط التقدم. يمكن ان يكون لنا كما رأينا في الصورة:
استمارة طلب لتصدير بيانات إلى Excel
الآن أريد أن أظهر كل رمز بسيط حقا أهم شيء هو أن تتكيف مع أي جدول. سوف تكون قادرة على إعادة استخدام دون مشاكل.
واردات System.Data الواردات الفئة العامة Form1 System.Data.SqlClient الواردات DS الخاصة Microsoft.Office.Interop ومجموعة البيانات الجديدة الخاصة (الأساسية ByVal مرسل بواسطة البريد الالكتروني System.Object الأساسية ByVal، كما System.EventArgs) Form1_Load الفرعية مقابض 'MyBase.Load / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / إنشاء الاتصال وملء داتاغريدفيف '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / سى ان ان خافت وSqlConnection جديد ("مصدر البيانات = المضيف المحلي \ sqlexpress؛ السوق الأولية = Northwind؛ المتكاملة للأمن = صحيح") دا خافت وSqlDataAdapter جديد ("SELECT * من العملاء"، سي إن إن) ويعطي. شغل (DS) DataGridView1.DataSource ds.Tables = (0) نهاية الفرعية خاصة الفرعية btnExportar_Click (الأساسية ByVal مرسل بواسطة البريد الالكتروني System.Object الأساسية ByVal، كما System.EventArgs) مقابض btnExportar.Click '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / /: / / إنشاء كائن Excel "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / خافت خافت m_Excel objLibroExcel خافت objHojaExcel m_Excel = CREATEOBJECT ("Excel.Application") m_Excel.Workbooks.Add objLibroExcel = () = objLibroExcel.Worksheets objHojaExcel (1) objHojaExcel.Name = "العملاء" objHojaExcel.Visible = اكسل . XlSheetVisibility.xlSheetVisible objHojaExcel.Activate () '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / تعريف متغيرين للسيطرة على الصفوف والأعمدة' / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / خافت صف وعمود عدد صحيح 1 = خافت وصحيح = 1 '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / وضعنا خط مع رؤوس الأعمدة '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / objHojaExcel.Range ("A1"). حدد () لكل العاصمة في ds.Tables (0). أعمدة objHojaExcel.Range (ColumnName (عمود) و 1). القيمة = dc.ColumnName عمود + = 1 الصف التالي + = 1 '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / نحن تنسيق صف العناوين' / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / خافت وobjHojaExcel.Range Excel.Range objRango = ("A1:" وColumnName (ds.Tables (0) Columns.Count) و "1") objRango.Font . غامق = صحيح objRango.Cells.Interior.ColorIndex = 35 objRango.Cells.Borders (Excel.XlBordersIndex.xlDiagonalDown). LineStyle = Excel.XlLineStyle.xlLineStyleNone objRango.Cells.Borders (Excel.XlBordersIndex.xlDiagonalUp). LineStyle = اكسل. XlLineStyle.xlLineStyleNone objRango.Cells.Borders (Excel.XlBordersIndex.xlEdgeLeft). LineStyle = Excel.XlLineStyle.xlLineStyleNone objRango.Cells.Borders (Excel.XlBordersIndex.xlEdgeRight). LineStyle = objRango.Cells.Borders Excel.XlLineStyle.xlContinuous (اكسل . XlBordersIndex.xlEdgeTop). LineStyle = objRango.Cells.Borders Excel.XlLineStyle.xlContinuous (Excel.XlBordersIndex.xlEdgeBottom). LineStyle Excel.XlLineStyle.xlContinuous = '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / تحميل جميع الصفوف في DataTable' / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / ProgressBar1.Maximum = عمود Rows.Count ds.Tables (0). ProgressBar1.Value = 1 = 0 لكل عمود في صفوف الدكتور ds.Tables (0). = 1 لكل عمود في ds.Tables (0). أعمدة objHojaExcel.Range (ColumnName (العمود) والصف). القيمة = الدكتور (dc.ColumnName) عمود + = 1 الصف التالي + = 1 + 1 = ProgressBar1.Value التالي: / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /: / / نحن ضبط العرض تلقائيا "/ / لكافة الأعمدة المستخدمة '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / objRango = objHojaExcel.Range ("A1:". وColumnName (ds.Tables (0) Columns.Count) وds.Tables (0) Rows.Count.ToString) objRango.Select () objRango . Columns.AutoFit () '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /' / / ونحن نقول التفوق لعرض '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / MsgBox ("تصدير إلى Excel كاملة" ، MsgBoxStyle.Information ". :: solovb.net ::"). m_Excel.Visible = نهاية حقيقية الفرعية ColumnName وظيفة عامة (رقم الأساسية ByVal وصحيح) وعمود سلسلة خافت (256) وعمود سلسلة (1) = "A" العمود (2) = "ب" عمود (3) = "C" العمود (4) = "D" عمود (5) = "E" العمود (6) = "واو" العمود (7) = "G" العمود ( 8) = "H" العمود (9) = "أنا" العمود (10) = "J" العمود (11) = "ك" عمود (12) = "L" عمود (13) = "M" عمود (14) = "N" عمود (15) = "W" عمود (16) = "P" عمود (17) = "س" العمود (18) = "R" عمود (19) = "S" عمود (20) = " تي "العمود (21) =" U "عمود (22) =" V "عمود (23) =" W "عمود (24) =" X "عمود (25) =" Y "عمود (26) =" Z " عمود (27) = "AA" عمود (28) = "AB" عمود (29) = "AC" عمود (30) = "AD" عمود (31) = "AE" عمود (32) = "AF" العمود ( 33) = "AG" العمود (34) = "ه" العمود (35) = "الرقم" عمود (36) = "AJ" العمود (37) = "حزب العدالة والتنمية" عمود (38) = "إلى" عمود (39) = "صباحا" العمود (40) = "NA" عمود (41) = "AO" العمود (42) = "AP" العمود (43) = "القاعدة" العمود (44) = "RA" عمود (45) = " ب "عمود (46) =" AT "عمود (47) =" الاتحاد الافريقي "العمود (48) =" AV "العمود (49) =" AW "العمود (50) =" AX "العمود (51) =" عبد المنعم يوسف " عمود (52) = "من الألف إلى الياء" العمود (53) = "BA" العمود (54) = "BB" العمود (55) = "قبل الميلاد" العمود (56) = "BD" العمود (57) = "كن" العمود ( 58) = "BF" العمود (59) = "بريتش غاز" العمود (60) = "البوسنة والهرسك" عمود (61) = "BI" العمود (62) = "BJ" العمود (63) = "BK" العمود (64) = "BL" العمود (65) = "BM" العمود (66) = "الجبهة الوطنية" العمود (67) = "BO" العمود (68) = "بريتيش بتروليوم" العمود (69) = "BQ" العمود (70) = " BR "العمود (71) =" بكالوريوس "العمود (72) =" بريتيش تيليكوم "العمود (73) =" بو "عمود (74) =" BV "العمود (75) =" BW "العمود (76) =" BX " عمود (77) = "ب" عمود (78) = "BZ" العمود (79) = "CA" عمود (80) = "سي بي" العمود (81) = "CC" عمود (82) = "CD" العمود ( 83) = "CE" العمود (84) = "CF" العمود (85) = "الفريق الاستشاري" العمود (86) = "CH" العمود (87) = "CI" العمود (88) = "CJ" العمود (89) = "CK" العمود (90) = "CL" العمود (91) = "CM" العمود (92) = "CN" العمود (93) = "CO" عمود (94) = "CP" العمود (95) = " CQ "العمود (96) =" CR "عمود (97) =" CS "العمود (98) =" CT "العمود (99) =" الاتحاد الجمركي "عمود (100) =" السيرة الذاتية "عمود (101) =" CW " عمود (102) = "CX" عمود (103) = "قبرصي" عمود (104) = "تشيكوسلوفاكيا" عمود (105) = "DA" عمود (106) = "الديسيبل" عمود (107) = "DC" العمود ( 108) = "DD" عمود (109) = "DE" عمود (110) = "مدافع" عمود (111) = "ج" عمود (112) = "DH" عمود (113) = "اسم المستخدم" العمود (114) = "دي جي" عمود (115) = "لا أعرف" عمود (116) = "دل" عمود (117) = "DM" عمود (118) = "DN" عمود (119) = "ليفعل" عمود (120) = " موانئ دبي "عمود (121) =" DQ "عمود (122) =" DR "عمود (123) =" DS "عمود (124) =" DT "عمود (125) =" اليورانيوم المنضب "عمود (126) =" DV " عمود (127) = "DW" عمود (128) = "DX" عمود (129) = "DY" عمود (130) = "DZ" عمود (131) = "EA" عمود (132) = "EB" العمود ( 133) = "EC" عمود (134) = "الضعف الجنسي" عمود (135) = "EE" عمود (136) = "EF" عمود (137) = "على سبيل المثال" عمود (138) = "إيه" عمود (139) = "EI" عمود (140) = "EJ" عمود (141) = "ئي كيه" عمود (142) = "EL" عمود (143) = "MS" عمود (144) = "في" عمود (145) = " EO "عمود (146) =" الجيش الشعبي "عمود (147) =" EQ "عمود (148) =" ER "عمود (149) =" وفاق "عمود (150) =" ET "عمود (151) =" الاتحاد الأوروبي " عمود (152) = "EV" عمود (153) = "EW" عمود (154) = "EX" عمود (155) = "EY" عمود (156) = "EZ" عمود (157) = "FA" العمود ( 158) = "أف ب" عمود (159) = "اف سي" عمود (160) = "FD" عمود (161) = "FE" عمود (162) = "FF" عمود (163) = "FG" عمود (164) = "FH" عمود (165) = "FI" عمود (166) = "FJ" عمود (167) = "FK" عمود (168) = "فلوريدا" عمود (169) = "إف إم" عمود (170) = " الجبهة الوطنية "عمود (171) =" FO "عمود (172) =" FP "عمود (173) =" CF "عمود (174) =" FR "عمود (175) =" FS "عمود (176) =" فاينانشيال تايمز " عمود (177) = "فو" عمود (178) = "FV" عمود (179) = "مهاجم" عمود (180) = "FX" عمود (181) = "السنة المالية" عمود (182) = "FZ" العمود ( 183) = "GA" عمود (184) = "غيغابايت" عمود (185) = "GC" عمود (186) = "GD" عمود (187) = "جنرال الكتريك" عمود (188) = "GF" عمود (189) = "GG" عمود (190) = "GH" عمود (191) = "GI" عمود (192) = "GJ" عمود (193) = "حارس مرمى" عمود (194) = "GL" عمود (195) = " جنرال موتورز "عمود (196) =" GN "عمود (197) =" GO "عمود (198) =" GP "عمود (199) =" جي كيو "عمود (200) =" GR "عمود (201) =" ع " عمود (202) = "جي تي" عمود (203) = "جوام" عمود (204) = "GV" عمود (205) = "GW" عمود (206) = "GX" عمود (207) = "غراي" العمود ( 208) = "GZ" عمود (209) = "HA" عمود (210) = "HB" عمود (211) = "اتش سي" عمود (212) = "HD" عمود (213) = "هو" عمود (214) = "HF" عمود (215) = "HG" عمود (216) = "صاحب السمو" عمود (217) = "مرحبا" عمود (218) = "HJ" عمود (219) = "هونج كونج" عمود (220) = " HL "عمود (221) =" صاحب الجلالة "عمود (222) =" HN "عمود (223) =" هوو "عمود (224) =" إتش بي "عمود (225) =" HQ "عمود (226) =" الموارد البشرية " عمود (227) = "HS" عمود (228) = "حزب التحرير" عمود (229) = "هو" عمود (230) = "ذات الجهد العالي" عمود (231) = "الأب" عمود (232) = "H" العمود ( 233) = "HY" عمود (234) = "HZ" عمود (235) = "IA" عمود (236) = "IB" عمود (237) = "IC" عمود (238) = "اسم المستخدم" العمود (239) = "IE" عمود (240) = "IF" عمود (241) = "الجماعة الإسلامية" عمود (242) = "IH" عمود (243) = "الثاني" عمود (244) = "IJ" عمود (245) = " ايك "عمود (246) =" ايل "عمود (247) =" IM "عمود (248) =" في "عمود (249) =" IO "عمود (250) =" الملكية الفكرية "عمود (251) =" الذكاء " عمود (252) = "R" عمود (253) = "هو" عمود (254) = "تكنولوجيا المعلومات" عمود (255) = "واجهة" عمود (256) وظيفة النهاية = "الرابع" عمود العودة (عدد) من الدرجة النهاية وقد خدم هذا الأسلوب لي جيدا، وأرجو أن تفعل جدا ... الرجاء ترك تعليقاتك.
32 الردود على "تصدير تلقائيا DataTable إلى Microsoft Excel"
تعليق
معلومات Bitacoras.com ...
معدل في Bitacoras.com: مرحبا، اليوم أريد أن أعرض على سبيل المثال أن عملت لي لفترة طويلة وحتى الآن أنا لا يزال استخدامها. وسوف نبذل مثالا لتصدير DataTable إلى كامل إكسل بغض النظر عن عدد الأعمدة أو الصفوف التي تنغ .....
جيد ...
ممتاز آخر! شكرا ساعدني كامل، ولكن لدي شك .. كما كان الارتباط مع SQL .. كيف يمكنني إعادة تسمية الأعمدة؟ لأنه يجلب اسم مجالات SQL ..!
وآمل ولقد فهمت ..
شكرا لك!
أنا ذاهب لانقاذ ...
عند نقطة ما سوف يكون من المفيد ...
هل هو صالح لبرنامج Excel 2007؟ وقد أتيحت لي مشاكل مع صادرات لتطوير، وأنه صالح للإصدارات السابقة، ولكن ليس لعام 2007. شكرا
مصدر هائل رمز. عملت معي بشكل جيد. س كان قد تأخر كثيرا.
على الرغم من حاجة أيضا ecxel استيراد جدول بيانات. ولكن يمكن أن تكون البيئة إلى datagrid وتحديث ثم DataAdapter وقبول التغييرات في datatable سيتم حفظها في BD س ... آمل أن أتمكن من مساعدة أو العثور على .. شكرا
مرحبا شكرا جزيلا! هذا ممتاز!
ولكن أتساءل أين datagrid ينص على أن تستخدم في حالة الذين هم Datagrid عدة؟
على الطاولة كنت على اتصال ...
حدد * من (اسم الجدول)
إذا كنت ترغب في تحديد الحقول التي تريد
حدد (الحقول والحقول والميادين) * من جدول
ejm
حدد السيارة واللون والسنة من سيارة
لدي مشكلة مع هذا المثال أقوم 2 أخطاء في العاصمة والمتغيرات والدكتور، ويمكنني القيام به لاصلاحها؟
مرحبا، حاول هذا:
عن كل والدكتور DataRow في ds.Tables (0). الصفوف وDataColumn للحصول على كل العاصمة في ds.Tables مثل (0). أعمدة
وآمل أن يتم حل هذه. تحياتي.
حولا.
هذا chevere، ولكن جزء من اسم عمود غير فعال جدا.
أنا تحميل لبلدي بلوق حجم رمز أصغر بكثير حدود وبدون
jaysson.blogspot.com
استعداد وصعد المقال
http://jaysson.blogspot.com/2010/06/columnas-es-excel.html
حسن المقال، ولكن لدي مشكلة في جهاز الكمبيوتر الخاص بي يعمل مع اكسل 2007 على نحو سلس، ولكن مع أجهزة الكمبيوتر مع Excel 2003 أو في وقت سابق من لا يعمل. أحد يعرف ما إذا كانت المشكلة من المكتبات التي يتم استيرادها، وبما انك مما يدل على أن يعمل من أجل أي التفوق، ولكن لقد واجهت هذه المشكلة.
دعونا نرى ما اذا كان شخص ما يمكن أن تحل محل شك.
شكرا لك.
جيد ...
ممتاز آخر! شكرا ساعدني كامل، ولكن لدي شك .. كما كان الارتباط مع SQL .. كيف يمكنني إعادة تسمية الأعمدة؟ لأنه يجلب اسم مجالات SQL ..!
وآمل ولقد فهمت ..
شكرا لك!
الجمهور الفرعية ExportarDatosExcel (الأساسية ByVal DataGridView1 كما لقب، داتاغريدفيف الأساسية ByVal كسلسلة)
كما جديد Excel.Application خافت m_Excel
m_Excel.Cursor = Excel.XlMousePointer.xlWait
m_Excel.Visible = صحيح
كما Excel.Workbook خافت m_Excel.Workbooks.Add = objLibroExcel
كما Excel.Worksheet خافت objLibroExcel.Worksheets = objHojaExcel (1)
مع objHojaExcel
. مرئي = Excel.XlSheetVisibility.xlSheetVisible
. تنشيط ()
"رأس
. المدى ("A1: L1"). دمج ()
. المدى ("A1: L1"). القيمة = "معهد ARGENCAF"
. المدى ("A1: L1"). Font.Bold = صحيح
. المدى ("A1: L1"). Font.Size = 15
"الخصلة
. المدى ("A2: L2"). دمج ()
. المدى ("A2: L2"). القيمة = عنوان
. المدى ("A2: L2"). Font.Bold = صحيح
. المدى ("A2: L2"). Font.Size = 12
CONST primeraLetra كما شار = "A"
وكما كانت const firstNumber 3 = قصير
خافت الرسالة بوصفها شار، تشار وUltimaLetra
عدد قاتمة وصحيح، وصحيح UltimoNumero
خافت وتصاعديا بايت cod_letra = (primeraLetra) - 1
خافت وApplication.CurrentCulture.NumberFormat.NumberDecimalSeparator سلسلة sepDec =
خافت وApplication.CurrentCulture.NumberFormat.NumberGroupSeparator سلسلة sepMil =
"شكل مجموعة من الأعمدة من ابنة حساب
StrColumna خافت كما = سلسلة ""
LetraIzq خافت كما = سلسلة ""
خافت وتصاعديا بايت cod_LetraIzq = (primeraLetra) - 1
خطاب = primeraLetra
عدد = firstNumber
كما objCelda خافت Excel.Range
عن كل ج وDataGridViewColumn في DataGridView1.Columns
ثم إذا c.Visible
إذا رسالة = "Z" ثم
خطاب = primeraLetra
cod_letra = تصاعديا (primeraLetra)
cod_LetraIzq + = 1
LetraIzq = مركز حقوق الانسان (cod_LetraIzq)
آخر
cod_letra + = 1
خطاب = مركز حقوق الانسان (cod_letra)
نهاية إذا
strColumna = LetraIzq + كلمات + Numero.ToString
objCelda =. المدى (strColumna، Type.Missing)
objCelda.Value = c.HeaderText
objCelda.EntireColumn.Font.Size = 8
'ObjCelda.EntireColumn.NumberFormat = c.DefaultCellStyle.Format
إذا c.ValueType هل GetType (عشري) OrElse c.ValueType هل GetType (مزدوجة) ثم
objCelda.EntireColumn.NumberFormat = "#" + + sepMil "0" + + sepDec "00"
نهاية إذا
نهاية إذا
التالي
كما objRangoEncab خافت Excel.Range =. المدى (primeraLetra + + Numero.ToString Numero.ToString، LetraIzq + كلمات)
objRangoEncab.BorderAround (1، Excel.XlBorderWeight.xlMedium)
UltimaLetra = إرسال
خافت وLetraIzq سلسلة UltimaLetraIzq =
تحميل البيانات "
خافت أنا وعدد صحيح + 1 =
لكل قائمة في ما DataGridView1.Rows DataGridViewRow
LetraIzq = ""
cod_LetraIzq = تصاعديا (primeraLetra) - 1
خطاب = primeraLetra
cod_letra = تصاعديا (primeraLetra) - 1
عن كل ج وDataGridViewColumn في DataGridView1.Columns
ثم إذا c.Visible
إذا رسالة = "Z" ثم
خطاب = primeraLetra
cod_letra = تصاعديا (primeraLetra)
cod_LetraIzq + = 1
LetraIzq = مركز حقوق الانسان (cod_LetraIzq)
آخر
cod_letra + = 1
خطاب = مركز حقوق الانسان (cod_letra)
نهاية إذا
strColumna = LetraIzq + كلمات
"يجب أن يكون هنا لتحميل
. خلايا (ط، strColumna) = معهد التمويل الدولي (IsDBNull (reg.ToString)، ""، reg.Cells (c.Index). القيمة)
'. خلايا (ط، strColumna) = معهد التمويل الدولي (IsDBNull (reg. (c.DataPropertyName))، c.DefaultCellStyle.NullValue، ريج (c.DataPropertyName))
'. المدى (strColumna + أنا، strColumna + ط). في ()
نهاية إذا
التالي
كما objRangoReg خافت Excel.Range =. المدى (primeraLetra + i.ToString، i.ToString strColumna +)
objRangoReg.Rows.BorderAround ()
objRangoReg.Select ()
أنا + = 1
التالي
UltimoNumero = أنا
"رسم خطوط من الأعمدة
LetraIzq = ""
cod_LetraIzq = تصاعديا ("A")
cod_letra = تصاعديا (primeraLetra)
خطاب = primeraLetra
عن كل ج وDataGridViewColumn في DataGridView1.Columns
ثم إذا c.Visible
. objCelda = المدى (LetraIzq + كلمات + primerNumero.ToString، LetraIzq + كلمات + (UltimoNumero - 1) ToString)
objCelda.BorderAround ()
إذا رسالة = "Z" ثم
خطاب = primeraLetra
cod_letra = تصاعديا (primeraLetra)
LetraIzq = مركز حقوق الانسان (cod_LetraIzq)
cod_LetraIzq + = 1
آخر
cod_letra + = 1
خطاب = مركز حقوق الانسان (cod_letra)
نهاية إذا
نهاية إذا
التالي
"رسم الحدود سميكة الخارجي
كما objRango خافت Excel.Range = المدى. (primeraLetra + primerNumero.ToString، UltimaLetra UltimaLetraIzq + + (UltimoNumero - 1) ToString)
objRango.Select ()
objRango.Columns.AutoFit ()
objRango.Columns.BorderAround (1، Excel.XlBorderWeight.xlMedium)
مع نهاية
m_Excel.Cursor = Excel.XlMousePointer.xlDefault
نهاية الفرعية
ToolStripButton2_Click_1 الفرعية الخاصة (الأساسية ByVal مرسل بواسطة البريد الالكتروني System.Object الأساسية ByVal، كما System.EventArgs) مقابض ToolStripButton2.Click
ExportarDatosExcel (DataGridView1، "تصدير")
نهاية الفرعية
ممتاز!! .... عملت بفضل شقيق، وأخذت 3 أيام مع وحدة لاستيراد / تصدير اكسل وشيء .... ولكن مع الحل الخاص بك مرة أخرى وأرى النجوم ... تحية من أريكويبا:! ..
عفوا. أنا سعيد لأنك بمثابة مثال على ذلك.
وساعد هذا الرمز لي الكثير، لذلك أنا التعاون مع سنتا بلدي اثنين:
وقد الأمثل "ColumnName" للتوصل ahsta ZZ عمود (702 آخرون.)
هنا أنا أعطيك رمز:
ColumnName وظيفة عامة (عدد الأساسية ByVal وصحيح) كسلسلة
خافت عمود (703) كسلسلة
العمود (1) = "A"
العمود (2) = "ب"
العمود (3) = "C"
العمود (4) = "D"
عمود (5) = "E"
العمود (6) = "واو"
العمود (7) = "G"
العمود (8) = "H"
العمود (9) = "أنا"
العمود (10) = "J"
العمود (11) = "K"
عمود (12) = "L"
عمود (13) = "M"
عمود (14) = "N"
عمود (15) = "O"
عمود (16) = "P"
عمود (17) = "س"
عمود (18) = "R"
عمود (19) = "S"
عمود (20) = "T"
عمود (21) = "U"
عمود (22) = "V"
عمود (23) = "W"
عمود (24) = "X"
عمود (25) = "Y"
عمود (26) = "Z"
خافت أنا = 27
لLtr1 = 1 إلى 26
لLtr2 = 1 إلى 26
العمود (ط) = عمود (Ltr1) والعمود (Ltr2)
أنا + = 1
التالي
التالي
عمود عودة (عدد)
نهاية وظيفة
TECKNOCK، شكرا جزيلا للمساعدة!، ولكن أن نضع في اعتبارنا أنه إذا كان الكتاب نخلق متوافق مع الأعمدة اكسل 97-2003 الحد الأقصى المسموح به هو 256 (والرابع). تماما كما تعليقا على تأخذ ذلك في الحسبان.
إليشا
عند تشغيل تطبيق funcioana المحلية بشكل صحيح، ولكن عند تحميله على موقع على الانترنت لا يولد في التفوق ولكن لا تحصل على خطأ
أنا أبحث haciend وتستند إلى SQL بلدي
ليس مثل كنت تفعل ولكن سأبذل AJA
أحتاج مساعدة تحاول أن تفعل ذلك بكل وسيلة وجودك هنا وأحصل على خطأ جميع
اليد، وكنت في أقصى funca الكمال.
[...] [...]
جيد جدا، هي في أفضل آخر تهاني لقد قرأت والتشاور
شكرا لك! وكان من المفيد جدا
يا رمز لا يعمل على لي يمثل أخطاء da.Fill (DS)
أنا بمناسبة خطأ لم يتم العثور على SqlException
هل يمكنك مساعدتي
يمكن للمرء أن مسألة جعل مباشرة استعلام SQL التحميل على التفوق؟
سلفا من خلال
مرحبا أولا وقبل كل agradesco لكم مساهمتكم أصدقاء.
لاحظ أن لدي مشكلة لا أستطيع أن أجد المرجع الذي يشير، وأنا قد قمت بتثبيت أوفيس 2010، والتي لا يمكن أن يكون مشكلة لي.
agradeseria بعض النصائح لك.
مرحبا، مساهمة جيدة جدا هو ما كنت أبحث ... ولكن عند تشغيل من الخادم أعمال التطوير الكمال، ولكن عندما كنت وصول إلى شبكة الإنترنت من كمبيوتر آخر لا يفعل شيئا خطأ ... ولكن لا يفعل شيئا ليس سجل ...
أحد يعرف كيف لاصلاحها؟
ساعد شكرا جزيلا لك، لي سبيل المثال الخاص كأساس لتوليد وظيفة لي أن يولد ملف Excel ولكن مباشرة من القيم المخزنة في شبكة ما dejor حالة مفيدة لشخص ما
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"/ / وضعنا خط مع عناوين الأعمدة
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
objHojaExcel.Range ("A1"). حدد ()
خافت أنا وصحيح = 0
Lncol خافت وصحيح = 1
عن كل العاصمة في dgvSocios.Columns
إذا dgvSocios.Columns.Item (I). المرئية = صحيح ثم
objHojaExcel.Range (ColumnName (lncol) و 1). القيمة = dgvSocios.Columns.Item (I). HeaderText
lncol + = 1
نهاية إذا
أنا + = 1
التالي
صف + = 1
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / نحن تنسيق عناوين صف
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
كما Excel.Range خافت objHojaExcel.Range = objRango ("A1:" & ColumnName (lncol) و "1")
objRango.Font.Bold = صحيح
objRango.Cells.Interior.ColorIndex = 35
objRango.Cells.Borders (Excel.XlBordersIndex.xlDiagonalDown). LineStyle = Excel.XlLineStyle.xlLineStyleNone
objRango.Cells.Borders (Excel.XlBordersIndex.xlDiagonalUp). LineStyle = Excel.XlLineStyle.xlLineStyleNone
objRango.Cells.Borders (Excel.XlBordersIndex.xlEdgeLeft). LineStyle = Excel.XlLineStyle.xlLineStyleNone
objRango.Cells.Borders (Excel.XlBordersIndex.xlEdgeRight). LineStyle = Excel.XlLineStyle.xlContinuous
objRango.Cells.Borders (Excel.XlBordersIndex.xlEdgeTop). LineStyle = Excel.XlLineStyle.xlContinuous
objRango.Cells.Borders (Excel.XlBordersIndex.xlEdgeBottom). LineStyle = Excel.XlLineStyle.xlContinuous
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / تحميل جميع الصفوف في DataTable
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
ProgressBar1.Maximum = dgvSocios.Rows.Count
عمود = 0
ProgressBar1.Value = 0
ProgressBar1.Visible = صحيح
Lnfila خافت وصحيح = 0
أنا = 1
عن كل دكتور في dgvSocios.Rows
عمود = 0
عن كل العاصمة في dgvSocios.Columns
إذا dgvSocios.Columns.Item (العمود). المرئية = صحيح ثم
objHojaExcel.Range (ColumnName (I) و صف). القيمة = dgvSocios.Item (العمود، lnfila). Value.ToString
أنا + = 1
نهاية إذا
عمود + = 1
التالي
lnfila + = 1
صف + = 1
ProgressBar1.Value + = 1
التالي
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / نحن ضبط العرض تلقائيا
'/ / من كافة الأعمدة المستخدمة
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
objRango = objHojaExcel.Range ("A1:" & ColumnName (lncol) و (lnfila + 1) ToString.)
objRango.Select ()
objRango.Columns.AutoFit ()
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / نحن نقول Excel لعرض
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
MsgBox ("تصدير إلى إكسل كاملة" MsgBoxStyle.Information،، ". :: Solovb.net ::.")
m_Excel.Visible = صحيح
جلب قليلا لهذه المهمة، التعليمات البرمجية التالية يمنع استخدام "المدى" للا تتطلب وظيفة "ColumnName"
التحيات،
واردات System.Data
واردات System.Data.SqlClient
واردات Microsoft.Office.Interop.Excel
جمهور الوحدة mutil
الجمهور الفرعية ExportarDtToExcel (تثنية الأساسية ByVal كما لقب System.Data.DataTable الأساسية ByVal، وسلسلة)
كما m_Excel خافت Excel.Application
كما objLibroExcel خافت Excel.Workbook
كما objHojaExcel خافت ورقة العمل
محاولة
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"/ / إنشاء كائن Excel
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / /
m_Excel = CREATEOBJECT ("Excel.Application")
m_Excel.Workbooks.Add objLibroExcel = ()
objHojaExcel = objLibroExcel.Worksheets (1)
objHojaExcel.Name = عنوان
objHojaExcel.Visible = Excel.XlSheetVisibility.xlSheetVisible
objHojaExcel.Activate ()
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"/ / تعريف متغيرين للسيطرة على الصفوف والأعمدة
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
خافت صف و1 = عدد صحيح
خافت عمود ك 1 = عدد صحيح
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"/ / وضعنا خط مع عناوين الأعمدة
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'ObjHojaExcel.Range ("A1"). حدد ()
objHojaExcel.Cells (صف، عمود). حدد ()
عن كل العاصمة في Dt.Columns
objHojaExcel.Cells (صف، عمود). القيمة = dc.ColumnName
عمود + = 1
التالي
صف + = 1
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / نحن تنسيق عناوين صف
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
كما Excel.Range = objHojaExcel.Range objRango خافت (objHojaExcel.Cells (1، 1)، objHojaExcel.Cells (1، Dt.Columns.Count))
objRango.Font.Bold = صحيح
objRango.Cells.Interior.ColorIndex = 35
objRango.Cells.Borders (Excel.XlBordersIndex.xlDiagonalDown). LineStyle = Excel.XlLineStyle.xlLineStyleNone
objRango.Cells.Borders (Excel.XlBordersIndex.xlDiagonalUp). LineStyle = Excel.XlLineStyle.xlLineStyleNone
objRango.Cells.Borders (Excel.XlBordersIndex.xlEdgeLeft). LineStyle = Excel.XlLineStyle.xlLineStyleNone
objRango.Cells.Borders (Excel.XlBordersIndex.xlEdgeRight). LineStyle = Excel.XlLineStyle.xlContinuous
objRango.Cells.Borders (Excel.XlBordersIndex.xlEdgeTop). LineStyle = Excel.XlLineStyle.xlContinuous
objRango.Cells.Borders (Excel.XlBordersIndex.xlEdgeBottom). LineStyle = Excel.XlLineStyle.xlContinuous
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / تحميل جميع الصفوف في DataTable
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
عمود = 1
عن كل دكتور في Dt.Rows
عمود = 1
عن كل العاصمة في Dt.Columns
objHojaExcel.Cells (صف، عمود). القيمة = الدكتور (dc.ColumnName)
عمود + = 1
التالي
صف + = 1
التالي
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / نحن ضبط العرض تلقائيا
'/ / من كافة الأعمدة المستخدمة
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
objHojaExcel.Cells objRango = (1، Dt.Columns.Count)
objRango.Select ()
objRango.Columns.AutoFit ()
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / نحن نقول Excel لعرض
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
MsgBox ("تصدير إلى Excel كاملة" MsgBoxStyle.Information، "تصدير")
m_Excel.Visible = صحيح
قبض السابقين واستثناء
MsgBox (ex.ToString)
أخيرا
objHojaExcel = لا شيء
objLibroExcel = لا شيء
m_Excel = لا شيء
انهاء محاولة
نهاية الفرعية
نهاية الوحدة