Pretvaranje konzolnog programa u Win program

-probaj ponovo, negdje griješiš..

- nacrtaj chekbox, properties, poveži s čelijom na koju se odnosi podatak i vidjet ćeš da se sadržaj mijenja true-false klikom na chek.

.. ali korisnost, odnosno korištenje excela na ovaj način je kontraproduktivno.

edit: malo pojašnjenje..

Excel je tablični kalikukator.

Plahta-sheet je tablica (jer ima redove i kolone), tablica je osnovni oblik baze, dok je kalikulacija pa onda i prikaz rezultata osnovna funkcija. Prikaz može biti na ekranu, može biti grafikon, ispis ili rezultat može biti podatak za neku drugu tablicu kao pivot itd..

Svi podatci su baza, relacijske baze kao i SQL su samo današnji standard-mogućnosti.

Primjena excela je takva da imaš brojeve i želiš nešto s njima, ali moraš znati 'programirati' tj. služiti se excelovim naredbama-funkcijama. Bez tog neide.

Za korištenje običnih usera (Štefica), to nije prihvatljivo, za njih se rade aplikacije koje će na npr F7 isprintati ili već nešto...

Dali za taj dio koristiš jedan drugi ili petnaesti alat (VB, VBA, C, Acces... pa sve do gcc-a) je svejedno. Bitna je samo ciljana platforma koja određuje alate i uvjetovane potrebe.

Krenuti u posao o kojem nemaš skoro nikakvog znanja, k tome ti naručitelj određuje kako ćeš to napraviti je u najmanju ruku smiješno. (proročanski, ništa od tog, ali dobro će ti doći kao 'škola').

Pa zato ipak pokušaj barem nešto napraviti. Prihvati se posla i izguraj do kraja. Pokušaj i u accessu... pa se nakraju spoji aplikacijom iz VBa na bazu.

Imam problema prilikom spremanja u excel datoteku-naime, svaki put kada spremam, otvara novu datoteku i sprema podatke. Što treba promijeniti da mi sve sprema u jednu već postojeću datoteku te da uredno slaže ćelije tj. da mi ne upisuje stalno u iste?

Evo koda:

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

    Dim APP As Excel.Application

    Dim worksheet As Excel.Worksheet

    Dim workbook As Excel.Workbook

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.Scrollable)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        APP = New Excel.Application

        workbook = APP.Workbooks.Open("C:\Baza.xlsx")

        worksheet = workbook.Worksheets("sheet1")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        worksheet.Cells(1, 1).Value = Label4.Text

        worksheet.Cells(2, 1).Value = Label5.Text

        worksheet.Cells(3, 1).Value = Label6.Text

        worksheet.Cells(4, 1).Value = Label7.Text

        worksheet.Cells(5, 1).Value = Label8.Text

        worksheet.Cells(6, 1).Value = Label9.Text

        worksheet.Cells(7, 1).Value = Label10.Text

        worksheet.Cells(8, 1).Value = Label11.Text

        worksheet.Cells(9, 1).Value = CheckBox1.Text

        worksheet.Cells(10, 1).Value = CheckBox2.Text

        worksheet.Cells(11, 1).Value = CheckBox3.Text

        worksheet.Cells(12, 1).Value = CheckBox4.Text

        worksheet.Cells(13, 1).Value = Label1.Text

        worksheet.Cells(14, 1).Value = Label2.Text

        worksheet.Cells(1, 2).Value = TextBox1.Text

        worksheet.Cells(2, 2).Value = TextBox2.Text

        worksheet.Cells(3, 2).Value = ComboBox1.Text

        worksheet.Cells(4, 2).Value = TextBox3.Text

        worksheet.Cells(5, 2).Value = TextBox4.Text

        worksheet.Cells(6, 2).Value = TextBox6.Text

        worksheet.Cells(7, 2).Value = DateTimePicker1.Text

        worksheet.Cells(8, 2).Value = TextBox5.Text

        worksheet.Cells(9, 2).Value = CheckBox1.Checked

        worksheet.Cells(10, 2).Value = CheckBox2.Checked

        worksheet.Cells(11, 2).Value = CheckBox3.Checked

        worksheet.Cells(12, 2).Value = CheckBox4.Checked

        worksheet.Cells(13, 2).Value = RichTextBox1.Text

        worksheet.Cells(14, 2).Value = RichTextBox2.Text

    End Sub

    Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed

        workbook.Save()

        workbook.Close()

        App.Quit()

    End Sub

End Class

nevažno je što mislim :)

-ipak, mislim da nisi primjetio na datom linku, početak.. ADO, ODBC ... to se odnosi na (?) - >.... BAZE.

Pa hipotetsko pitanje, zašto izbjegavaš bazu, koju za i taj primjer moraš imati?

Još jednostavnije je export iz accesa u excel ili excel direktno spojiti na bazu. No, za krajnjeg korisnika nije excel, za njega napraviš Formu.

Dali ćeš formu radit u VBu, VBA, Excelu, Accesu .... bilo kojem prog. jeziku ili nekoj drugoj platformi... to je svejedno.

Od svega je excel najnespretnije rješenje (za kranjeg korisnika - Šteficu). Dodatno kompliciraš s VBom, pa onda čemu excel, ili čemu VB?

Korištenjem VBa bi prebacivao podatke iz accessove baze u excel. Zašto?

Što misliš da je lakše, bolje, (nešto treće) s tom kombinacijom?

To je BAZA, za bazu u MS paketu je specijaliziran Access. Zaključak? Napravi bazu, koristi access.

Kasnije ako želiš napravi VB ('exe')... ako želiš spojiš se excelom i napraviš recimo grafikon ili wordom isprintaš adrese na kuverte.

To je ono što osoba koja zna koristiti Office paket, napravi sama. (to nije 94% korisnika).

Za šteficu se radi aplikacija (forma) na kojoj ona stisne button i dobije rezultat.

-samo napravi nešto. -da radi.

A1 je jedna ćelija, a ne stupac. Ti bi koristio Excel, a da ne znaš u njemu ni raditi.

Suptilno ti se pokušava reći da radiš gluposti. Em ne znaš napraviti to što želiš, em to pokušavaš raditi na način na koji to nitko ne radi. To se jednostavno tako ne raid. Stoga ne razumijem što hoćeš od forumaša - oni ti mogu reći kako se što radi. Ti sad od njih očekuješ da za tebe idu istraživat nešto što inače praktički nitko ne radi? Ili što?

 Što je to?

Ako je to samo VB kod, u čemu je onda problem? I zašto onda koristiš Excelov objekt? I preko njega sve ono što bi inače koristio preko VBA? S tim što koristiš Excelov objekt izašao si iz domene VB-a i ušao si u domenu Excela. Nemoj se zavaravati.

Ah, možda sam postavio krivo pitanje pa sam zato dobio krivi odgovor.

Znači,kako napravim automatsko zapisivanje u prazni red u toj mojoj "bazi".

 Pa to i tražim.

 Tražim primjer. Zar je to toliki problem?

Ljudi ti dobro govore - ovakve stvari se NE rade kroz Excelicu... :\

P.S.

For x = 1 To 5000If Cells(x, 1) = "" Then...nesto...End IfNext x

 Napravio sam ovako:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        For x = 1 To 80000
            If Cells(x, 1) = "" Then

                worksheet.Cells(x, 1).Value = Label4.Text

                worksheet.Cells(x + 1, 1).Value = Label5.Text

                worksheet.Cells(x + 2, 1).Value = Label6.Text

                worksheet.Cells(x + 3, 1).Value = Label7.Text

                worksheet.Cells(x + 4, 1).Value = Label8.Text

                worksheet.Cells(x + 5, 1).Value = Label9.Text

                worksheet.Cells(x + 6, 1).Value = Label10.Text

                worksheet.Cells(x + 7, 1).Value = Label11.Text

                worksheet.Cells(x + 8, 1).Value = CheckBox1.Text

                worksheet.Cells(x + 9, 1).Value = CheckBox2.Text

                worksheet.Cells(x + 10, 1).Value = CheckBox3.Text

                worksheet.Cells(x + 11, 1).Value = CheckBox4.Text

                worksheet.Cells(x + 12, 1).Value = Label1.Text

                worksheet.Cells(x + 13, 1).Value = Label2.Text

            End If
        Next x

        For x = 1 To 80000
            If Cells(x, 2) = "" Then

                worksheet.Cells(x, 2).Value = TextBox1.Text

                worksheet.Cells(x + 1, 2).Value = TextBox2.Text

                worksheet.Cells(x + 2, 2).Value = ComboBox1.Text

                worksheet.Cells(x + 3, 2).Value = TextBox3.Text

                worksheet.Cells(x + 4, 2).Value = TextBox4.Text

                worksheet.Cells(x + 5, 2).Value = TextBox6.Text

                worksheet.Cells(x + 6, 2).Value = DateTimePicker1.Text

                worksheet.Cells(x + 7, 2).Value = TextBox5.Text

                worksheet.Cells(x + 8, 2).Value = CheckBox1.Checked

                worksheet.Cells(x + 9, 2).Value = CheckBox2.Checked

                worksheet.Cells(x + 10, 2).Value = CheckBox3.Checked

                worksheet.Cells(x + 11, 2).Value = CheckBox4.Checked

                worksheet.Cells(x + 12, 2).Value = RichTextBox1.Text

                worksheet.Cells(x + 13, 2).Value = RichTextBox2.Text

            End If
        Next x
    End Sub

No kaže mi: Cells is not declarated.

Nudi mi da kreiram method stub ili property sub za cells. Što da radim?

 E sad mi je dosta. Napravit ću u notepadu.

Koji je qrac sad CSV?

malo googlanja ili barem strpljenja nebi skodila 

Ka sta je napisano u postu prije sve vrijednosti su odvojene zarezon. Jednostavno napises

polje1, polje2, polje3

I onda ce ti polje1 bit u stupcu A, polje2 u stupcu B itd.

(točno, ali) za ovakvog programera je to lako rješiv problemćić. Jednostavno će klijentu instalirati 64bitni Office/OS....

btw interesantno je kako si primjetio path... ali za rješenje s traženjem cella="" nije upotrebljivo (empty itd) kao i problem kod upisa, traženja, izmjene.. za razliku od čitanja... ukoliko misli napraviti ikakav složeniji program od adresara mora koristiti normalnu bazu ... ili ostati u čistom VB kodu, s open-file s get-put, random... snimanjem datoteke što je izmišljanje tople vode. (još upotrebljivo za .inf ili .cfg ako se izbjegava registry).

btw, autor,

-jesi li uopće pokušao napraviti onaj primjer umjesto zapitkivanja?

Dali je AutoForm donekle sličan željenom cilju? ...

Evo, slušam preporuke što da rabim za spremanje podataka ali pod uvjetom da bude spojivo sa ovim mojim vb programom.