[ legend @ 12.02.2004. 18:44 ] @
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.....
[ prezla @ 13.02.2004. 11:24 ] @
Uhelpu pogledaj

TransferSpreadsheet Method
[ mladenovicz @ 13.02.2004. 11:24 ] @
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
[ Muyco @ 08.04.2006. 23:11 ] @
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.
[ Pastorius @ 15.04.2006. 14:58 ] @
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