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

Procitati excel fajl sa VB-om i smestiti podatke u bazu......kako? 12.02.2004. u 19:44 · pre 276 meseci #1

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.....

Potpis

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

Re: Procitati excel fajl sa VB-om i smestiti podatke u bazu......kako? 13.02.2004. u 12:24 · pre 276 meseci #2

Uhelpu pogledaj

TransferSpreadsheet Method

Potpis

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

Re: Procitati excel fajl sa VB-om i smestiti podatke u bazu......kako? 13.02.2004. u 12:24 · pre 276 meseci #3

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

Potpis

Blue Man Group

Re: Procitati excel fajl sa VB-om i smestiti podatke u bazu......kako? 09.04.2006. u 00:11 · pre 250 meseci #4

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.

Re: Procitati excel fajl sa VB-om i smestiti podatke u bazu......kako? 15.04.2006. u 15:58 · pre 250 meseci #5

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

Forum kao aplikacija na telefonu

Srodne teme