Automātiski eksports uz Microsoft Excel DataTable
Posted by Elīsas ir piemēri , kas iezīmes , kas konsultācijas par 22 11, 2009 | 32 atbildes
Šodien es gribu, lai parādītu piemēru, kas ir kalpojis mani ilgu laiku, un tomēr es joprojām izmantot to.
Mēs veiksim piemēru eksportēt DataTable uz Excel pilna neatkarīgi no tā, cik kolonnās vai rindās, kas ir.
Var būt daudzi veidi, kā to darīt, bet man ir tiešām noderīga, jo šī metode darbojas jebkurā Excel versijā. Par compatilidad jautājumiem ar jaunākām versijām Excel apstrādāt tikai 256 kolonnas.
Pirmā lieta, mums ir pievienot atsauci uz Microsoft.Office.Interop.Excel un mēs rīkojieties šādi:
Importēt atsauci uz Excel
Importa Excel atsauce
Tad mums ir nepieciešama forma, poga, kas DataGridView un progresa bārs. Mēs varam būt kā redzams attēlā:
Pieteikuma veidlapa eksportēt datu kopumu Excel
Tagad es vēlos parādīt visu kods ir patiešām vienkārša vissvarīgākais ir tas, ka tā pielāgojas jebkurai tabulai. Jums būs iespēja atkārtoti izmantot bez problēmām.
Imports System.Data Imports System.Data.SqlClient valsts klases Form1 Imports Microsoft.Office.Interop Private DS kā New datu kopas Private Sub Form1_Load (ByVal sūtītājam Kā System.Object, ByVal e As System.EventArgs) Rokturi MyBase.Load '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / Izveidojiet savienojumu un aizpildīt DataGridView '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / Dim CNN kā jaunam SqlConnection ("Datu avots = localhost \ sqlexpress; Sākuma Katalogs = Northwind; Integrētās drošības = True") Dim da kā jauns SqlDataAdapter ("SELECT * FROM klients", CNN) dod. aizpildīt (DS) DataGridView1.DataSource = ds.Tables (0) End Sub Private Sub btnExportar_Click (ByVal sender Kas System.Object, ByVal e As System.EventArgs) Rokturi btnExportar.Click '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / Izveidot Excel objekts' / / / / / / / / / / / / / / / / / / / / / / / / / / / / / Dim Dim m_Excel objLibroExcel Dim objHojaExcel m_Excel = CreateObject ("Excel.Application") m_Excel.Workbooks.Add objLibroExcel = () = objLibroExcel.Worksheets objHojaExcel (1) objHojaExcel.Name = "Klienti" objHojaExcel.Visible = Excel . XlSheetVisibility.xlSheetVisible objHojaExcel.Activate () "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / define divus mainīgos kontroles rindu un kolonnu' / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / Dim rindu kā Integer = 1 Dim ailē Kā Vesels skaitlis = 1 '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / Mēs noteikti līniju ar kolonnu virsrakstiem '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / objHojaExcel.Range ("A1"). Izvēlieties () Katrai DC IN ds.Tables panta 0). Columns objHojaExcel.Range (ColumnName (kolonna) un 1). Vērtība = dc.ColumnName kolonna + = 1 Nākamā rinda + = 1 '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / Mēs formatētu virsrakstus rindu' / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / Dim Kā Excel.Range = objHojaExcel.Range objRango ("A1". & ColumnName (ds.Tables (0) Columns.Count) un "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 panta Excel.XlBordersIndex.xlEdgeBottom). LineStyle Excel.XlLineStyle.xlContinuous = '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / Ievietojiet visus rindas DataTable' / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / ProgressBar1.Maximum = ds.Tables (0). Rows.Count ProgressBar1.Value sleja = 1 = 0 katram dr Jo ds.Tables panta 0). rindas ailē = 1 Katra DC IN ds.Tables panta 0). Columns objHojaExcel.Range (ColumnName (kolonna) un rinda). Value = DR (dc.ColumnName) kolonnā + = 1 Nākamā rinda + = 1 + = 1 Nākamais ProgressBar1.Value '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / Mēs pielāgotu platumu automātiski "/ / visu kolonnu izmanto' / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / objRango = objHojaExcel.Range ("A1".. un ColumnName panta ds.Tables (0) Columns.Count) un ds.Tables (0) Rows.Count.ToString) objRango.Select () objRango . Columns.AutoFit () "/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / '/ / Mēs sakām Excel parādīt '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / MsgBox ("Eksportēt uz Excel Pilnīga" , MsgBoxStyle.Information ":: solovb.net. ::.") m_Excel.Visible = True End Sub Sabiedrības funkcija ColumnName (ByVal numurs kā Integer) Kā String Dim slejā 256) Kā String slejā (1) = "" kolonna (2) = "B" pīlārs (3) = "C" slejā (4) = "D" pīlārs (5) = "E" slejā (6) = "F" ailē (7) = "G" slejas ( 8) = "H" kolonna (9) = "I" sleja (10) = "J" ailē (11) = "K" kolonna (12) = "L" ailē (13) = "O" slejā (14) = "N" slejā (15) = "W" kolonna (16) = "P" kolonna (17) = "Q" kolonna (18) = "R" kolonnas (19) = "S" ailē (20) = " T "kolonna (21) =" U "kolonna (22) =" V "ailē (23) =" W "kolonna (24) =" X "ailē (25) =" Y "kolonna (26) =" Z " kolonna (27) = "AA" kolonna (28) = "AB" kolonna (29) = "AC" kolonna (30) = "AD" kolonna (31) = "AE" kolonna (32) = "AF" kolonna ( 33) = "AG" Kolonna (34) = "AH" kolonna (35) = "Numurs" kolonna (36) = "AJ" kolonna (37) = "AK" kolonna (38) = "AR" slejā 39) = "AM" kolonna (40) = "NA" kolonna (41) = "AO" kolonna (42) = "AP" kolonna (43) = "AQ" kolonna (44) = "RA" kolonna (45) = " AS "slejā (46) =" AT "slejā (47) =" AU "kolonna (48) =" AV "kolonna (49) =" AW "kolonna (50) =" AX "kolonna (51) =" AY " kolonna (52) = "AZ" kolonna (53) = "Bakalaura grāds" 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" kolonna (65) = "BM" kolonna (66) = "BN" kolonna (67) = "BO" kolonna (68) = "BP" kolonna (69) = "BQ" kolonna (70) = " BR "kolonna (71) =" BS "kolonna (72) =" BT "kolonna (73) =" BU "kolonna (74) =" BV "kolonna (75) =" BW "kolonna (76) =" BX " kolonna (77) = "KO" kolonna (78) = "BZ" kolonna (79) = "CA" kolonna (80) = "CB" kolonna (81) = "CC" kolonna (82) = "CD" ailē ( 83) = "CE" kolonna (84) = "KF" kolonna (85) = "CG" kolonna (86) = "CH" kolonna (87) = "TI" kolonna (88) = "CJ" kolonna (89) = "CK" kolonna (90) = "CL" kolonna (91) = "CM" kolonna (92) = "KN" kolonna (93) = "CO" kolonna (94) = "KP" kolonna (95) = " CQ "kolonna (96) =" CR "kolonna (97) =" CS "kolonna (98) =" CT "kolonna (99) =" CU "kolonna (100) =" CV "kolonna (101) =" CW " kolonna (102) = "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) = "DG" kolonna (112) = "DH" kolonna (113) = "ID" kolonna (114) = "DJ" kolonna (115) = "DK" kolonna (116) = "DL" kolonna (117) = "DM" kolonna (118) = "DN" kolonna (119) = "DO" kolonna (120) = " DP "kolonna (121) =" DQ "kolonna (122) =" DR "kolonna (123) =" DS "kolonna (124) =" DT "kolonna (125) =" DU "kolonna (126) =" DV " kolonna (127) = "DW" kolonna (128) = "DX" kolonna (129) = "DY" kolonna (130) = "DZ" kolonna (131) = "EA" kolonna (132) = "EB" kolonna ( 133) = "EK" kolonna (134) = "ED" kolonna (135) = "EE" kolonna (136) = "EF" kolonna (137) = "EG" kolonna (138) = "EH" kolonna (139) = "EI" kolonna (140) = "EJ" kolonna (141) = "EK" kolonna (142) = "EL" kolonna (143) = "MS" kolonna (144) = "IN" kolonna (145) = " EO "kolonna (146) =" EP "kolonna (147) =" EQ "kolonna (148) =" ER "kolonna (149) =" ES "kolonna (150) =" ET "kolonna (151) =" ES " kolonna (152) = "EB" kolonna (153) = "EW" kolonna (154) = "EX" kolonna (155) = "EY" kolonna (156) = "EZ" kolonna (157) = "FA" kolonna ( 158) = "FB" kolonna (159) = "FC" kolonna (160) = "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 "kolonna (172) =" FP "kolonna (173) =" KF "kolonna (174) =" FR "kolonna (175) =" FS "kolonna (176) =" FT " kolonna (177) = "FU" kolonna (178) = "FV" kolonna (179) = "FW" kolonna (180) = "FX" kolonna (181) = "FG" kolonna (182) = "FZ" kolonna ( 183) = "GA" kolonna (184) = "GB" kolonna (185) = "GC" kolonna (186) = "GD" kolonna (187) = "GE" kolonna (188) = "GF" kolonna (189) = "GG" kolonna (190) = "GH" kolonna (191) = "GI" kolonna (192) = "GJ" kolonna (193) = "GK" kolonna (194) = "GL" kolonna (195) = " GM "kolonna (196) =" GN "kolonna (197) =" GO "kolonna (198) =" GP "kolonna (199) =" GQ "kolonna (200) =" GR "kolonna (201) =" GS " kolonna (202) = "GT" kolonna (203) = "GU" kolonna (204) = "GV" kolonna (205) = "GW" kolonna (206) = "GX" kolonna (207) = "GY" kolonna ( 208) = "GZ" kolonna (209) = "HA" kolonna (210) = "HB" kolonna (211) = "HC" kolonna (212) = "HD" kolonna (213) = "HE" kolonna (214) = "HF" kolonna (215) = "HG" kolonna (216) = "SS" slejā (217) = "HI" kolonna (218) = "GL" kolonna (219) = "HK" kolonna (220) = " HL "kolonna (221) =" HM "kolonna (222) =" Uzņemošā "kolonna (223) =" UO "kolonna (224) =" HP "kolonna (225) =" HQ "kolonna (226) =" AP " kolonna (227) = "HS" kolonna (228) = "HT" kolonna (229) = "HU" kolonna (230) = "HV" kolonna (231) = "HW" kolonna (232) = "H" kolonna ( 233) = "HY" kolonna (234) = "HZ" kolonna (235) = "IA" kolonna (236) = "IB" kolonna (237) = "IC" kolonna (238) = "ID" kolonna (239) = "IE" kolonna (240) = "JA" kolonna (241) = "IG" kolonna (242) = "IH" kolonna (243) = "II" kolonna (244) = "IJ" kolonna (245) = " IK "kolonna (246) =" IL "kolonna (247) =" IM "kolonna (248) =" IN "kolonna (249) =" IO "kolonna (250) =" IP "ailē (251) =" IQ " kolonna (252) = "R" kolonnas (253) = "IS" kolonna (254) = "IT" kolonna (255) = "UI" kolonna (256) = "IV" Atgriešanās kolonna (skaits) End Function End Class Šī metode ir kalpojusi mani labi, un es ceru, ka jūs pārāk ... lūdzu atstājiet savus komentārus.
32 Atbildes uz "Automātiski Eksporta DataTable uz Microsoft Excel"
Komentēt
Informācija Bitacoras.com ...
Līmenis Bitacoras.com: Sveiki, Šodien es vēlos parādīt kādu piemēru, kas ir kalpojis mani ilgu laiku, un tomēr es joprojām izmantot to. Mēs veiksim piemēru eksportēt DataTable uz Excel pilna neatkarīgi no kolonnu skaitu vai rindās ka Teng .....
Labs ...
Lielisks pastu! Paldies jums palīdzēja man pilns, bet man ir šaubas .. Kā saikne ir ar sql .. Kā es varu pārdēvētu kolonnu! Jo tā rada nosaukumu uz sql jomā ..!
Es ceru un esmu sapratusi ..
Paldies!
Es esmu dodas glābt ...
kādā brīdī tas būs noderīgs ...
Tas derīga Excel 2007? Man ir bijušas problēmas ar eksportu attīstīt, ka tas ir derīgs iepriekšējām versijām, bet ne 2007. Paldies
Milzīgs pirmkodu. pasniedz man labi. q tas bija sen.
Kaut arī ir nepieciešams ecxel importētu datu tabulas. bet varētu būt vides uz DataGrid un pēc tam atjauninot DataAdapter un pieņemt pārmaiņas DataTable tiks saglabāti q BD ... Es ceru, ka varēšu palīdzēt vai atrast .. paldies
Čau Liels paldies! Šo lielisko!
Bet es brīnos, kur DataGrid norādīts, ka izmanto gadījumā, kas ir vairākas DataGrid?
Uz galda jūs par zvanu ...
SELECT * FROM (tabulu nosaukums)
Ja jūs vēlaties, lai norādītu, kuri lauki vēlaties
izvēlieties (lauki, lauki, lauki) * no tabulas
ejm
atlasīt auto, krāsu, gadu no automašīnas
Man ir problēma ar šo piemēru es varu 2 kļūdas mainīgie līdzstrāvas un Dr, es varu darīt, lai salabot?
Hi, mēģiniet šo:
Katram dr Kā DataRow (0) ds.Tables. Rindas un DataColumn Katram DC IN ds.Tables kā (0). Sleja
Es ceru, ka tas ir atrisināts. Sveicieni.
hola.
šis chevere, bet kolonnas nosaukuma daļa nav ļoti funkcionāla.
Es augšupielādēt uz manu blogu, daudz mazāka kods izmēra ierobežojumi un bez
jaysson.blogspot.com
gatava un uzkāpa rakstu
http://jaysson.blogspot.com/2010/06/columnas-es-excel.html
Labs raksts, bet man ir problēmas ar manu datoru ar Excel 2007 strādā nevainojami, bet ar datoriem ar Excel 2003 vai agrāk nedarbojas. Kāds zina, ja bibliotēku problēma, kas tiek importēti, jo jums tas nozīmē, ka darbi paredzēti jebkuram Excel, bet man ir radušās šo problēmu.
Redzēsim, vai kāds var atrisināt šaubas.
Paldies.
Labs ...
Lielisks pastu! Paldies jums palīdzēja man pilns, bet man ir šaubas .. Kā saikne ir ar sql .. Kā es varu pārdēvētu kolonnu! Jo tā rada nosaukumu uz sql jomā ..!
Es ceru un esmu sapratusi ..
Paldies!
Public Sub ExportarDatosExcel (ByVal DataGridView1 Kā DataGridView, ByVal nosaukuma As String)
Kā New Excel.Application Dim m_Excel
m_Excel.Cursor = Excel.XlMousePointer.xlWait
m_Excel.Visible = True
Kā Excel.Workbook Dim objLibroExcel = m_Excel.Workbooks.Add
Kā Excel.Worksheet Dim objHojaExcel = objLibroExcel.Worksheets panta 1)
Ar objHojaExcel
. Redzams = Excel.XlSheetVisibility.xlSheetVisible
. Aktivizēt ()
"Header
. Klase ("A1: L1"). Apvienot ()
. Klase ("A1: L1") Vērtība = "INSTITŪTS ARGENCAF".
. Klase ("A1: L1"). Font.Bold = True
. Klase ("A1: L1") Font.Size = 15.
"Tufts
. Klase ("A2: L2"). Apvienot ()
. Klase ("A2: L2"). Vērtība = nosaukums
. Klase ("A2: L2"). Font.Bold = True
. Klase ("A2: L2"). Font.Size = 12
Const primeraLetra Kā Char = ""
Const firstNumber Kā Short = 3
Dim vēstule Kā Char, Char Kā UltimaLetra
Dim skaits kā Integer, UltimoNumero Kā Integer
Dim kā Byte = asc cod_letra panta primeraLetra) - 1
Dim kā String = Application.CurrentCulture.NumberFormat.NumberDecimalSeparator sepDec
Dim kā String = Application.CurrentCulture.NumberFormat.NumberGroupSeparator sepMil
"Noteiktais formāts no meitas aprēķina kolonnu
StrColumna Dim kā String = ""
LetraIzq Dim kā String = ""
Dim kā Byte = asc cod_LetraIzq panta primeraLetra) - 1
Vēstule = primeraLetra
Skaits = firstNumber
Kā Excel.Range Dim objCelda
Katrai C, kā DataGridViewColumn In DataGridView1.Columns
Tad, ja c.Visible
Ja vēstule = "Z" Tad
Vēstule = primeraLetra
cod_letra = Asc (primeraLetra)
cod_LetraIzq + = 1
LetraIzq = Chr (cod_LetraIzq)
Cits
cod_letra + = 1
Vēstule = Chr (cod_letra)
Beigas Ja
strColumna = LetraIzq + Lyrics + Numero.ToString
objCelda = Range (strColumna, Type.Missing).
objCelda.Value = c.HeaderText
objCelda.EntireColumn.Font.Size = 8
"ObjCelda.EntireColumn.NumberFormat = c.DefaultCellStyle.Format
Ja c.ValueType Vai GetType (decimāldaļu) OrElse c.ValueType Vai GetType (Double) Tad
objCelda.EntireColumn.NumberFormat = "#" + sepMil + "0" + sepDec + "00"
Beigas Ja
Beigas Ja
Nākamais
Kā Excel.Range Dim objRangoEncab =. Apjoma (primeraLetra + Numero.ToString, kas LetraIzq + vārdi + Numero.ToString)
objRangoEncab.BorderAround (1, Excel.XlBorderWeight.xlMedium)
UltimaLetra = Sūtīt
Dim kā String = LetraIzq UltimaLetraIzq
'Ielādēt DATA
Dim i kā Integer = skaits + 1
Katrai sarakstā kā DataGridViewRow DataGridView1.Rows
LetraIzq = ""
cod_LetraIzq = Asc (primeraLetra) - 1
Vēstule = primeraLetra
cod_letra = Asc (primeraLetra) - 1
Katrai C, kā DataGridViewColumn In DataGridView1.Columns
Tad, ja c.Visible
Ja vēstule = "Z" Tad
Vēstule = primeraLetra
cod_letra = Asc (primeraLetra)
cod_LetraIzq + = 1
LetraIzq = Chr (cod_LetraIzq)
Cits
cod_letra + = 1
Vēstule = Chr (cod_letra)
Beigas Ja
strColumna = LetraIzq + Lyrics
"Te ir jābūt slodzes
. Šūnas i, strColumna) = IIf (IsDBNull (reg.ToString), "", reg.Cells (c.Index). Value)
"Šūnas i, strColumna). = IIf (IsDBNull (reģ. (c.DataPropertyName)), c.DefaultCellStyle.NullValue, reģ (c.DataPropertyName))
"Range (strColumna + i, strColumna + i).. In ()
Beigas Ja
Nākamais
Kā Excel.Range Dim objRangoReg =. Klase (primeraLetra + i.ToString, i.ToString strColumna +)
objRangoReg.Rows.BorderAround ()
objRangoReg.Select ()
i + = 1
Nākamais
UltimoNumero = i
"Draw līnijas kolonnām
LetraIzq = ""
cod_LetraIzq = Asc ("")
cod_letra = Asc (primeraLetra)
Vēstule = primeraLetra
Katrai C, kā DataGridViewColumn In DataGridView1.Columns
Tad, ja c.Visible
. objCelda = Range (LetraIzq + vārdi + primerNumero.ToString, kas LetraIzq + vārdi + (UltimoNumero -. 1) toString)
objCelda.BorderAround ()
Ja vēstule = "Z" Tad
Vēstule = primeraLetra
cod_letra = Asc (primeraLetra)
LetraIzq = Chr (cod_LetraIzq)
cod_LetraIzq + = 1
Cits
cod_letra + = 1
Vēstule = Chr (cod_letra)
Beigas Ja
Beigas Ja
Nākamais
"Zīmēt bieza ārējā robežā
Kā Excel.Range Dim objRango = Apjoma. (PrimeraLetra + primerNumero.ToString, UltimaLetra UltimaLetraIzq + (UltimoNumero -. 1) toString)
objRango.Select ()
objRango.Columns.AutoFit ()
objRango.Columns.BorderAround (1, Excel.XlBorderWeight.xlMedium)
Beidzas ar
m_Excel.Cursor = Excel.XlMousePointer.xlDefault
End Sub
ToolStripButton2_Click_1 Private Sub (ByVal sender Kas System.Object, ByVal e As System.EventArgs) Rokturi ToolStripButton2.Click
ExportarDatosExcel (DataGridView1, "eksports")
End Sub
IZCILA! .... paldies brālis, un prasīja 3 dienas ar moduli importa / eksporta Excel un nekas strādāja .... bet ar savu risinājumu es redzu atkal zvaigznes ... sveicieni no Arequipa! ..
Nav par ko. Es esmu priecīgs jums kalpoja kā piemērs.
Šis kods palīdzēja man daudz, tāpēc es sadarboties ar saviem diviem centiem:
Ir optimizēta "ColumnName", lai nonāktu ahsta ZZ slejā 702 et al.)
Šeit es jums kodu:
Valsts funkciju ColumnName (ByVal numurs kā Integer) Kā String
Dim kolonna (703) Kā String
Kolonna (1) = ""
kolonna (2) = "B"
kolonna (3) = "C"
kolonna (4) = "D"
kolonna (5) = "E"
kolonna (6) = "F"
kolonna (7) = "G"
kolonna (8) = "H"
kolonna (9) = "I"
kolonna (10) = "J"
kolonna (11) = "K"
kolonna (12) = "L"
kolonna (13) = "O"
kolonna (14) = "N"
kolonna (15) = "O"
kolonna (16) = "P"
kolonna (17) = "Q"
kolonna (18) = "R"
kolonna (19) = "S"
kolonna (20) = "T"
kolonna (21) = "U"
kolonna (22) = "V"
kolonna (23) = "W"
kolonna (24) = "X"
kolonna (25) = "Y"
kolonna (26) = "Z"
Dim i = 27
Par Ltr1 = 1 Uz 26
Par Ltr2 = 1 Uz 26
kolonna (i) = sleja (Ltr1) un kolonnu (Ltr2)
i + = 1
Nākamais
Nākamais
Atgriešanās kolonna (skaits)
End Function
TECKNOCK, liels paldies par palīdzību, bet! Paturiet prātā, ka, ja grāmata mēs radām, ir saderīgs ar 97-2003 Excel maksimāli pieļaujamās slejās ir 256 (līdz IV). Tikpat komentārs ņemt to vērā.
Elisha
Kad es palaist vietējo pieteikumu funcioana pareizi, bet, kad es augšupielādēt to mājas lapā nav ģenerē Excel bet nesaņem kļūdas
Es meklēju haciend pamatota uz manu sql
nepatīk man bija darīt, bet es darīšu aja
Man ir vajadzīga palīdzība mēģināt to darīt katru veidu, kā jūs esat šeit, un man kļūda visi
Roku, tu esi perfekts funca maksimums.
[...] [...]
ļoti labs, congratulations ir labākā amatā es esmu lasījusi un apspriedusies
Paldies! Tas bija ļoti noderīgi
Hey kods nedarbojas uz mani iezīmē da.Fill kļūdas (DS)
Es atzīmējiet kļūdas netika atrasts SQLException
jūs varat man palīdzēt
viens jautājums var veikt tiešu ielādes sql vaicājumu Excel?
iepriekš caur
sveiki draugi Vispirms jums agradesco Jūsu ieguldījums.
Ievērojiet, ka man ir problēma es nevaru atrast atsauci jums norādīt, Man ir uzstādītas 2010 un kas nevar būt mana problēma.
agradeseria daži padoms jums.
Hello, ļoti labs ieguldījums ir tas, ko es meklēju ... bet kad es palaist to no attīstības serveri strādā perfekti, bet, kad es piekļūt internetā no cita pc tas nekas ... ne kļūdas, bet nav ierakstu neko ...
Kāds zina, kā salabot?
Liels paldies, palīdzēja man jūsu piemērs par pamatu ražošanas funkciju, kas rada man Excel failu, bet tieši no vērtībām, kas glabājas tīklā ir kāds dejor lieta ir noderīga kādam
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / Mēs noteikti līniju ar kolonnu virsrakstiem
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
objHojaExcel.Range ("A1"). Izvēlieties ()
Dim Es kā Integer = 0
Lncol Dim kā Integer = 1
Par katru dc In dgvSocios.Columns
Ja dgvSocios.Columns.Item (es). Redzams = True Tad
objHojaExcel.Range (ColumnName (lncol) un 1). Vērtība = dgvSocios.Columns.Item (es). HeaderText
lncol + = 1
Beigas Ja
Es + = 1
Nākamais
rinda + = 1
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / Mēs formatēt rindu virsrakstus
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
Kā Excel.Range Dim objRango = objHojaExcel.Range ("A1" un ColumnName (lncol) un "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
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / Ievietojiet visas rindas, kas DataTable
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
ProgressBar1.Maximum = dgvSocios.Rows.Count
sleja = 0
ProgressBar1.Value = 0
ProgressBar1.Visible = True
Lnfila Dim kā Integer = 0
I = 1
Katram dr In dgvSocios.Rows
sleja = 0
Par katru dc In dgvSocios.Columns
Ja dgvSocios.Columns.Item (kolonnas). Redzams = True Tad
objHojaExcel.Range (ColumnName (es) un rinda). Vērtība = dgvSocios.Item (kolonnas, lnfila). Value.ToString
Es + = 1
Beigas Ja
kolonna + = 1
Nākamais
lnfila + = 1
rinda + = 1
ProgressBar1.Value + = 1
Nākamais
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / Mēs pielāgotu platumu automātiski
'/ / No visām izmantoto kolonnu
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
objRango = objHojaExcel.Range ("A1" un ColumnName (lncol) un (lnfila + 1) toString.)
objRango.Select ()
objRango.Columns.AutoFit ()
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / Mēs pateikt Excel, lai parādītu
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
MsgBox ("Eksportēt uz Excel pilnveidot" un MsgBoxStyle.Information ". :: Solovb.net ::.")
m_Excel.Visible = True
Liekas mazliet par šo funkciju, šādu kodu neļauj izmantot "Piedāvājuma", lai neprasa funkciju "ColumnName"
Sveicieni,
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.Office.Interop.Excel
Sabiedrības modulis mutil
Public Sub ExportarDtToExcel (ByVal Dt Kā System.Data.DataTable, ByVal nosaukuma As String)
Kā Excel.Application Dim m_Excel
Kā Excel.Workbook Dim objLibroExcel
Kā darblapas Dim objHojaExcel
Mēģināt
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / Izveidot Excel objekts
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / /
m_Excel = CreateObject ("Excel.Application")
m_Excel.Workbooks.Add objLibroExcel = ()
objHojaExcel = objLibroExcel.Worksheets (1)
objHojaExcel.Name = Nosaukums
objHojaExcel.Visible = Excel.XlSheetVisibility.xlSheetVisible
objHojaExcel.Activate ()
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / Define divus mainīgos kontroles rindu un kolonnu
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
Dim rinda kā Integer = 1
Dim kolonna kā Integer = 1
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / Mēs noteikti līniju ar kolonnu virsrakstiem
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
"ObjHojaExcel.Range (" A1 "). Izvēlieties ()
objHojaExcel.Cells (rinda, kolonna). SELECT ()
Par katru dc In Dt.Columns
objHojaExcel.Cells (rinda, kolonna). Vērtība = dc.ColumnName
kolonna + = 1
Nākamais
rinda + = 1
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / Mēs formatēt rindu virsrakstus
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
Kā Excel.Range = dim objRango objHojaExcel.Range panta objHojaExcel.Cells (1, 1), objHojaExcel.Cells panta 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
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / Ievietojiet visas rindas, kas DataTable
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
sleja = 1
Katram dr In Dt.Rows
sleja = 1
Par katru dc In Dt.Columns
objHojaExcel.Cells (rinda, kolonna). Vērtība = DR (dc.ColumnName)
kolonna + = 1
Nākamais
rinda + = 1
Nākamais
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / Mēs pielāgotu platumu automātiski
'/ / No visām izmantoto kolonnu
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
objHojaExcel.Cells objRango = (1, Dt.Columns.Count)
objRango.Select ()
objRango.Columns.AutoFit ()
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
'/ / Mēs pateikt Excel, lai parādītu
'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
MsgBox ("Eksportēt uz Excel Pilnīga" MsgBoxStyle.Information, "Eksporta")
m_Excel.Visible = True
Catch ex Kā Izņēmums
MsgBox (ex.ToString)
Beidzot
objHojaExcel = Nekas
objLibroExcel = Nekas
m_Excel = Nekas
Beigt Mēģiniet
End Sub
Gala modulis