Punjenje excel fila preko VB forme...

Punjenje excel fila preko VB forme...

offline
  • Pridružio: 04 Nov 2006
  • Poruke: 3

Naime, rec je o sledecem:
Napravim VB formu sa TextBox-om i kontrolnim dugmetom...
Kada kliknem da dugme uspevam da otvorim pripremljeni Excel Book i da ga upisem, ali samo ako tacno pozicioniram gde hocu da to upisem, a kod je sledeci:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim xlapp As Excel.Application         Dim xlwrk As Excel.Workbook         Dim xlsht As Excel.Worksheet         xlapp = New Excel.Application         xlwrk = xlapp.Workbooks.Open("E:\Documents and Settings\Administrator\Desktop\Book11.xls")         xlsht = xlwrk.Worksheets(1)         xlsht.Cells(1, 1) = TextBox1.Text         xlwrk.SaveAs("C:\Baza.xls")         xlwrk.Close()         xlsht = Nothing         xlwrk = Nothing         xlapp = Nothing     End Sub End Class

Ja bih sada da ne moram da pozicioniram gde hocu da mi unese podatke, odnosno u celiju A1 ili neku drugu, vec da mi unosi podatke u prvu praznu celiju A kolone i kad kliknem na comandButton da mi ocisti TextBox1 i pripremi ga za sledeci unos koji ce se upisivati sada u A2, jer je ona prva prazna celija.

Imam jos jedan problem:
sa ovim redom
xlwrk.SaveAs("C:\Baza.xls")
on mi tako napunjen fajl cuva na C pod imenom Baza. Ja bih da mi ga cuva po nazivu koji inesem u TextBox1. Znaci on mi text iz TextBox1 upise u celiju A1, ali ja hocu da mi ga i sacuva koristeci kao naslov upravo taj text.



snoop.edit

Dopuna: 04 Nov 2006 23:39

Evo koda koji puni prvu praznu celiju u nekom excel file sa sadrzajem iz TextBox1.


Code:

private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim xlapp As Excel.Application
Dim xlwrk As Excel.Workbook
Dim xlsht As Excel.Worksheet
Dim celija As Excel.Range
xlapp = New Excel.Application
xlwrk = xlapp.Workbooks.Open("E:\Documents and Settings\Administrator\Desktop\11.xls")
xlsht = xlwrk.Worksheets(1)
For Each celija In xlwrk.Worksheets(1).Range("A1:A65536")
If celija.Value = "" Then
celija.Value = TextBox1.Text
Exit For
End If
Next celija
xlwrk.SaveAs("C:\111.xls")
xlwrk.Close()
xlsht = Nothing
xlwrk = Nothing
xlapp = Nothing
End Sub



Sada mi je jos problem to da mi on sacuva to sto je uneto i isprazni TextBox1 za unos u sledecu praznu celiju..
Jer, ovako kako je, ja ako izbrisem unos iz TextBox1 i unesem nesto drugo, on mi ne puni sledecu praznu celiju, vec mi to unosi na mesto prethodnog unosa...

Hajde, ljudi.. nije zanimljivo da se bas sama ubijam mozgajuci oko ovoga....

Dopuna: 05 Nov 2006 0:33

Ovo je kod koji puni sledecu praznu celiju i brise sadrzaj iz TextBoxa i oslobadja ga za sledeci unos, pri cemu je ono sto je vec uneto sacuvano. Fora je bila u ovome:


For Each celija In xlwrk.Worksheets(1).Range("A1:A65536")
If celija.Value = "" Then
celija.Value = TextBox1.Text
xlwrk.Save()
TextBox1.Text = ""
Exit For
End If
Next
xlwrk.SaveAs("C:\staro.xls")


A evo i celoga koda, mozda nekome zatreba....


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim xlapp As Excel.Application
Dim xlwrk As Excel.Workbook
Dim xlsht As Excel.Worksheet
Dim celija As Excel.Range
xlapp = New Excel.Application
xlwrk = xlapp.Workbooks.Open("E:\Documents and Settings\Administrator\Desktop\1.xls")
xlsht = xlwrk.Worksheets(1)
For Each celija In xlwrk.Worksheets(1).Range("A1:A65536")
If celija.Value = "" Then
celija.Value = TextBox1.Text
xlwrk.Save()
TextBox1.Text = ""
Exit For
End If
Next
xlwrk.SaveAs("C:\staro.xls")
xlwrk.Close()
xlsht = Nothing
xlwrk = Nothing
xlapp = Nothing
End Sub



Sad jos ostaje da resimo prikaz tih podataka tj pozivanje excel file-va u vidu nekih izvestaja....



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Ko je trenutno na forumu
 

Ukupno su 1110 korisnika na forumu :: 39 registrovanih, 8 sakrivenih i 1063 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: antonije64, Areal84, Asparagus, Bobrock1, bozo13, Brana01, darkangel, dmdr, dragoljub11987, DragoslavS, GandorCC, Georgius, goxin, ILGromovnik, Karla, Komentator, kovinacc, kybonacci, ljuba, milanovic, Milometer, milos.cbr, Mlav, oldtimer, ostoja, Pikac-47, procesor, Ripanjac, simazr, Srle993, taz1cl, Trpe Grozni, vasa.93, vathra, VJ, Vlad000, Vlada78, vladaa012, vladulns