Evo, slušam preporuke što da rabim za spremanje podataka ali pod uvjetom da bude spojivo sa ovim mojim vb programom.
Stoput ti je već bilo rečeno. ACCESS!
Evo, slušam preporuke što da rabim za spremanje podataka ali pod uvjetom da bude spojivo sa ovim mojim vb programom.
Evo ti jedno instant-rješenje. Koliko sam ja skužio iz SS forme kojeg si stavio, tebi zapravo treba OVO. Baza ti je dakle već gotova te uz pokoju prilagodbu (i prijevod na hrvatski) možeš dobiti točno ono što ti treba. Čak imaš i gotove forme za unos unutra. I kad konačno složiš ono što ti treba, s OVIM prebaciš to u VB. Popraviš što još eventualno treba, kompajliraj i gotov si! Sveukupno: otprilike pola dana posla.
Što se tiče ne-instant rješenja, prvo prouči neke osnovne tutorijale o bazama podataka, zatim prijeđi na one o Access DBMS-u, i na kraju prouči onda kako povezati Access DB sa VB-om. Sveukupno: min. 6 mjeseci.
To lutanje s VB te nikud ne vodi. Puno je jednostavnije napraviti sve kao bazu podataka i neku finu formu za unos. Korisniku će biti jednostavno, nikakve on brige nema oko te baze.
Ili, evo sto ti vlad0 kaže, imas cak i gotovu bazu, samo prevedi na hrvatski i modificiraj malo. Radio sam prije par godina sličnu bazu, 2-3 dana aktivnijeg rada i gotov si.
Evo, slušam preporuke što da rabim za spremanje podataka ali pod uvjetom da bude spojivo sa ovim mojim vb programom.
-već rečeno... pa samo C/P
Ako nema nekih drugih potreba u programu (samo rad s bazom) tad radije to sve napravi u accessu, malo je lakše, pogotovo printanje.
Naravno, za bilokakvu aplikaciju s bazom, preduvjet je da znaš raditi s bazama.. osnove SQLa i relacije. To sve lakše svladaš kroz access.
- dovoljno je pokrenuti wizarda i kreirat će ti bazu sa svim potrebnim formama i reportima, pa samo prouči napravljeno i pokušaj primjeniti ili adaptirati.
-za lakše razumijevanje, napravi npr adresar samo s ID, ime, adresa poljima. Idući korak je dodavanje drugih tablica i relacije među njima... (standardno su npr. artikli, dobavljači, adresari itd. odvojene tablice koje se po potrebi kombiniraju -tome služi SQL).
Ukoliko je neki template jednak tvojim potrebama, sasvim funkcionalno rješenje možeš imati za 2-minute.
Ubit ću se. Već 8 sati sjedim kao zadnji kreten i pokušavam natjerat to govno da radi. Apsolutno nemoguće. Ode tjedan dana rada u qrac.
Jel se može u excelu nešto napraviti da ako u ćeliji ima zapis, da taj zapis preseli u neku drugu ćeliju?
Pokušavam napraviti IF formulu u excelu , ali ne znam kako bih je formulirao-trebalo bi nešto tipa ako je ćelija B1 prazna, vrijednost ćelije C1 ostaje ista (tu je problem), a ako je B1 puna, onda je vrijednost ćelije C1 jednaka vrijednosti ćelije B1. Tu formulu prenesem na sve ćelije i onda one međusono prebacuju sadržaj dok ne dođu do zadnje. Parva se salno prebriše. Help, hint?
Na netu sam iskopao ovo:
'Establish a connection to the data source.
Dim sConnectionString As String
sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sSampleFolder & _
"Book7.xls;Extended Properties=Excel 8.0;"
Dim objConn As New System.Data.OleDb.OleDbConnection(sConnectionString)
objConn.Open()
'Add two records to the table.
Dim objCmd As New System.Data.OleDb.OleDbCommand()
objCmd.Connection = objConn
objCmd.CommandText = "Insert into [Sheet1$] (FirstName, LastName)" & _
" values ('Bill', 'Brown')"
objCmd.ExecuteNonQuery()
objCmd.CommandText = "Insert into [Sheet1$] (FirstName, LastName)" & _
" values ('Joe', 'Thomas')"
objCmd.ExecuteNonQuery()
'Close the connection.
objConn.Close()
Da li bih mogao to primjeniti na moj program?
Ako ti je Excelova datoteka pravilno strukturirana, zašto ne?
No, opet se postavlja pitanje, s obzirom da taj kod koristi MS Jet DB Engine, zašto bi se spajao na Excelovu datoteku, kad se možeš na ISTI način spojiti na bazu podataka napravljenu u Accessu?
Osim toga, taj Connection string ne moraš sam pisati - imaš neku komponentu za spajanje na bazu podataka (ne znam koja je to u VB-u) i uz par klikova mišem, gdje odabereš bazu podataka na koju ćeš se spajati, VB ti sam napravio Connection string. I onda ni ne moraš ručno išta previše koda pisati, s obzirom da postoje data-aware kontrole.
Eh, 'prećera' ga. Pa nije baš 6 mj..
vex555, što nisi tih tjedan dana pročitao help VB-a (vezan uz DB), nego trubiš s tim excelom. Pusti ti tutorijale, uzmi help i imaš vrlo jednostavno objašnjeno kako napraviti tih par klikova da sve funkcionira. Sve je pojednostavljeno uz data komponente, reporte i svega ostalog namjenjeno za te svrhe. Ne moraš pisati svoj driver za komunikaciju s bazom, nije to neka nauka. Pa kad zapneš u konkretnom problemu, onda pitaj..
Uspio sam nešto namrljati, no i dalje imam grešku-prilikom upisa, prebriše mi prvi upis sa naslovima stupaca, a prlikom drugogo izbaci grešku. Evo koda za spremanje:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim NewRow As Double
NewRow = workbook.Worksheets("sheet1").Range("A1").Value + 1
worksheet.Cells(NewRow, 1).Value = Label4.Text
worksheet.Cells(NewRow, 2).Value = Label5.Text
worksheet.Cells(NewRow, 3).Value = Label6.Text
worksheet.Cells(NewRow, 4).Value = Label7.Text
worksheet.Cells(NewRow, 5).Value = Label8.Text
worksheet.Cells(NewRow, 6).Value = Label9.Text
worksheet.Cells(NewRow, 7).Value = Label10.Text
worksheet.Cells(NewRow, 8).Value = Label11.Text
worksheet.Cells(NewRow, 9).Value = CheckBox1.Text
worksheet.Cells(NewRow, 10).Value = CheckBox2.Text
worksheet.Cells(NewRow, 11).Value = CheckBox3.Text
worksheet.Cells(NewRow, 12).Value = CheckBox4.Text
worksheet.Cells(NewRow, 13).Value = Label1.Text
worksheet.Cells(NewRow, 14).Value = Label2.Text
worksheet.Cells(NewRow, 1).Value = TextBox1.Text
worksheet.Cells(NewRow, 2).Value = TextBox2.Text
worksheet.Cells(NewRow, 3).Value = ComboBox1.Text
worksheet.Cells(NewRow, 4).Value = TextBox3.Text
worksheet.Cells(NewRow, 5).Value = TextBox4.Text
worksheet.Cells(NewRow, 6).Value = TextBox6.Text
worksheet.Cells(NewRow, 7).Value = DateTimePicker1.Text
worksheet.Cells(NewRow, 8).Value = TextBox5.Text
worksheet.Cells(NewRow, 9).Value = CheckBox1.Checked
worksheet.Cells(NewRow, 10).Value = CheckBox2.Checked
worksheet.Cells(NewRow, 11).Value = CheckBox3.Checked
worksheet.Cells(NewRow, 12).Value = CheckBox4.Checked
worksheet.Cells(NewRow, 13).Value = RichTextBox1.Text
worksheet.Cells(NewRow, 14).Value = RichTextBox2.Text
End Sub
NewRow = workbook.Worksheets("sheet1").Range("A1").Value + 1
Koja vrijednost ti piše u ćeliji A1? Ako ti ne piše 1, onda će ti value ispasti 0, kad tome pribrojiš jedinicu, ispada da će ti redak biti 1, odnosno da uvijek počinješ od prvog retka, tj. od ćelije A1.
PROGRAMIRANJE NE IDE NA SILU! TREBAŠ TOČNO ZNATI ŠTO I ZAŠTO NEŠTO RADIŠ.
Dešava mi se ista stvar. Prethodno upisane podatke prebriše.
Dešava mi se ista stvar. Prethodno upisane podatke prebriše.
Prvo - koja vrijednost ti piše u ćeliji A1?
Drugo - jesi ti siguran da si s dotičnom naredbom (NewRow = workbook.Worksheets("sheet1").Range("A1").Value + 1) pročitao sadržaj ćelije A1? Zašto odmah iza te naredbe ne prikažeš dijalog s vrijednosti NewRow? Kladim se da ti je uvijek ta vrijednost 1, zar ne (jer je 0 + 1 = 1)?
-nevjerojatna upornost. Bravo vex. 
Ipak, mada je svaki (prvi) korak težak, da bi došao do cilja njie samo potrebno koračati, potrebno je i znati put-cilj... ideš u pogrešnom smjeru, ignoriraš putokaze. Izgubit ćeš se u močvari i biti ljut na komarce što te grizu....
Pa sad, ugasi te črčkarije, upali access. Može sve što može i excell ili vb. To mu je namjena.
- Excel je mlinćić za brojeve, nije baza.
Ako baš inzizstiraš, (zašto ignoriraš dat primjer, AutoForm?), možeš u excelu napraviti.
Ako želiš saznati kod-VBA, jednostavno snimi makro i ponovi prije dat primjer.
Otvori taj snimljeni makro i vidi koji je VBA kod izgeneriran.. taj kod je ono što ti treba. (na nivou MS Office paketa je skoro svejedno koji program koristiš, ispod haube su jednaki).
Tako ćeš vidjeti kako excel pristupa određenim čelijama... na tebi je da samo to prilagodiš potrebama ili bindaš na button.
Možeš ga iskorititi i iz VBa uz manje adaptacije...
edit: čak sam napravio makro, tek da vidiš izgenerirani kod...
Sub Test_Tablica()
'
' Test_Tablica Macro
' Macro recorded 17.07.2011 by xxxxx-Hush
'
'
Range("B4").Select
ActiveCell.FormulaR1C1 = "artikal"
Range("C4").Select
ActiveCell.FormulaR1C1 = "količina"
Range("D4").Select
ActiveCell.FormulaR1C1 = "cijena"
Range("E4").Select
ActiveCell.FormulaR1C1 = "iznos"
Range("B4:E10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("B4:E4").Select
Selection.Interior.ColorIndex = 15
Range("E5").Select
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("E5").Select
Selection.AutoFill Destination:=Range("E5:E10"), Type:=xlFillDefault
Range("E5:E10").Select
Range("B4:D5").Select
ActiveSheet.ShowDataForm
Range("B5:E10").Select
ActiveSheet.ShowDataForm
Range("E11").Select
Selection.FormulaR1C1 = "="
Range("E11").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)"
Range("E12").Select
End Sub
-edit2: pošto je korišten autoform, unos podataka nije vidljiv. ..
Drugo - jesi ti siguran da si s dotičnom naredbom (NewRow = workbook.Worksheets("sheet1").Range("A1").Value + 1) pročitao sadržaj ćelije A1? Zašto odmah iza te naredbe ne prikažeš dijalog s vrijednosti NewRow? Kladim se da ti je uvijek ta vrijednost 1, zar ne (jer je 0 + 1 = 1)?
Upišem 1 u A1. Sad baš razmišljam, šro kada bi maknuo ovo 1 pored A i u cijeli A stupac upisao brojeve. Ako dobro mislim, onda bi se on trebao pomicati za po jedan red jer bi dodavao 1. No opet, što bi se desilo kada bi se program zatvorio- opet bi se desilo prebrisanje podataka jer bi sve krenulo ispočetka.
@ihush:
Ne mogu ovo samo tako baciti jer je skoro pa gotovo, a ljudima se sviđa program. Dapače, još su i oduševljeni.
Htio sam i u obliku txt datoteke save-ati no baš nisam napao dobar primjer.
Drugo - jesi ti siguran da si s dotičnom naredbom (NewRow = workbook.Worksheets("sheet1").Range("A1").Value + 1) pročitao sadržaj ćelije A1? Zašto odmah iza te naredbe ne prikažeš dijalog s vrijednosti NewRow? Kladim se da ti je uvijek ta vrijednost 1, zar ne (jer je 0 + 1 = 1)?
Upišem 1 u A1. Sad baš razmišljam, šro kada bi maknuo ovo 1 pored A i u cijeli A stupac upisao brojeve. Ako dobro mislim, onda bi se on trebao pomicati za po jedan red jer bi dodavao 1. No opet, što bi se desilo kada bi se program zatvorio- opet bi se desilo prebrisanje podataka jer bi sve krenulo ispočetka.
Nisi mi odgovorio na drugo pitanje. Izbjegavaš provjeriti ključnu stvar.
-nevjerojatna upornost. Bravo vex.
Ipak, mada je svaki (prvi) korak težak, da bi došao do cilja njie samo potrebno koračati, potrebno je i znati put-cilj... ideš u pogrešnom smjeru, ignoriraš putokaze. Izgubit ćeš se u močvari i biti ljut na komarce što te grizu....
Pa sad, ugasi te črčkarije, upali access. Može sve što može i excell ili vb. To mu je namjena.
- Excel je mlinćić za brojeve, nije baza.
Ako baš inzizstiraš, (zašto ignoriraš dat primjer, AutoForm?), možeš u excelu napraviti.
Ako želiš saznati kod-VBA, jednostavno snimi makro i ponovi prije dat primjer.
Otvori taj snimljeni makro i vidi koji je VBA kod izgeneriran.. taj kod je ono što ti treba. (na nivou MS Office paketa je skoro svejedno koji program koristiš, ispod haube su jednaki).
Tako ćeš vidjeti kako excel pristupa određenim čelijama... na tebi je da samo to prilagodiš potrebama ili bindaš na button.
Možeš ga iskorititi i iz VBa uz manje adaptacije...
Pa ne može sad ni samome sebi ni nama priznati da je cijelo vrijeme bio na krivom putu. Ego mu je jači od razuma. 
A nije svjestan nečega što smo mi svjesni od samih početaka - na kraju će zaista morati odustati jer će vidjeti da s Excelom neće zadatak uopće riješiti ili ga neće riješiti na odgovarajući način. Na to sam upozoravao od samih početaka.
Ne mogu ovo samo tako baciti jer je skoro pa gotovo, a ljudima se sviđa program. Dapače, još su i oduševljeni.
Htio sam i u obliku txt datoteke save-ati no baš nisam napao dobar primjer.
Dakako da možeš.
I ne razumijem - ljudima se sviđa što u programu? Sučelje? Sučelje je odvojeno od spremanja podataka - program ti može imati ISTO sučelje bez obzira spremao ti podatke u tekstualnu datoteku, u Excelovu tablicu ili u normalnu bazu podataka.
Nisi mi odgovorio na drugo pitanje. Izbjegavaš provjeriti ključnu stvar.
Dao bih ti odgovor kada bih razumio pitanje, no ne razumijem.
Nisi mi odgovorio na drugo pitanje. Izbjegavaš provjeriti ključnu stvar.
Dao bih ti odgovor kada bih razumio pitanje, no ne razumijem.
Koja je vrijednost varijable NewRow netom što pokušaš pročitati sadržaj ćelije A1?
Znači napiši kod poput:
NewRow = workbook.Worksheets("sheet1").Range("A1").Value + 1
MsgBox("Novi red je: "+NewRow)
Ne mogu ovo samo tako baciti jer je skoro pa gotovo, a ljudima se sviđa program. Dapače, još su i oduševljeni.
Htio sam i u obliku txt datoteke save-ati no baš nisam napao dobar primjer.
Dakako da možeš.
I ne razumijem - ljudima se sviđa što u programu? Sučelje? Sučelje je odvojeno od spremanja podataka - program ti može imati ISTO sučelje bez obzira spremao ti podatke u tekstualnu datoteku, u Excelovu tablicu ili u normalnu bazu podataka.
P reko sam da mi je svejedno u što se sprema samo dok mi ne mijenja program. Za excel sam našao samo primjer preko nekog datagrida koji nema veze sa ovim što ja pokušavam napraviti.
Koja je vrijednost varijable NewRow netom što pokušaš pročitati sadržaj ćelije A1?
Znači napiši kod poput:
NewRow = workbook.Worksheets("sheet1").Range("A1").Value + 1
MsgBox("Novi red je: "+NewRow)
Vrijednost je 2.
- ma nevažno do kud je stigao na ovaj način. Mučenje (pa i silovanje) ali nije nemoguće.
i možda neobično, ali sviđa mi se upornost (ne toliko tvrdoglavost..)
Neznam kao se excel ponaša s expot-filterima i koju instalaciju ima (nisu sve komponente jednake). Ugl. recimo da je .db (IV) još podržan, kao prastari tip baze.
Može ga iskoristiti za uvoz-izvoz i obradu iz bilo kojeg programa tipa excel, access, pa i NortonCommander-a.
-To je kao odgovor na (pitanje) kako da sejva -želo je kao txt.
Drugi način, čisti kod Open-save, binary for random ... prastara DATA metodologija iz basica. Separator je tab ili coma.... rezultat sličan CSVu.. Tad sam mora izmisliti bazu tj indexe itd..
pa pokušaj, selektiraj čelije i vidi kako možeš exportat, dali imaš .db opciju? Vidi što možeš doinstalirat s office CDa.
btw. s progrmskim upisom novog reda u excelu, treba računati da je novi red insertan, tako da u petlji novi red zapravo postaje umjesto +1, +2... to me nekad znalo mučiti.
Koja je vrijednost varijable NewRow netom što pokušaš pročitati sadržaj ćelije A1?
Znači napiši kod poput:
NewRow = workbook.Worksheets("sheet1").Range("A1").Value + 1
MsgBox("Novi red je: "+NewRow)
Vrijednost je 2.
Onda bi ti trebao početi pisati sljedeće vrijednosti od 2. retka. Ne znam zašto to ne čini. Nego, nešto mi nije baš najjasnije.
NewRow = workbook.Worksheets("sheet1").Range("A1").Value + 1
worksheet.Cells(NewRow, 1).Value = Label4.Text
Odakle taj worksheeet? Ako ti je worksheet=workbook.Worksheets("sheet1"), zašto onda nemaš kod?:
NewRow = worksheet.Range("A1").Value + 1
worksheet.Cells(NewRow, 1).Value = Label4.Text
Onda bi ti trebao početi pisati sljedeće vrijednosti od 2. retka. Ne znam zašto to ne čini. Nego, nešto mi nije baš najjasnije.
NewRow = workbook.Worksheets("sheet1").Range("A1").Value + 1
worksheet.Cells(NewRow, 1).Value = Label4.Text
Odakle taj worksheeet? Ako ti je worksheet=workbook.Worksheets("sheet1"), zašto onda nemaš kod?:
NewRow = worksheet.Range("A1").Value + 1
worksheet.Cells(NewRow, 1).Value = Label4.Text
Ne da piše OD drugogo retka nego piše U drugi redak. Problem je ovakav (kako sam ja protumačio): program prilikom svakog klika na gumb pogleda to piše u A1, pošto piše 1, uzme tu vrijednost, doda joj 1 i svaki put dobije 2.
Gledam sam neki tutorijal i pisalo je isto to što si i ti napisao, ali mi je izbacivao grešku pa sam taj dio sam prepravio.
Budem još pokušavao, nešto mora ispast.
Ne razumijem u čemu je problem. Program radi upravo ono što si mu naredio da radi.
Ne razumijem u čemu je problem. Program radi upravo ono što si mu naredio da radi.
A kako bi trebao izgledati kod da mi piše svaki put u novi red?
Ne razumijem u čemu je problem. Program radi upravo ono što si mu naredio da radi.
A kako bi trebao izgledati kod da mi piše svaki put u novi red?
Koliko sam shvatio, tebi ćelija A1 služi kao brojač redaka, koji je inicijalno postavljen na 1. Kad zapisuješ novi zapis/slog/record, ti uzmeš vrijednost ćelije A1 i uvećaš (pročitanu vrijednost, a ne vrijednost u ćeliji!) je za 1, tako da sve zapisuješ u drugi redak.
Sljedeći put kad ideš nešto zapisivat, ponoviš isti postupak - pročitaš vrijednost zapisanu u ćeliji A1, koja je 1, dodaš tome 1 i opet sve zapisuješ u drugi redak (1+1=2).
Ne možeš sam dokučiti gdje je problem? Pa valjda nakon svakog zapisivanja podataka moraš vrijednost ćelije A1 uvećati za 1, zar ne? Pa će tako nakon prvog zapisivanja vrijednost ćelije A1 biti 2 (jer je 1+1=2).
Koliko sam shvatio, tebi ćelija A1 služi kao brojač redaka, koji je inicijalno postavljen na 1. Kad zapisuješ novi zapis/slog/record, ti uzmeš vrijednost ćelije A1 i uvećaš (pročitanu vrijednost, a ne vrijednost u ćeliji!) je za 1, tako da sve zapisuješ u drugi redak.
Sljedeći put kad ideš nešto zapisivat, ponoviš isti postupak - pročitaš vrijednost zapisanu u ćeliji A1, koja je 1, dodaš tome 1 i opet sve zapisuješ u drugi redak (1+1=2).
Ne možeš sam dokučiti gdje je problem? Pa valjda nakon svakog zapisivanja podataka moraš vrijednost ćelije A1 uvećati za 1, zar ne? Pa će tako nakon prvog zapisivanja vrijednost ćelije A1 biti 2 (jer je 1+1=2).
Znam što moram napraviti, ali ne znam kako. Any hint?
Koliko sam shvatio, tebi ćelija A1 služi kao brojač redaka, koji je inicijalno postavljen na 1. Kad zapisuješ novi zapis/slog/record, ti uzmeš vrijednost ćelije A1 i uvećaš (pročitanu vrijednost, a ne vrijednost u ćeliji!) je za 1, tako da sve zapisuješ u drugi redak.
Sljedeći put kad ideš nešto zapisivat, ponoviš isti postupak - pročitaš vrijednost zapisanu u ćeliji A1, koja je 1, dodaš tome 1 i opet sve zapisuješ u drugi redak (1+1=2).
Ne možeš sam dokučiti gdje je problem? Pa valjda nakon svakog zapisivanja podataka moraš vrijednost ćelije A1 uvećati za 1, zar ne? Pa će tako nakon prvog zapisivanja vrijednost ćelije A1 biti 2 (jer je 1+1=2).
Znam što moram napraviti, ali ne znam kako. Any hint?
Brutalno, nema što. A kako si promijenio sadržaj ćelije A2? Zar nisi ovako?:
worksheet.Cells(2, 1).Value = Label4.Text
Jesi li ti svjestan što uopće radi onaj tvoj kod?
