Prikazi cijelu temu 02.07.2015 08:35
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: VBA Excel snimi matricu - VB6 ucitaj matricu
PreuzmiIzvorni kôd (Visual Basic):
  1. option Explicit
  2.  
  3. private type data
  4.       uzorak1 as string
  5.       uzorak2 as string
  6.       uzorak3 as integer
  7.       uzorak4 as integer
  8. end Type
  9.  
  10. Private Sub Command1_Click()
  11.     Open "c:\imeFajla" For Binary Access Read As #1
  12.         Dim podaci As data
  13.         Do While Not EOF(1)
  14.                Get #1, , podaci
  15.                With podaci
  16.                        Debug.Print .uzorak1
  17.                        Debug.Print .uzorak2
  18.                        Debug.Print .uzorak3
  19.                        Debug.Print .uzorak4
  20.               End With
  21.         Loop
  22.     Close #1
  23.    
  24. End Sub

u imediate prozoru vidim da mi nisu svi podaci ucitani. Pogledam edit fajla i vidim da je snimljeno sve iz Excela, dakle datoteka je u redu.
mozda bi trebao zaboraviti na snimanje u binary modu, mozda bi trebao uzeti klasicno Input-Output, ali mi je onda fajl puno veci.
uglavnom, ovo meni ne radi, ha jos cu malo istrazivati pa ako ne uspijem vraticu se nazad na klasicno snimanje fajla.
zivot je moja domovina.