[es] - RichTextBox u Excel

BackoSoft

Član broj: 205353
Poruke: 35
*.dynamic.telemach.ba.

Profil

^{25.02.2012. u 19:47 - pre 147 meseci}

Dali mi neko moze pomoci da iz RichTextBox-a snimim Ime,prezime,telefon i adresu u excel tabelu, gdje je se Prezime ponavlja svaku 5-tu liniju u RichTextBox, Ime isto svaku 5-tu liniju, Telefon svaku 5-tu liniju, Adresa svaku 5-tu liniju.

VB.NET CODE ....

Code:

Hello :-)

Prikačeni fajlovi

ddc.jpg - 84.28k

Odgovor na temu

aca andrijevic
aka LoGaN
Nis

Član broj: 35450
Poruke: 347
217.16.143.*

ICQ: 325309560

+2 Profil

Re: RichTextBox u Excel

^{26.02.2012. u 10:30 - pre 147 meseci}

Uzmes napravis for petlju za 5 linija informacija iz RTBoxa i stavis linije u neki array.Iz tog array posle
izvuces elemente koji ti trebaju i stavis ih u celije u excel-u.

"Ne menjaj nesto sto te sasvim dobro sluzi, ne trazi leba preko pogace" - Aleksandar Andrijevic

Odgovor na temu

mish_ns
Miloš Krstin

Član broj: 159930
Poruke: 1105
*.dynamic.isp.telekom.rs.

+18 Profil

Re: RichTextBox u Excel

^{27.02.2012. u 06:34 - pre 147 meseci}

Prvo bi morao da dodaš referencu na Microsoft Excel 12.0 Object library.
Sa Add Reference... odeš na COM odeljak.

U kodu dodaš:
Imports Excel = Microsoft.Office.Interop.Excel

Primer koda bi bio ovakav:

Code:

Dim oldCI As System.Globalization.CultureInfo = _
System.Threading.Thread.CurrentThread.CurrentCulture
System.Threading.Thread.CurrentThread.CurrentCulture = _
New System.Globalization.CultureInfo("en-US")

excelApp = CreateObject("Excel.Application")
excelWorkBook = xlApp.Workbooks.Add()
excelWorkSheet = xlWorkBook.Sheets("sheet1")

excelWorkSheet.Cells(1, 1) = "Ime:"
excelWorkSheet.Cells(1, 2) = "Milan"
excelWorkSheet.Cells(1, 3) = "Prezime:"
excelWorkSheet.Cells(1, 4) = "Milanović"

excelWorkBook.SaveAs("C:\Imenik.xls")

excelApp.Quit()
excelWorkBook = Nothing
excelApp = Nothing
System.Threading.Thread.CurrentThread.CurrentCulture = oldCI

E sad ako ti reba svaki 5 put onda prvo čitaš iz richtextboxa podatke, smeštaš u neki niz.
i onda:

Code:

...
for index as integer = 0 to 4
  excelWorkSheet.Cells(index, 1) = nizImena(i)
  excelWorkSheet.Cells(index, 2) = nizPrezimena(i)
  excelWorkSheet.Cells(index, 3) = nizTelefona(i)
  excelWorkSheet.Cells(index, 4) = nizAdresa(i)
next
...

Odgovor na temu