Awtomatikong-export sa Microsoft Excel DataTable
Ngayon gusto kong ipakita ang isang halimbawa na nagsilbi sa akin para sa isang mahabang panahon at pa ko pa ring gamitin ito.
Kami ay gumawa ng isang halimbawa i-export ang isang sa DataTable sa Excel buong alintana ang bilang ng mga haligi o mga hilera na may.
Maaaring may maraming mga paraan upang gawin ito, ngunit talagang mahanap ko ito kapaki-pakinabang dahil ang paraan na ito ay gumagana para sa anumang bersyon ng Excel. Para sa compatilidad mga isyu na may mas bagong bersyon ng Excel lamang pangasiwaan 256 na mga haligi.
Ang unang bagay na kailangan namin ay upang magdagdag ng isang reference sa Microsoft.Office.Interop.Excel at kami bilang mga sumusunod:
Import ng reference sa Excel
Import Excel reference
Pagkatapos kailangan namin ng isang form, ng isang pindutan, dataGridView at progress bar. Maaari naming tulad ng nakikita sa larawan sa:
Application form na i-export ng dataset sa excel
Ngayon gusto kong ipakita ang lahat ng code ay talagang simple ang pinakamahalagang bagay na ito adapts sa anumang talahanayan. Mo magagawang upang muling gamitin nang walang problema.
Ang import System.Data import System.Data.SqlClient Public Class Form1 import Microsoft.Office.Interop Pribadong ds Bilang Bagong dataset Private Sub Form1_Load (ByVal nagpadala Bilang System.Object, ByVal e Bilang System.EventArgs) humahawak MyBase.Load '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / Lumikha ng koneksyon at punan ang DataGridView na '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / madilim cnn Bilang ng Bagong SqlConnection ("Data Source = localhost \ sqlexpress ang; Paunang Catalog = Northwind; Integrated Security = Totoo") madilim na da Bilang Bagong SqlDataAdapter ("Piliin * mula sa mga customer", cnn) ay nagbibigay. Punan (ds) DataGridView1.DataSource ang mga = ds.Tables (0) End Sub Private Sub btnExportar_Click na (ByVal nagpadala Bilang System.Object, ByVal e Bilang System.EventArgs) humahawak btnExportar.Click '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / Lumikha ng ang Excel Bagay na' / / / / / / / / / / / / / / / / / / / / / / / / / / / / / madilim ng madilim m_Excel objLibroExcel ng madilim objHojaExcel m_Excel = CreateObject ("Excel.Application") m_Excel.Workbooks.Add objLibroExcel = () = objLibroExcel.Worksheets ang objHojaExcel (1) objHojaExcel.Name = "customer" objHojaExcel.Visible = Excel . XlSheetVisibility.xlSheetVisible objHojaExcel.Activate () '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / tukuyin ang dalawang variable upang kontrolin ang mga hilera at haligi ng' / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / madilim hilera Bilang Integer = 1 madilim haligi sa Bilang ng Integer = 1 '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / set namin ang linya sa ang heading ng haligi ng '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / objHojaExcel.Range ("A1"). Piliin ang () Para sa bawat dc sa Sa ds.Tables (0). mga Haligi objHojaExcel.Range (ColumnName (haligi) & 1). Halaga = dc.ColumnName haligi + = 1 Susunod hilera + = 1 '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / namin-format ang mga pamagat ng hilera' / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / madilim Bilang Excel.Range = objHojaExcel.Range objRango ("A1:". & ColumnName (ds.Tables (0) Columns.Count) & "1") objRango.Font Bold = True objRango.Cells.Interior.ColorIndex = 35 objRango.Cells.Borders na (Excel.XlBordersIndex.xlDiagonalDown). LineStyle = Excel.XlLineStyle.xlLineStyleNone objRango.Cells.Borders na (Excel.XlBordersIndex.xlDiagonalUp). LineStyle = Excel. XlLineStyle.xlLineStyleNone objRango.Cells.Borders (Excel.XlBordersIndex.xlEdgeLeft). LineStyle = Excel.XlLineStyle.xlLineStyleNone objRango.Cells.Borders na (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 = '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / I-load ang lahat ng mga hilera sa ang datatable' / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / ProgressBar1.Maximum = ds.Tables (0). Rows.Count ProgressBar1.Value haligi = 1 = 0 Para sa bawat Dr Sa ds.Tables (0) haligi hilera = 1 Para sa bawat dc sa Sa ds.Tables (0). mga Haligi objHojaExcel.Range (ColumnName (haligi) & hilera). Halaga = Dr (dc.ColumnName) na haligi + = 1 Susunod hilera + = 1 + = 1 Susunod ProgressBar1.Value '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / namin ayusin ang lapad ay awtomatikong' / / para sa lahat ng mga haligi na ginamit '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / objRango = objHojaExcel.Range ("A1:" mga. & ColumnName (ds.Tables (0) Columns.Count) & ds.Tables (0) Rows.Count.ToString) objRango.Select () objRango . Columns.AutoFit () '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /' / / sabihin namin Excel upang ipakita ang '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / MsgBox ("I-export sa Excel Complete" , MsgBoxStyle.Information, ". :: solovb.net ::.") m_Excel.Visible = True End Sub Public na function ColumnName (ByVal numero Bilang Integer) Bilang String madilim haligi (256) Bilang String hanay (1) = "A" haligi (2) = "B" poste (3) = "C" haligi (4) = "D" poste (5) = "E" haligi (6) = "F" haligi (7) = "G" haligi ( 8) = "H" haligi (9) = "ko" haligi (10) = "J" haligi (11) = "K" haligi (12) = haligi na "L" (13) = "M" na hanay (14) = haligi na "N" (15) = "W" haligi (16) = "P" haligi (17) = "Q" haligi (18) = "R" haligi (19) = haligi na "S" (20) = " T "na hanay (21) =" U "haligi (22) =" V "haligi (23) =" W "haligi (24) =" X "haligi (25) =" Y "haligi (26) =" Z " haligi (27) = "Aa" haligi (28) = "AB" haligi (29) = "AC" haligi (30) = "AD" haligi (31) = "AE" haligi (32) = "AF" haligi ( 33) = "AG" Haligi (34) = "ah" haligi (35) = "Bilang" haligi (36) = "AJ" haligi (37) = "AK" haligi (38) = "SA" hanay (39) = "AM" haligi (40) = "Na" haligi (41) = "AO" haligi (42) = "AP" haligi (43) = "AQ" haligi (44) = "RA" haligi (45) = " bilang "haligi (46) =" SA "haligi (47) =" AU "haligi (48) =" AV "haligi (49) =" AW "haligi (50) =" palakol "haligi (51) =" AY " haligi (52) = "AZ" haligi (53) = "BA" haligi (54) = "BB" haligi (55) = "BC" haligi (56) = "BD" haligi (57) = "HINDI" haligi ( 58) = "BF" haligi (59) = "bg" haligi (60) = "BH" haligi (61) = "Silahis" na hanay (62) = "BJ" haligi (63) = "BK" haligi (64) = "BL" haligi (65) = "BM" haligi (66) = "BN" haligi (67) = "Bo" haligi (68) = "BP" haligi (69) = "BQ" haligi (70) = " BR "haligi (71) =" BS "haligi (72) =" BT "haligi (73) =" BU "haligi (74) =" BV "haligi (75) =" BW "haligi (76) =" BX " haligi (77) = "NG" haligi (78) = "BZ" haligi (79) = "CA" haligi (80) = "CB" haligi (81) = "CC" haligi (82) = "CD" haligi ( 83) = "CE" haligi (84) = "CF" haligi (85) = "CG" haligi (86) = "CH" haligi (87) = "CI" haligi (88) = "CJ" hanay (89) = "CK" haligi (90) = "CL" haligi (91) = "cm" haligi (92) = "CN" haligi (93) = "CO" haligi (94) = "CP" haligi (95) = " CQ "haligi (96) =" CR "haligi (97) =" CS "haligi (98) =" CT "haligi (99) =" CU "haligi (100) =" Bio-Data "haligi (101) =" CW " haligi (102) = "CX" haligi (103) = "CY" haligi (104) = "CZ" haligi (105) = "da" haligi (106) = "DB" haligi (107) = "DC" haligi ( 108) = "DD" haligi (109) = "DE" haligi (110) = "DF" haligi (111) = "DG" haligi (112) = "DH" haligi (113) = "ID" haligi (114) = "DJ" haligi (115) = "DK" haligi (116) = "DL" haligi (117) = "DM" haligi (118) = "DN" haligi (119) = "Do" na haligi (120) = " DP "haligi (121) =" DQ "haligi (122) =" DR "haligi (123) =" DS "haligi (124) =" DT "haligi (125) =" du "haligi (126) =" DV " haligi (127) = "DW" haligi (128) = "DX" haligi (129) = "DY" haligi (130) = "DZ" haligi (131) = "EA" haligi (132) = "EB" haligi ( 133) = "EC" haligi (134) = "Ed" haligi (135) = "EE" haligi (136) = "EF" haligi (137) = "hal" haligi (138) = "EH" haligi (139) = "EI" haligi (140) = "EJ" haligi (141) = "EK" haligi (142) = "el" haligi (143) = "MS" hanay (144) = "SA" haligi (145) = " EO "haligi (146) =" EP "haligi (147) =" EQ "haligi (148) =" ER "haligi (149) =" es "haligi (150) =" ET "haligi (151) =" EU " haligi (152) = "EV" haligi (153) = "EW" haligi (154) = "Hal" haligi (155) = "EY" haligi (156) = "EZ" haligi (157) = "pa" haligi ( 158) = "FB" haligi (159) = "FC" haligi (160) = "FD" haligi (161) = "FE" haligi (162) = "FF" haligi (163) = "FG" haligi (164) = "FH" haligi (165) = "Fi" haligi (166) = "FJ" haligi (167) = "FK" haligi (168) = "FL" haligi (169) = "FM" haligi (170) = " FN "haligi (171) =" FO "haligi (172) =" FP "haligi (173) =" CF "haligi (174) =" fr "haligi (175) =" FS "haligi (176) =" FT " haligi (177) = "Fu" haligi (178) = "FV" haligi (179) = "FW" haligi (180) = "FX" haligi (181) = "FY" haligi (182) = "FZ" haligi ( 183) = "GA" haligi (184) = "GB" haligi (185) = "GC" haligi (186) = "GD" haligi (187) = "GE" haligi (188) = "GF" haligi (189) = "GG" haligi (190) = "GH" haligi (191) = "sundalo" haligi (192) = "GJ" haligi (193) = "GK" haligi (194) = "GL" haligi (195) = " gm "haligi (196) =" GN "haligi (197) =" Go "haligi (198) =" GP "haligi (199) =" GQ "haligi (200) =" GR "haligi (201) =" GS " haligi (202) = "GT" haligi (203) = "Gu" haligi (204) = "GV" haligi (205) = haligi na "GW" (206) = "GX" haligi (207) = "GY" haligi ( 208) = "-gz" na haligi (209) = "Ha" haligi (210) = "HB" haligi (211) = "HC" haligi (212) = "HD" haligi (213) = "NIYA" haligi (214) = "hf" haligi (215) = "HG" haligi (216) = "HH" haligi (217) = "HI" haligi (218) = "HJ" haligi (219) = "HK" haligi (220) = " hl "haligi (221) =" HM "haligi (222) =" HN "haligi (223) =" Ho "haligi (224) =" HP "haligi (225) =" HQ "haligi (226) =" oras " (227) haligi = "HS" haligi (228) = "HT" haligi (229) = "Hu" haligi (230) = "HV" haligi (231) = "HW" haligi (232) = "H" haligi ( 233) = "HY" ay haligi (234) = "HZ" haligi (235) = "IA" haligi (236) = "IB" haligi (237) = "IC" haligi (238) = "ID" haligi (239) = "IE" haligi (240) = "KUNG" haligi (241) = "ig" haligi (242) = "IH" haligi (243) = "II" haligi (244) = "IJ" haligi (245) = " IK "haligi (246) =" IL "haligi (247) =" IM "haligi (248) =" SA "haligi (249) =" IO "na haligi (250) =" IP "haligi (251) =" IQ " haligi (252) = "R" haligi (253) = "IS" haligi (254) = "IT" na haligi (255) = "UI" haligi (256) = "IV" Return haligi (number) End Function End Class Ang pamamaraang ito ay nagsilbi sa akin na rin at inaasahan kong gawin mo masyadong ... mangyaring iwanan ang iyong mga komento.
-
Bookmark sa Masarap - Digg ang post na ito
- Magrekomenda sa Facebook
- Buzz ito
- Ibahagi sa mrwong
- Ibahagi sa pamamagitan ng MySpace
- ibahagi sa pamamagitan ng Reddit
- Ibahagi sa Stumblers
- Ibahagi sa Technorati
- Tweet Tungkol nito
- Buzz ito
- Mag-subscribe sa mga komento sa post na ito
- Bookmark sa Browser
- Sabihin sa isang kaibigan
31 tugon sa "Awtomatikong I-export sa DataTable sa Microsoft Excel"
Puna
Impormasyon Bitacoras.com ...
Rate sa Bitacoras.com: Kamusta, Ngayon gusto kong ipakita ang isang halimbawa na nagsilbi sa akin para sa isang mahabang panahon at pa ko pa ring gamitin ito. Kami ay gumawa ng isang halimbawa i-export ang isang sa DataTable sa Excel buong alintana ang bilang ng mga haligi o mga hilera na Teng .....
Magandang ...
Magaling post! Salamat nakatulong sa akin buong, ngunit mayroon akong isang pagdududa .. Tulad ng link ay sa SQL .. Paano ko papangalanang muli ang mga haligi!? Dahil ito ay pinagsasama ang pangalan ng patlang ng SQL ..!
Umaasa ako at ako naiintindihan ..
Salamat sa iyo!
Ako pagpunta upang i-save ...
sa ilang mga punto na ito ay maging kapaki-pakinabang ...
Wastong para sa Excel 2007? Ako ay may problema sa export upang bumuo, na ito ay may-bisa para sa mga naunang bersyon, ngunit hindi para sa 2007. Salamat
Napakalaking pinagmulan code. nagsilbi sa akin na rin. q ito ay mahaba lampas sa taning.
Kahit na rin kailangan ecxel ang pag-import ng isang talahanayan ng data. ngunit maaaring kapaligiran sa isang datagrid at pagkatapos ay pag-update ang mga DataAdapter at pagtanggap ng mga pagbabago sa datatable ay nai-save sa q bd ... Umaasa ako maaari ko ng tulong o upang mahanap ... salamat
Kumusta Maraming salamat! ito mahusay na!
Ngunit nagtataka ako kung saan tumutukoy ng datagrid na ginagamit sa kaso na ilang Datagrid?
Sa talahanayan na sa iyo sa tawag ...
piliin * mula sa (talahanayan name)
Kung nais mong tukuyin kung aling mga patlang na nais mo
piliin ang (mga patlang, patlang, patlang) * mula sa talahanayan
ejm
piliin ang kotse, kulay, taon mula sa kotse
Mayroon akong isang problema sa halimbawang ito gumawa ako 2 error sa variable dc at Dr, maaari kong gawin upang ayusin ito?
Hi, subukan ito:
Para sa bawat Dr Bilang DataRow Sa ds.Tables (0). Hilera at DataColumn ay Para sa bawat dc Sa ds.Tables bilang sa (0). Haligi
Umaasa ako na ito ay malutas. Pagbati.
hola.
ng ito chevere, ngunit bahagi ng hanay ang pangalan ay hindi masyadong functional.
Kukunin ko mag-upload sa aking blog sa isang mas maliit na mga limitasyon sa laki ng code at walang
jaysson.blogspot.com
handa at nagpunta ang mga artikulo
http://jaysson.blogspot.com/2010/06/columnas-es-excel.html
Magandang artikulo, ngunit mayroon akong isang problema sa aking computer sa Excel 2007 gumagana maayos, ngunit sa mga computer na may Excel 2003 o mas maaga ay hindi gumagana. Sinuman malalaman kung ang problema ng mga aklatan na import, dahil implying na gumagana para sa anumang excel, ngunit nakatagpo ko ang problemang ito.
Sabihin makita kung ang isang tao ay maaaring malutas ang pagdududa.
Salamat sa inyo.
Magandang ...
Magaling post! Salamat nakatulong sa akin buong, ngunit mayroon akong isang pagdududa .. Tulad ng link ay sa SQL .. Paano ko papangalanang muli ang mga haligi!? Dahil ito ay pinagsasama ang pangalan ng patlang ng SQL ..!
Umaasa ako at ako naiintindihan ..
Salamat sa iyo!
Pampublikong Sub ExportarDatosExcel (ByVal DataGridView1 Bilang DataGridView, ByVal pamagat Bilang String)
Bilang Bagong Excel.Application madilim m_Excel
m_Excel.Cursor = Excel.XlMousePointer.xlWait
m_Excel.Visible = Totoo
Bilang Excel.Workbook ng madilim objLibroExcel = m_Excel.Workbooks.Add
Bilang Excel.Worksheet madilim objHojaExcel = objLibroExcel.Worksheets (1)
Sa objHojaExcel
. Nakikita = Excel.XlSheetVisibility.xlSheetVisible ang
. Gawing aktibo ()
'Header
. Saklaw ("A1: L1"). Sumanib ()
Ang. Saklaw ("A1: L1"). Halaga = "Institute ARGENCAF"
. Saklaw ("A1: L1"). Font.Bold = Totoo
. Saklaw ("A1: L1"). Font.Size = 15
'Uhay
. Saklaw ("A2: L2"). Sumanib ()
. Saklaw ("A2: L2"). Halaga = pamagat
. Saklaw ("A2: L2"). Font.Bold = Totoo
. Saklaw ("A2: L2"). Font.Size = 12
Const primeraLetra Bilang pansamantalang trabaho = "A"
Ng Const firstNumber bilang Maikling = 3
Madilim sulat Bilang pansamantalang trabaho, magpasinda Bilang UltimaLetra
Magpalabo Bilang Bilang ng Integer, UltimoNumero Tulad ng Integer
Magpalabo Bilang byte = Asc cod_letra ang (primeraLetra) - 1
Magpalabo Bilang String = Application.CurrentCulture.NumberFormat.NumberDecimalSeparator sa sepDec
Magpalabo Bilang String = Application.CurrentCulture.NumberFormat.NumberGroupSeparator sa sepMil
'Itakda ang format ng mga haligi ng anak na babae ng pagkalkula
StrColumna magpalabo ng String = ""
LetraIzq magpalabo ng String = ""
Magpalabo Bilang byte = Asc cod_LetraIzq ang (primeraLetra) - 1
Sulat = primeraLetra
Number = firstNumber
Bilang Excel.Range madilim objCelda
Para sa bawat c sa Bilang DataGridViewColumn Sa DataGridView1.Columns
Pagkatapos kung c.Visible
Kung Letter = "Z" Pagkatapos
Sulat = primeraLetra
cod_letra = Asc (primeraLetra)
cod_LetraIzq + = 1
LetraIzq = Chr (cod_LetraIzq)
Iba
cod_letra + = 1
Sulat = Chr (cod_letra)
Dulo Kung
strColumna = LetraIzq + Lyrics + Numero.ToString
objCelda =. Saklaw (strColumna, Type.Missing)
objCelda.Value = c.HeaderText
objCelda.EntireColumn.Font.Size = 8
'ObjCelda.EntireColumn.NumberFormat = c.DefaultCellStyle.Format
Kung c.ValueType ba GetType (Decimal) OrElse c.ValueType ba GetType (Double) Pagkatapos
objCelda.EntireColumn.NumberFormat = "#" + sepMil + "0" + sepDec + "00"
Dulo Kung
Dulo Kung
Susunod
Sa Bilang Excel.Range madilim objRangoEncab =. Saklaw (primeraLetra + Numero.ToString, LetraIzq + Lyrics + Numero.ToString)
objRangoEncab.BorderAround (1, Excel.XlBorderWeight.xlMedium)
UltimaLetra = Magpadala
Madilim Bilang String = LetraIzq UltimaLetraIzq
'-Load ang data
Ang magpalabo i Bilang Integer = Numero + 1
Para sa bawat Sa na List Bilang DataGridViewRow DataGridView1.Rows
LetraIzq = ""
cod_LetraIzq = Asc (primeraLetra) na - 1
Sulat = primeraLetra
cod_letra = Asc (primeraLetra) na - 1
Para sa bawat c sa Bilang DataGridViewColumn Sa DataGridView1.Columns
Pagkatapos kung c.Visible
Kung Letter = "Z" Pagkatapos
Sulat = primeraLetra
cod_letra = Asc (primeraLetra)
cod_LetraIzq + = 1
LetraIzq = Chr (cod_LetraIzq)
Iba
cod_letra + = 1
Sulat = Chr (cod_letra)
Dulo Kung
strColumna = LetraIzq + Lyrics
"Ito ay dapat na ang load
Mga. Cell (i, strColumna) = IIf (IsDBNull na (reg.ToString), "", reg.Cells na (c.Index). Halaga)
'. Cell (i, strColumna) = IIf (IsDBNull (reg. (c.DataPropertyName)), c.DefaultCellStyle.NullValue, reg na (c.DataPropertyName))
'. Saklaw (strColumna + i, strColumna + i). Sa ()
Dulo Kung
Susunod
Sa bilang Excel.Range madilim objRangoReg =. Saklaw (primeraLetra + i.ToString, i.ToString strColumna +)
objRangoReg.Rows.BorderAround ()
objRangoReg.Select ()
i + = 1
Susunod
UltimoNumero = I
"Gumuhit ng mga linya ng mga haligi
LetraIzq = ""
cod_LetraIzq = Asc ("A")
cod_letra = Asc (primeraLetra)
Sulat = primeraLetra
Para sa bawat c sa Bilang DataGridViewColumn Sa DataGridView1.Columns
Pagkatapos kung c.Visible
. objCelda = Saklaw (LetraIzq + Lyrics + primerNumero.ToString, LetraIzq + Lyrics + (UltimoNumero - 1.) ToString)
objCelda.BorderAround ()
Kung Letter = "Z" Pagkatapos
Sulat = primeraLetra
cod_letra = Asc (primeraLetra)
LetraIzq = Chr (cod_LetraIzq)
cod_LetraIzq + = 1
Iba
cod_letra + = 1
Sulat = Chr (cod_letra)
Dulo Kung
Dulo Kung
Susunod
'Gumuhit ang makapal na panlabas na hangganan
Sa Bilang Excel.Range madilim objRango = Saklaw. (PrimeraLetra + primerNumero.ToString, UltimaLetra UltimaLetraIzq + + (UltimoNumero - 1.) ToString)
objRango.Select ()
objRango.Columns.AutoFit ()
objRango.Columns.BorderAround (1, Excel.XlBorderWeight.xlMedium)
End Sa
m_Excel.Cursor = Excel.XlMousePointer.xlDefault
End Sub
ToolStripButton2_Click_1 Private Sub (ByVal nagpadala Bilang System.Object, ByVal e Bilang System.EventArgs) humahawak ToolStripButton2.Click
ExportarDatosExcel (DataGridView1, "export")
End Sub
Magaling! .... salamat kapatid na lalaki, at kinuha ang 3 araw sa isang module para sa import / export sa Excel at walang nagtrabaho .... ngunit sa iyong mga solusyon makita ko muli ang mga bituin ... pagbati mula sa Arequipa:! ...
Walang anuman. Ako ay natutuwa na iyong nagsilbi bilang isang halimbawa.
Ang code na ito ay nakatulong sa akin ng maraming, kaya kong makipagtulungan sa aking dalawang sentimo:
Na-optimize ang na "ColumnName" dumating ahsta ZZ haligi (702 et al.)
Narito ako magbibigay sa iyo ang code:
Pampublikong Function ColumnName (ByVal numero Bilang Integer) Bilang String
Madilim haligi (703) Bilang String
Hanay (1) = "A"
haligi (2) = "B"
haligi (3) = "C"
haligi (4) = "D"
haligi (5) = "E"
haligi (6) = "F"
haligi (7) = "G"
haligi (8) = "H"
haligi (9) = "ko"
haligi (10) = "J"
haligi (11) = "K"
haligi (12) = "L"
haligi (13) = "M"
haligi (14) = "N"
haligi (15) = "O"
haligi (16) = "P"
haligi (17) = "Q"
haligi (18) = "R"
haligi (19) = "S"
haligi (20) = "T"
haligi (21) = "U"
haligi (22) = "V"
haligi (23) = "W"
haligi (24) = "X"
haligi (25) = "Y"
haligi (26) = "Z"
Madilim i = 27
Para sa Ltr1 = 1 Upang 26
Para sa Ltr2 = 1 Upang 26
haligi (i) = haligi (Ltr1) & haligi (Ltr2)
i + = 1
Susunod
Susunod
Bumalik hanay (bilang)
End Function
TECKNOCK, salamat sa iyo napaka para sa pagtulong!, Ngunit tandaan na kung ang libro na lumikha namin ay katugma sa Excel 97-2003 maximum na mga haligi na pinapayagan ay 256 (sa IV). Tulad ng komento ng isang tumagal ito sa account.
Elisha
Kapag tumakbo ako ang lokal funcioana ng application tama, ngunit kapag ako ay nag-i-upload ito sa isang website ay hindi mabuo ang excel ngunit hindi makakuha ng error
Naghahanap ako haciend Isang grawnded sa aking SQL
hindi tulad ko ay ginagawa ngunit kong gawin aja
Kailangan ko ng tulong subukang gawin ito sa bawat paraan na ikaw ay dito at ako ay makakuha ng error lahat
Banda, ikaw ay ang perpektong funca maximum.
[...] [...]
magandang, pagbati ay sa ang pinakamahusay na post ko na basahin at consulted
Salamat sa iyo! Ito ay napaka-helpful
Uy ang code ay hindi gumagana sa akin ay nagmamarka ng isang error da.Fill (ds)
Markahan ko ang mga error ay hindi natagpuan SqlException
maaari mo ng tulong sa akin
isang katanungan ang maaaring gumawa ng direct loading SQL query sa excel?
muna sa pamamagitan ng
kumusta mga kaibigan unang ng lahat ng ka agradesco iyong kontribusyon.
Tandaan na mayroon akong isang problema na hindi ko mahanap ang reference ipahiwatig mo, na-install ko ang opisina ng 2010 at kung saan ay hindi maaaring ang aking problema.
agradeseria ilang mga payo sa iyo.
Hello, magandang kontribusyon ay kung ano ako ay naghahanap ... pero kapag tumakbo ko ito mula sa pag-unlad sa server gumagana perpekto, ngunit kapag ko ma-access ang web mula sa isa pang pc ang walang ... walang error ngunit ang hindi record anumang ...
Sinuman alam kung paano ayusin ito?
Maraming salamat sa inyo, nakatulong sa akin ang iyong mga halimbawa bilang isang batayan para sa pagbuo ng isang function na bumubuo sa akin ng isang Excel file ngunit direkta mula sa ang mga halaga na naka-imbak sa isang grid ay kung ano ang dejor kaso ay kapaki-pakinabang para sa isang tao
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / Itinakda namin ang linya sa heading ng haligi
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
objHojaExcel.Range ("A1"). Piliin ang ()
Magpalabo ko Tulad ng Integer = 0
Lncol magpalabo Bilang Integer = 1
Para sa bawat dc Sa dgvSocios.Columns
Kung dgvSocios.Columns.Item (I). Makikita = True Pagkatapos
objHojaExcel.Range (ColumnName (lncol) & 1). Halaga = dgvSocios.Columns.Item (I). HeaderText
lncol + = 1
Dulo Kung
Ako + = 1
Susunod
hilera + = 1
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / Namin-format ang mga pamagat ng hilera
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
Bilang Excel.Range madilim objRango = objHojaExcel.Range ("A1:" & ColumnName (lncol) & "1")
objRango.Font.Bold = Totoo
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
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / I-load ang lahat ng mga hilera sa datatable
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
ProgressBar1.Maximum = dgvSocios.Rows.Count
haligi = 0
ProgressBar1.Value = 0
ProgressBar1.Visible = Totoo
Lnfila magpalabo Bilang Integer = 0
Ko = 1
Para sa bawat Dr Sa dgvSocios.Rows
haligi = 0
Para sa bawat dc Sa dgvSocios.Columns
Kung dgvSocios.Columns.Item (haligi). Makikita = True Pagkatapos
objHojaExcel.Range (ColumnName (I) & hilera). Halaga = dgvSocios.Item (haligi, lnfila ang). Value.ToString
Ako + = 1
Dulo Kung
haligi + = 1
Susunod
lnfila + = 1
hilera + = 1
ProgressBar1.Value + = 1
Susunod
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / Ayusin namin ang lapad ay awtomatikong
'/ / Mula sa lahat ng mga haligi na ginamit
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
objRango = objHojaExcel.Range ("A1:" & ColumnName (lncol) & (lnfila + 1) ToString.)
objRango.Select ()
objRango.Columns.AutoFit ()
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / Sabihin namin Excel upang ipakita
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
MsgBox ("I-export sa Excel Complete", MsgBoxStyle.Information, ". :: Solovb.net ::.")
m_Excel.Visible = Totoo