[es] - Procitati excel fajl sa VB-om i smestiti podatke u bazu......kako?

legend
Beograd

Član broj: 4393
Poruke: 519
*.vdial.verat.net

Sajt: www.icb.rs

+1 Profil

Procitati excel fajl sa VB-om i smestiti podatke u bazu......kako?

^{12.02.2004. u 18:44 - pre 245 meseci}

Imam excel fajl i u nekom opsegu tri kolone podataka. Zeleo bih da te podatke prebacim u access, tj. da napravim neku vb aplikaciju koja ce "proci" kroz n redova i uzeti podatke iz odgovarajucih polja:

A B C
1 x x x
2 x x x
3 x x x

* x je podatak koji mi treba.

Pozdrav i nadam se da ste me shvatili.....

...da bi ponovo dosli, morate prvo da odete...
http://www.icb.rs

Odgovor na temu

prezla
Predrag Zlatanovic
Slobodnjak
Beograd

Član broj: 17468
Poruke: 148
*.wiener.co.yu

Sajt: www.prezla.co.rs

+2 Profil

Re: Procitati excel fajl sa VB-om i smestiti podatke u bazu......kako?

^{13.02.2004. u 11:24 - pre 245 meseci}

Uhelpu pogledaj

TransferSpreadsheet Method

---------//
---PreZl@---
//---------

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Procitati excel fajl sa VB-om i smestiti podatke u bazu......kako?

^{13.02.2004. u 11:24 - pre 245 meseci}

Ako ti ovo treba za jednokratnu upotrebu, mozes da importujes excel fajl u access. Ako bas hoces da pravis aplikaciju koja to radi trebace ti referenca na Microsoft Excel x.x Object Library. Tu imas objekte tipa Worksheets, Worksheet. Onda ti treba jedna petlja koja ide po Worksheetovima, druga petlja koja ide po vrstama i treca koja ide po kolonama i onda vadis text i radis sa njim sta ti je volja.

Code:

    WorksheetsNo = Doc.Worksheets.Count
    For i = 1 To WorksheetsNo
        RowsCount = Doc.Worksheets(i).UsedRange.Rows.Count
        ColumnsCount = Doc.Worksheets(i).UsedRange.Columns.Count
        For j = 1 To RowsCount

            For z = 1 To ColumnsCount

            Next z

        Next j
    Next i

Blue Man Group

Odgovor na temu

Muyco

Član broj: 21880
Poruke: 2
*.adsl.wanadoo.nl.

Profil

Re: Procitati excel fajl sa VB-om i smestiti podatke u bazu......kako?

^{08.04.2006. u 23:11 - pre 219 meseci}

Imam slican problem u Excelu i ne znam kako da ga rijesim pa bih zamolio nekog od vas da mi pomognete.

Problem se sastoji u sledecem:

Zelio bih da na neki nacin pokupim vrijednosti iz celija A1 A2 A3 kod svake njihove promjene i da to snimim kao tekst.

Vrijednosti u celijama A1 A2 A3 ..... dobijam putem DDE sa neta i one se konstantno mijenjaju (par puta u sec).

Moje pitanje je dakle kako da sve te promjene direktno snimim kao tekst file.

Unaprijed zahvaljujem na odgovoru.

Odgovor na temu

Pastorius

Član broj: 66582
Poruke: 76
*.adsl.sezampro.yu.

Profil

Re: Procitati excel fajl sa VB-om i smestiti podatke u bazu......kako?

^{15.04.2006. u 14:58 - pre 219 meseci}

Muyco, evo odgovora, doduse nekompletnog ali mislim da ce ti pomoci

Prvo napravi referencu ka Microsoft Excel Object Library (Project>References>Microsoft Excel x.0 Object Library),
a onda ubaci sledeci kod :

Code:

Private Sub Command1_Click()

    Dim exapp As New Excel.Application
    Dim exwrkbk As Excel.Workbook
    Dim i As Integer
    Dim cellvalue

    Set exwrkbk = exapp.Workbooks.Open("C:\Book1.xls")  'Otvara excel fajl
    exwrkbk.Sheets("Sheet1").Select  'ubaci Sheet koji hoces

    Open "C:\qwe.txt" For Append As #1  'snima u txt fajl
    For i = 1 To 3
        cellvalue = exwrkbk.Application.Cells(i, 1).value '(row, column)
        Print #1, cellvalue

    Next i
    Close #1

    exwrkbk.Close False

    Set exwrkbk = Nothing
    Set exapp = Nothing

End Sub

Problem je u tome sto xls fajl mora da bude snimljen sa poslednjim izmenama kako bi se dobili pravi podaci. To uradi preko macro-a u Excel-u

Odgovor na temu