Awtomatikament esportazzjonijiet lejn Microsoft Excel DataTable
Posted by Elisha fil Eżempji , il Features , il tutorials fuq 11 22, 2009 | L 32 tweġibiet
Illum nixtieq li juru eżempju li serva lili għal żmien twil u għadhom I għadhom jużawha.
Aħna se tagħmel eżempju biex jesporta DataTable li Excel sħiħa irrispettivament min-numru ta 'kolonni jew ringieli li għandhom.
Jista 'jkun hemm ħafna modi biex tagħmel dan, iżda I jsibuha verament utli peress li dan il-metodu jaħdem għal kwalunkwe verżjoni ta' Excel. Għal kwistjonijiet compatilidad ma 'verżjonijiet ġodda ta' Excel biss jimmaniġġjaw 256 kolonni.
L-ewwel ħaġa li għandna bżonn huwa li tiżdied referenza għall Microsoft.Office.Interop.Excel u nagħmlu kif ġej:
Importazzjoni referenza għall Excel
Importazzjoni Excel referenza
Imbagħad għandna bżonn forma, buttuna, DataGridView u progress bar. Jista 'jkollna kif jidher fl-istampa:
Formola ta 'applikazzjoni għall-esportazzjoni dataset li jisbqu
Issa nixtieq li juru l-kodiċi huwa verament sempliċi iktar ħaġa importanti hija li dan jadatta għal kull tabella. Inti se tkun tista 'użu mill-ġdid mingħajr problemi.
Importazzjonijiet System.Data Importazzjonijiet System.Data.SqlClient Importazzjonijiet Microsoft.Office.Interop Pubblika Klassi Form1 Ds privati Bħala dataset New Privat Sub Form1_Load (ByVal mittent Bħala System.Object, ByVal e Bħala System.EventArgs) Mankijiet MyBase.Load "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / "/ / Oħloq il-konnessjoni u imla l-DataGridView "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / Dim CNN Bħala SqlConnection Ġdid ("Sors tad-data = localhost \ sqlexpress; Catalog inizjali = Northwind; Integrata Sigurtà = Veru") Da DIM Kif SqlDataAdapter Ġdid ("* Agħżel mill-klijenti", CNN) da.Fill (ds) DataGridView1.DataSource ds.Tables = (0) Tmiem Sub BtnExportar_Click Privat Sostitut (mittent ByVal Fir System.Object, ByVal e Bħala System.EventArgs) Mankijiet btnExportar.Click "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / "/ / Oħloq id-Għan Excel "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / Dim m_Excel Dim objLibroExcel Dim objHojaExcel m_Excel = CreateObject ("Excel.Application") m_Excel.Workbooks.Add objLibroExcel = () objHojaExcel = objLibroExcel.Worksheets (1) objHojaExcel.Name = "Klijenti" objHojaExcel.Visible = Excel.XlSheetVisibility.xlSheetVisible objHojaExcel.Activate () "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / "/ / Tiddefinixxi żewġ varjabbli għall-kontroll ringiela u l-kolonna "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / Ringiela DIM Kif Integer = 1 Kolonna DIM Kif Integer = 1 "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / "/ / Waqqafna l-linja ma 'l-intestaturi tal-kolonna "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / objHojaExcel.Range ("A1"). Agħżel () Għall Kull DC Fil ds.Tables (0) Kolonni objHojaExcel.Range (ColumnName (kolonna) u 1). Valur = dc.ColumnName kolonna + = 1 Jmiss ringiela + = 1 "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / "/ / Aħna format-titoli ringiela "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / Bħala objHojaExcel.Range DIM Excel.Range = objRango ("A1:" & ColumnName (ds.Tables (0) Columns.Count) & "1".) objRango.Font.Bold = True 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 "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / "/ / Tagħbija kollha ringieli fil-datatable "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / ProgressBar1.Maximum = ds.Tables (0). Rows.Count kolonna = 1 ProgressBar1.Value = 0 Għal Kull dr Fil ds.Tables (0). Ringieli kolonna = 1 Għall Kull DC Fil ds.Tables (0) Kolonni objHojaExcel.Range (ColumnName (kolonna) u ringiela). Valur = dr (dc.ColumnName) kolonna + = 1 Jmiss ringiela + = 1 ProgressBar1.Value + = 1 Jmiss "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / "/ / Aħna jaġġustaw il-wisa 'awtomatikament "/ / Minn dak kollu li kolonni użati "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / objRango = objHojaExcel.Range ("A1:" & ColumnName (ds.Tables (0) Columns.Count) & ds.Tables (0) Rows.Count.ToString..) objRango.Select () objRango.Columns.AutoFit () "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / "/ / We tell Excel li juri "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / MsgBox ("Esportazzjoni lejn Excel kompleti", MsgBoxStyle.Information, ". :: Solovb.net ::.") m_Excel.Visible = True Tmiem Sub Pubblika Funzjoni ColumnName (numru ByVal Kif Integer) Kif String Kolonna DIM (256) Kif String Kolonna (1) = "A" kolonna (2) = "B" kolonna (3) = "C" kolonna (4) = "D" kolonna (5) = "E" kolonna (6) = "F" kolonna (7) = "G" kolonna (8) = "H" kolonna (9) = "I" (10) kolonna = "J" kolonna (11) = "K" (12) kolonna = "L" kolonna (13) = "M" (14) kolonna = "N" kolonna (15) = "O" kolonna (16) = "P" (17) kolonna = "Q" kolonna (18) = "R" kolonna (19) = "S" kolonna (20) = "T" kolonna (21) = "U" kolonna (22) = "V" kolonna (23) = "W" kolonna (24) = "X" (25) kolonna = "Y" kolonna (26) = "Z" kolonna (27) = "AA" kolonna (28) = "AB" kolonna (29) = "AC" kolonna (30) = "AD" (31) kolonna = "AE" (32) kolonna = "AF" (33) kolonna = "AG" kolonna (34) = "AH" kolonna (35) = "AI" (36) kolonna = "AJ" (37) kolonna = "AK" kolonna (38) = "AL" kolonna (39) = "AM" kolonna (40) = "AN" (41) kolonna = "AO" kolonna (42) = "AP" kolonna (43) = "AQ" kolonna (44) = "AR" (45) kolonna = "AS" kolonna (46) = "AT" kolonna (47) = "UA" kolonna (48) = "AV" kolonna (49) = "AW" kolonna (50) = "AX" kolonna (51) = "AY" kolonna (52) = "AZ" kolonna (53) = "BA" kolonna (54) = "BB" kolonna (55) = "BC" kolonna (56) = "BD" kolonna (57) = "BE" kolonna (58) = "BF" kolonna (59) = "BG" kolonna (60) = "BH" kolonna (61) = "BI" kolonna (62) = "BJ" kolonna (63) = "BK" kolonna (64) = "BL" (65) kolonna = "BM" kolonna (66) = "BN" kolonna (67) = "BO" kolonna (68) = "BP" kolonna (69) = "BQ" kolonna (70) = "BR" (71) kolonna = "BS" kolonna (72) = "BT" (73) kolonna = "BU" kolonna (74) = "BV" kolonna (75) = "BW" (76) kolonna = "BX" kolonna (77) = "MINN" kolonna (78) = "BZ" (79) kolonna = "CA" kolonna (80) = "CB" (81) kolonna = "CC" kolonna (82) = "CD" (83) kolonna = "CE" kolonna (84) = "CF" kolonna (85) = "CG" (86) kolonna = "CH" kolonna (87) = "CI" kolonna (88) = "CJ" (89) kolonna = "CK" kolonna (90) = "CL" (91) kolonna = "CM" kolonna (92) = "NM" (93) kolonna = "CO" (94) kolonna = "CP" kolonna (95) = "CQ" kolonna (96) = "CR" kolonna (97) = "CS" kolonna (98) = "CT" kolonna (99) = "CU" kolonna (100) = "CV" kolonna (101) = "CW" (102) kolonna = "CX" kolonna (103) = "CY" kolonna (104) = "CZ" kolonna (105) = "DA" kolonna (106) = "DB" kolonna (107) = "DC" kolonna (108) = "DD" kolonna (109) = "DE" kolonna (110) = "DF" kolonna (111) = "DĠ" kolonna (112) = "DH" kolonna (113) = "ID" kolonna (114) = "DJ" (115) kolonna = "DK" kolonna (116) = "DL" kolonna (117) = "DM" kolonna (118) = "DN" kolonna (119) = "DO" kolonna (120) = "DP" kolonna (121) = "DQ" kolonna (122) = "DR" (123) kolonna = "DS" kolonna (124) = "DT" (125) kolonna = "DU" kolonna (126) = "DV" kolonna (127) = "DW" (128) kolonna = "DX" kolonna (129) = "DY" kolonna (130) = "DZ" kolonna (131) = "EA" (132) kolonna = "EB" kolonna (133) = "KE" (134) kolonna = "ED" kolonna (135) = "EE" (136) kolonna = "EF" kolonna (137) = "EG" kolonna (138) = "EH" kolonna (139) = "EI" kolonna (140) = "EJ" kolonna (141) = "EK" kolonna (142) = "FI" kolonna (143) = "MS" (144) kolonna = "MT" kolonna (145) = "OE" kolonna (146) = "PE" kolonna (147) = "EQ" kolonna (148) = "ER" kolonna (149) = "ES" kolonna (150) = "ET" (151) kolonna = "UE" kolonna (152) = "VE" kolonna (153) = "EW" kolonna (154) = "EX" (155) kolonna = "EY" kolonna (156) = "EZ" kolonna (157) = "AF" kolonna (158) = "FB" (159) kolonna = "FC" (160) kolonna = "FD" kolonna (161) = "FE" kolonna (162) = "FF" kolonna (163) = "FG" kolonna (164) = "FH" kolonna (165) = "FI" kolonna (166) = "FJ" kolonna (167) = "FK" kolonna (168) = "FL" kolonna (169) = "FM" kolonna (170) = "FN" kolonna (171) = "FO" (172) kolonna = "FP" kolonna (173) = "CF" kolonna (174) = "FR" kolonna (175) = "FS" (176) kolonna = "FT" kolonna (177) = "FU" kolonna (178) = "PV" kolonna (179) = "FW" kolonna (180) = "FX" kolonna (181) = "SF" kolonna (182) = "FZ" kolonna (183) = "GA" kolonna (184) = "GB" (185) kolonna = "GC" kolonna (186) = "GD" (187) kolonna = "GE" kolonna (188) = "GF" (189) kolonna = "GG" (190) kolonna = "GH" kolonna (191) = "GI" kolonna (192) = "GJ" kolonna (193) = "GK" (194) kolonna = "GL" (195) kolonna = "GM" kolonna (196) = "GN" kolonna (197) = "GO" kolonna (198) = "GP" kolonna (199) = "GQ" kolonna (200) = "GR" (201) kolonna = "GS" kolonna (202) = "TG" kolonna (203) = "GU" kolonna (204) = "GV" kolonna (205) = "GW" kolonna (206) = "GX" (207) kolonna = "GY" (208) kolonna = "GZ" (209) kolonna = "HA" kolonna (210) = "HB" kolonna (211) = "HC" (212) kolonna = "HD" kolonna (213) = "HE" kolonna (214) = "HF" kolonna (215) = "HG" kolonna (216) = "HH" (217) kolonna = "HI" kolonna (218) = "HJ" (219) kolonna = "HK" kolonna (220) = "HL" (221) kolonna = "HM" kolonna (222) = "HN" kolonna (223) = "HO" (224) kolonna = "HP" (225) kolonna = "HQ" kolonna (226) = "HR" (227) kolonna = "SA" (228) kolonna = "HT" kolonna (229) = "HU" kolonna (230) = "HV" (231) kolonna = "HW" kolonna (232) = "H" kolonna (233) = "HY" kolonna (234) = "HZ" kolonna (235) = "EI" kolonna (236) = "IB" kolonna (237) = "IK" kolonna (238) = "ID" kolonna (239) = "IE" kolonna (240) = "IF" (241) kolonna = "IG" kolonna (242) = "IH" kolonna (243) = "II" kolonna (244) = "IJ" kolonna (245) = "IK" kolonna (246) = "IL" (247) kolonna = "IM" kolonna (248) = "FIL" kolonna (249) = "IO" kolonna (250) = "PI" kolonna (251) = "IQ" kolonna (252) = "R" kolonna (253) = "IS" kolonna (254) = "IT" kolonna (255) = 'IU' kolonna (256) = "IV" Kolonna Ritorn (numru) Funzjoni Tmiem Klassi Tmiem
Dan il-metodu serva lili ukoll u nispera li inti tagħmel wisq ... jekk jogħġbok leave kummenti tiegħek.
32 Responses to "Awtomatikament Esportazzjoni DataTable lill-Microsoft Excel"
Comment
Informazzjoni Bitacoras.com ...
Rata fil Bitacoras.com: Hi, Illum nixtieq li juru eżempju li serva lili għal żmien twil u għadhom I għadhom jużawha. Aħna se tagħmel eżempju biex jesporta DataTable li Excel sħiħa irrispettivament min-numru ta 'kolonni jew ringieli li Teng .....
Tajba ...
Eċċellenti wara! Grazzi għenuni sħiħ, imma għandi dubju .. Peress li l-link huwa ma sql .. Kif nista 'tibdel isem kolonni! Minħabba li ġġib l-isem tal-oqsma tal-sql ..!
Nispera u fhimt ..
Grazzi!
Jien ser jiffrankaw ...
f'xi punt se jkun utli ...
Huwa validu għal Excel 2007? I kellhom problemi bil-esportazzjonijiet biex jiżviluppaw, li huwa validu għall-verżjonijiet preċedenti, iżda mhux għall-2007. Grazzi
Kodiċi enormi sors. serva lili ukoll. q li ilha ġejja.
Għalkemm jeħtieġu wkoll ecxel l-importazzjoni ta 'tabella tad-data. iżda tista 'tkun ambjentali lil datagrid u mbagħad aġġornati l-DataAdapter u taċċetta bidliet fil datatable jiġu ffrankati fil-bd q ... I hope I jistgħu jgħinu jew biex isibu .. grazzi
Hi Ħafna grazzi! dan eċċellenti!
Imma I wonder fejn datagrid tispeċifika li tintuża fil-każ li huma Datagrid diversi?
Fuq il-mejda int fuq sejħa ...
tagħżel * minn (isem tabella)
Jekk inti tixtieq li tispeċifika liema oqsma trid
tagħżel (oqsma, oqsma, oqsma) * mit-tabella
ejm
tagħżel, karozza kulur, sena mill-karozza
Għandi problema b'dan l-eżempju nagħmel 2 żbalji fil-varjabbli DC u dr, nista 'nagħmel biex jiffissaw dan?
Hi, ipprova din:
Għall Kull dr Bħala DataRow Fil ds.Tables (0). Ringieli u DataColumn Għall Kull dc Fil ds.Tables bħala (0) Kolonni
Nittama li dan huwa solvuti. Tislijiet.
hola.
dan chevere, iżda parti mill-isem kolonna ma tantx funzjonali.
I ser upload biex blog tiegħi ftit limitazzjonijiet ħafna iżgħar kodiċi u mingħajr
jaysson.blogspot.com
lesti u marru l-artikolu
http://jaysson.blogspot.com/2010/06/columnas-es-excel.html
Artikolu Tajba, imma għandi problema fuq il-kompjuter tiegħi ma Excel 2007 taħdem bla xkiel, iżda ma 'kompjuters ma' Excel 2003 jew qabel ma taħdimx. Xi ħadd jaf jekk il-problema ta 'libreriji li huma importati, peress li inti jimplika li x-xogħlijiet għal kwalunkwe Excel, imma ltqajt magħha din il-problema.
Ejja naraw jekk xi ħadd jista 'jsolvi l-dubju.
Grazzi.
Tajba ...
Eċċellenti wara! Grazzi għenuni sħiħ, imma għandi dubju .. Peress li l-link huwa ma sql .. Kif nista 'tibdel isem kolonni! Minħabba li ġġib l-isem tal-oqsma tal-sql ..!
Nispera u fhimt ..
Grazzi!
Pubblika Sub ExportarDatosExcel (ByVal DataGridView1 Bħala DataGridView, titolu ByVal Kif String)
Kif New m_Excel Excel.Application DIM
= m_Excel.Cursor Excel.XlMousePointer.xlWait
m_Excel.Visible = True
Bħala objLibroExcel Excel.Workbook DIM = m_Excel.Workbooks.Add
Bħala objLibroExcel.Worksheets DIM Excel.Worksheet = objHojaExcel (1)
Bil objHojaExcel
. Viżibbli = Excel.XlSheetVisibility.xlSheetVisible
. Activate ()
"Header
. Medda ("A1: L1"). Merge ()
. Medda ("A1: L1"). Valur = "ISTITUT ARGENCAF"
. Medda ("A1: L1"). Font.Bold = Veru
. Medda ("A1: L1"). Font.Size = 15
"Tuft
. Medda ("A2: L2"). Merge ()
. Medda ("A2: L2"). Valur = titolu
. Medda ("A2: L2"). Font.Bold = Veru
. Medda ("A2: L2"). Font.Size = 12
Const primeraLetra Bħala Char = "A"
FirstNumber Const Bħala qasira = 3
Ittra DIM Kif Char, Char Bħala UltimaLetra
Numru DIM Kif Integer, UltimoNumero Kif Integer
Dim Bħala Byte cod_letra ASC = (primeraLetra) - 1
Dim Bħala sepDec Application.CurrentCulture.NumberFormat.NumberDecimalSeparator String =
Dim Bħala sepMil Application.CurrentCulture.NumberFormat.NumberGroupSeparator String =
"Sett format tal-kolonni tal-bint ta 'kalkolu
StrColumna DIM Kif String = ""
LetraIzq DIM Kif String = ""
Dim Bħala Byte cod_LetraIzq ASC = (primeraLetra) - 1
Ittra = primeraLetra
Numru = firstNumber
Bħala Excel.Range DIM objCelda
Għall Kull ċ Bħala DataGridViewColumn Fil DataGridView1.Columns
Imbagħad jekk c.Visible
Jekk Ittra = "Z" Imbagħad
Ittra = primeraLetra
cod_letra = ASC (primeraLetra)
cod_LetraIzq + = 1
LetraIzq = Chr (cod_LetraIzq)
Else
cod_letra + = 1
Ittra = Chr (cod_letra)
Tmiem Jekk
strColumna = LetraIzq + Lyrics + Numero.ToString
objCelda =. Medda (strColumna, Type.Missing)
objCelda.Value = c.HeaderText
objCelda.EntireColumn.Font.Size = 8
"ObjCelda.EntireColumn.NumberFormat = c.DefaultCellStyle.Format
Jekk c.ValueType Huwa GetType (Deċimali) OrElse c.ValueType Huwa GetType (Double) Imbagħad
objCelda.EntireColumn.NumberFormat = "#" + sepMil + "0" + sepDec + "00"
Tmiem Jekk
Tmiem Jekk
Jmiss
Bħala Excel.Range DIM objRangoEncab =. Medda (primeraLetra + Numero.ToString, il LetraIzq + Il + Lyrics Numero.ToString)
objRangoEncab.BorderAround (1, Excel.XlBorderWeight.xlMedium)
UltimaLetra = Send
Dim Kif String UltimaLetraIzq LetraIzq =
TAGĦBIJA DATA "
I DIM Kif Integer = Numru + 1
Għall Kull Lista Fil Bħala DataGridViewRow DataGridView1.Rows
LetraIzq = ""
cod_LetraIzq = ASC (primeraLetra) - 1
Ittra = primeraLetra
cod_letra = ASC (primeraLetra) - 1
Għall Kull ċ Bħala DataGridViewColumn Fil DataGridView1.Columns
Imbagħad jekk c.Visible
Jekk Ittra = "Z" Imbagħad
Ittra = primeraLetra
cod_letra = ASC (primeraLetra)
cod_LetraIzq + = 1
LetraIzq = Chr (cod_LetraIzq)
Else
cod_letra + = 1
Ittra = Chr (cod_letra)
Tmiem Jekk
strColumna = l LetraIzq + Il Lyrics
"Hawn għandu jkun il-piż
Ċelloli. (I, strColumna) = IIF (IsDBNull (reg.ToString), "", reg.Cells (c.Index). Valur)
". Ċelloli (i, strColumna) = IIF (IsDBNull (Reg. (c.DataPropertyName)), c.DefaultCellStyle.NullValue, reg (c.DataPropertyName))
". Medda (strColumna + i, strColumna + i). F '()
Tmiem Jekk
Jmiss
Bħala Excel.Range DIM objRangoReg =. Medda (primeraLetra + i.ToString, i.ToString strColumna +)
objRangoReg.Rows.BorderAround ()
objRangoReg.Select ()
i + = 1
Jmiss
UltimoNumero = i
"Iġbed linji tal-kolonni
LetraIzq = ""
cod_LetraIzq = ASC ("A")
cod_letra = ASC (primeraLetra)
Ittra = primeraLetra
Għall Kull ċ Bħala DataGridViewColumn Fil DataGridView1.Columns
Imbagħad jekk c.Visible
. objCelda = Medda (LetraIzq + Lyrics + primerNumero.ToString, il LetraIzq + Il Lyrics + (UltimoNumero -. 1) ToString)
objCelda.BorderAround ()
Jekk Ittra = "Z" Imbagħad
Ittra = primeraLetra
cod_letra = ASC (primeraLetra)
LetraIzq = Chr (cod_LetraIzq)
cod_LetraIzq + = 1
Else
cod_letra + = 1
Ittra = Chr (cod_letra)
Tmiem Jekk
Tmiem Jekk
Jmiss
"Iġbed il-fruntiera ta 'barra oħxon
Bħala Excel.Range DIM objRango = Medda. (PrimeraLetra + primerNumero.ToString, UltimaLetra UltimaLetraIzq + + (UltimoNumero -. 1) ToString)
objRango.Select ()
objRango.Columns.AutoFit ()
objRango.Columns.BorderAround (1, Excel.XlBorderWeight.xlMedium)
Tmiem Bil
= m_Excel.Cursor Excel.XlMousePointer.xlDefault
Tmiem Sub
ToolStripButton2_Click_1 Sub Privati mittent ByVal Fir System.Object, ByVal e Bħala System.EventArgs) Mankijiet ToolStripButton2.Click
ExportarDatosExcel (DataGridView1, "esportazzjoni")
Tmiem Sub
EĊĊELLENTI! .... grazzi brother, u ħa 3 ijiem ma 'modulu għall-importazzjoni / esportazzjoni Excel u xejn maħduma .... iżda ma' soluzzjoni tiegħek I ara darb'oħra l-istilel ... awguri mill arequipa! ..
Inti qed jilqgħu. Ninsab kuntenta li inti serva bħala eżempju.
Dan il-kodiċi għenuni ħafna, so I jikkollaboraw ma 'żewġ ċenteżmi tiegħi:
Jkunu ottimizzati l-"ColumnName" biex jaslu ahsta kolonna ZZ (702 et al.)
Hawnhekk I jagħtuk l-kodiċi:
Pubblika Funzjoni ColumnName (numru ByVal Kif Integer) Kif String
Kolonna DIM (703) Kif String
Kolonna (1) = "A"
kolonna (2) = "B"
kolonna (3) = "C"
kolonna (4) = "D"
kolonna (5) = "E"
kolonna (6) = "F"
kolonna (7) = "G"
kolonna (8) = "H"
kolonna (9) = "I"
(10) kolonna = "J"
kolonna (11) = "K"
(12) kolonna = "L"
kolonna (13) = "M"
(14) kolonna = "N"
kolonna (15) = "O"
kolonna (16) = "P"
(17) kolonna = "Q"
kolonna (18) = "R"
kolonna (19) = "S"
kolonna (20) = "T"
kolonna (21) = "U"
kolonna (22) = "V"
kolonna (23) = "W"
kolonna (24) = "X"
(25) kolonna = "Y"
kolonna (26) = "Z"
Dim i = 27
Għal Ltr1 = 1 sa 26
Għal Ltr2 = 1 sa 26
(i) kolonna = kolonna (Ltr1) & kolonna (Ltr2)
i + = 1
Jmiss
Jmiss
Kolonna Ritorn (numru)
Funzjoni Tmiem
TECKNOCK, nirringrazzjak ħafna għall-għajnuna!, Imma wieħed iżomm f'moħħu li jekk il-ktieb noħolqu hija kompatibbli mal Excel 97-2003 kolonni massimi permessi hija 256 (sa IV). Hekk kif xi kumment li jqisu dan.
Elisha
Meta I run-funcioana applikazzjoni lokali b'mod korrett, iżda meta I upload fuq websajt ma tiġġenerax il-jisbqu iżda ma jiksbu żball
Jien infittxu haciend A grounded sabiex sql tiegħi
mhux bħal i kien isir imma se nagħmel aja
I bżonn għajnuna jipprova jagħmel dan kull mod inti hawn u niġi żball kollha
Idejn, int l-massimu funca perfetta.
[...] [...]
tajba ħafna, congratulations huma fil-post aħjar stajt taqra u kkonsultat
Grazzi! Dan kien utli ħafna
Ħej il-kodiċi ma taħdimx fuqi jimmarka ftit żbalji da.Fill (ds)
I jimmarkaw l-iżball ma nstabx SqlException
inti tista 'tgħini
mistoqsija waħda tista 'tagħmel jitgħabbew direttament mistoqsija sql li jisbqu?
qabel permezz
bonjour ħbieb ewwel nett agradesco inti kontribuzzjoni tiegħek.
Innota li għandi problema I ma tistax issib ir-referenza li jindikaw, I jkollu stallat uffiċċju 2010 u li ma tistax tkun problema tiegħi.
agradeseria xi pariri lilek.
Hello, il-kontribuzzjoni tajba ħafna huwa dak I kien qed ifittex ... imma meta I run mis-server iżvilupp xogħlijiet perfetta, iżda meta I aċċess għall-internet minn Stat pc ma xejn ... l-ebda żball iżda ma xejn ma rekord ...
Xi ħadd jaf kif jiffissaw dan?
Grazzi ħafna, għenuni eżempju tiegħek bħala bażi għall-ġenerazzjoni funzjoni li jiġġenera lili fajl Excel iżda direttament mill-valuri maħżuna fi grid huwa dak każ dejor huwa utli għal xi ħadd
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"/ / Waqqafna l-linja ma 'l-intestaturi tal-kolonna
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
objHojaExcel.Range ("A1"). Agħżel ()
I DIM Kif Integer = 0
Lncol DIM Kif Integer = 1
Għall Kull dc Fil dgvSocios.Columns
Jekk dgvSocios.Columns.Item (I). Viżibbli = Veru Imbagħad
objHojaExcel.Range (ColumnName (lncol) & 1). Valur = dgvSocios.Columns.Item (I). HeaderText
lncol + = 1
Tmiem Jekk
I + = 1
Jmiss
ringiela + = 1
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"/ / Aħna format-titoli ringiela
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
Bħala objHojaExcel.Range DIM Excel.Range = objRango ("A1:" & ColumnName (lncol) & "1")
objRango.Font.Bold = True
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
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"/ / Tagħbija kollha ringieli fil-datatable
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
ProgressBar1.Maximum = dgvSocios.Rows.Count
kolonna = 0
ProgressBar1.Value = 0
ProgressBar1.Visible = True
Lnfila DIM Kif Integer = 0
I = 1
Għall Kull dr Fil dgvSocios.Rows
kolonna = 0
Għall Kull dc Fil dgvSocios.Columns
Jekk dgvSocios.Columns.Item (kolonna). Viżibbli = Imbagħad Veru
objHojaExcel.Range (ColumnName (I) u ringiela). Valur = dgvSocios.Item (kolonna, lnfila). Value.ToString
I + = 1
Tmiem Jekk
kolonna + = 1
Jmiss
lnfila + = 1
ringiela + = 1
ProgressBar1.Value + = 1
Jmiss
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"/ / Aħna jaġġustaw il-wisa 'awtomatikament
"/ / Minn dak kollu li kolonni użati
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
objRango = objHojaExcel.Range ("A1:" & ColumnName (lncol) & (lnfila + 1) ToString.)
objRango.Select ()
objRango.Columns.AutoFit ()
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"/ / We tell Excel li juri
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
MsgBox ("Esportazzjoni lejn Excel kompleti", MsgBoxStyle.Information, ". :: Solovb.net ::.")
m_Excel.Visible = True
Ftuħ daqsxejn għal din il-funzjoni, il-kodiċi li ġej jimpedixxi l-użu ta '"Firxa" biex ma jeħtieġu l-funzjoni "ColumnName"
Tislijiet,
Importazzjonijiet System.Data
Importazzjonijiet System.Data.SqlClient
Importazzjonijiet Microsoft.Office.Interop.Excel
Mutil Pubblika Modulu
Pubblika Sub ExportarDtToExcel (ByVal Dt Kif ByVal titolu System.Data.DataTable, Kif String)
Bħala DIM Excel.Application m_Excel
Bħala DIM Excel.Workbook objLibroExcel
Bħala DIM Worksheet objHojaExcel
Ipprova
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"/ / Oħloq id-Għan Excel
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / /
m_Excel = CreateObject ("Excel.Application")
m_Excel.Workbooks.Add objLibroExcel = ()
objHojaExcel = objLibroExcel.Worksheets (1)
objHojaExcel.Name = Titolu
objHojaExcel.Visible = Excel.XlSheetVisibility.xlSheetVisible
objHojaExcel.Activate ()
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"/ / Tiddefinixxi żewġ varjabbli għall-kontroll ringiela u l-kolonna
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
Ringiela DIM Kif Integer = 1
Kolonna DIM Kif Integer = 1
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"/ / Waqqafna l-linja ma 'l-intestaturi tal-kolonna
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"ObjHojaExcel.Range (" A1 "). Agħżel ()
objHojaExcel.Cells (, ringiela kolonna). TAGĦŻEL ()
Għall Kull dc Fil Dt.Columns
objHojaExcel.Cells (, ringiela kolonna). Valur = dc.ColumnName
kolonna + = 1
Jmiss
ringiela + = 1
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"/ / Aħna format-titoli ringiela
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
Bħala Excel.Range = objHojaExcel.Range objRango dim (objHojaExcel.Cells (1, 1), objHojaExcel.Cells (1, Dt.Columns.Count))
objRango.Font.Bold = True
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
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"/ / Tagħbija kollha ringieli fil-datatable
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
kolonna = 1
Għall Kull dr Fil Dt.Rows
kolonna = 1
Għall Kull dc Fil Dt.Columns
objHojaExcel.Cells (, ringiela kolonna). Valur = dr (dc.ColumnName)
kolonna + = 1
Jmiss
ringiela + = 1
Jmiss
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"/ / Aħna jaġġustaw il-wisa 'awtomatikament
"/ / Minn dak kollu li kolonni użati
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
objHojaExcel.Cells objRango = (1, Dt.Columns.Count)
objRango.Select ()
objRango.Columns.AutoFit ()
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"/ / We tell Excel li juri
"/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
MsgBox ("Esportazzjoni lejn Excel kompleti" MsgBoxStyle.Information, "Esportazzjoni")
m_Excel.Visible = True
Qabda ex Bħala eċċezzjoni
MsgBox (ex.ToString)
Fl-aħħarnett
objHojaExcel Xejn =
objLibroExcel Xejn =
m_Excel Xejn =
Tmiem Ipprova
Tmiem Sub
Modulu Tmiem