MyCity » Visual Studio -> Visual Basic » pozivanje worksheet-a u excel-u iz vb

pozivanje worksheet-a u excel-u iz vb

Napisano na dan: 8.10.2006

pozivanje worksheet-a u excel-u iz vb
Sledeća strana Pagination

Idi na vrh

Poslao: 08 Okt 2006 11:20
Idi na vrh
offline
  • Pridružio: 03 Okt 2006
  • Poruke: 30

Da li neko moze da mi objasni kako da pozovem worksheet u excelu iz vb, i da upravljam njime (upisivanje, pamcenje, brisanje)?



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 04 Nov 2006 20:49
Idi na vrh
offline
  • Pridružio: 04 Nov 2006
  • Poruke: 3

Pa, ne znam koliko ce ti ovo biti sada od pomoci, jer proslo je dosta vremena...
Dodaj referencu na excel:Project/Add Reference/COM/Microsoft Excel Object Library
Potom da bi punio i otvarao excel file postavi jeden TextBox i jedno dugme Button. Mozes da otvoris postojeci file sa odredjenim proracunima i formulama ili da ga punis... Ako otvaras postojeci ide ovako:

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")     'otvara postojeci file         xlsht = xlwrk.Worksheets(1)     'otvara sheet 1 a ti mozes da biras koji         xlsht.Cells(1, 1) = TextBox1.Text   'celija koju puni         xlwrk.SaveAs("C:\Baza.xls")   'ako hoces da to cuvas pod odredjenim imenom na odredjenom mestu, a da ti onaj book koji si otvorio ostane blanko za novi unos onda ide gore navedeni red, a ako snimas izmene u file koji si otvorio, onda:         xlwrk.Save()         xlwrk.Close()         xlsht = Nothing         xlwrk = Nothing         xlapp = Nothing     End Sub End Class

a ako nemas vec ga kreiras, onda:

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 Set xlapp = New Excel.Application Set xlwrk = xlapp.Workbooks.Add Set xlsht = xlwrk.Worksheets(1) xlsht.Cells(red, 1) = Text1.Text xlsht.Cells(red, 2) = Text2.Text xlwrk.SaveAs "C:\proba.xls" 'ime fajla koji hoces da kreiras xlwrk.Close Set xlsht = Nothing Set xlwrk = Nothing Set xlapp = Nothing End Sub End Class

Trenutno radim na tome da napravim da kada kliknes na to dugme, on puni prvu praznu celiju u datom book-u, i da ti ocisti textBox za novi unos...
Kada uradiom, ako uradim :-?, i to cu postaviti...
Ako neko od vas vec zna kako bi to moglo, bila bih jako zahvalna ako bi to postavili.
Pozdrav!



snoop.edit



MyCity » Visual Studio -> Visual Basic » pozivanje worksheet-a u excel-u iz vb

Ko je trenutno na forumu
 

Ukupno su 1440 korisnika na forumu :: 134 registrovanih, 6 sakrivenih i 1300 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 15694 - dana 01 Feb 2026 12:23

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 6.5lapua, alek_bre, Aleksandar Šljivar, Aleksandar1991, aleksjevt, amstel, Asparagus, ast13, awathorn, bankulen, Banovo Brdo, bigfoot, black_raven, Blizzard035, Bobrock1, bojcistv, Boroš, BORUTUS, BOXRR, branko7, Burovnyak, cafa0412, carinko, ceman, CHARLIE JA., Coficab, Darko8, deLacy, Desmond, despodovski.s, Diplomac, djonsule, Djuza, Dobi, Dolinc, Dragacevac, draganl, Dvojac005, Dzuki, gomago, Hitri, hmrkovic, Hubert, ILGromovnik, Jozo74, K a s p e r, Kajzer_Soze, kikisp, kondenzator, kreker, Kružić, kunktator, kuntakinte, Kuroje, kybonacci, Lance Guest, Le Banner, Leonov, lucianovercetti, maksi007, marko.markovic, mat, mb1213, mercedesamg, MidnighT_AlieN, Mig 29, Might is Right, mikrimaus, miljannis, milos.cbr, Milos82, Milun24, moldway, mr.lucas, mrgud2025, N.e.m.a.nj.a., narandzasti, nefs, nemkea71, nikonema, niksa517, pavle_pzs, pein, Pero, Petar25, pirke96, Posmatrac77OKB, Prašinar, Privrednik, proljece, Raso75, raso92, redstar72, Resnica, rikirubio, Rocky I, royst33, sasics, Sass Drake, Seeker, Semberija, Sevatar, shiro, sickmouse, sijecanj, Sirius, Slingshot, Stanislav1970, Stanlio, StepskiVuk, synergia, tanakadzo, tecataki, tesa, TheBeastOfMG, theNedjeljko, Tumansky, Underwood, USSVoyager, varda, vdeki, VJ, vlada035, VNVK, Vrač, Vujkeu, Yekaterinburg, YugoSlav, Zeljo980, zil10, Zmaj Tolak, Zukov, zule2, 800077