Predmet:VBA Excel snimi matricu - VB6 ucitaj matricu
u VBA excelu snimio sam matricu na HD ovako
PreuzmiIzvorni kôd (Visual Basic):type data
uzorak1 as string
uzorak2 as string
uzorak3 as string
uzorak4 as string
end type
podaci as data
dim SnimiMatrica (endRed,brojDanauMjesecu,brojUzoraka)
for red=1 to endRed
for dana=1 to brojDanauMjesecu
SnimiMatrica(red,dana,1)=podaci.uzorak1
SnimiMatrica(red,dana,2)=podaci.uzorak2
SnimiMatrica(red,dana,3)=podaci.uzorak3
SnimiMatrica(red,dana,4)=podaci.uzorak4
next dana
next red
open imeFajla For Binary Lock Read Write As #1
Put #1, , SnimiMatrica
close #1
i onda sam iz VB6 pokusao ucitati tu matricu ovako:
PreuzmiIzvorni kôd (Visual Basic):type data
str() as String
end type
Dim UcitanaMatrica As data
Open "c:\imeFajla.txt" For Binary Lock Read Write As #1
Get #1, , UcitanaMatrica
Close #1
For red = LBound(UcitanaMatrica.str, 1) To UBound(UcitanaMatrica.str, 1)
For brojDanauMjesecu = LBound(UcitanaMatrica.str, 2) To UBound(UcitanaMatrica.str, 2)
For brojUzoraka = 1 to 4
Debug.Print UcitanaMatrica.str(red, brojDanauMjesecu, brojUzoraka)
Next brojUzoraka
Next brojDanauMjesecu
Next red
no medutim javi mi gresku u liniji: Get #1, , UcitanaMatrica
znate li mozda u cemu je problem?
zivot je moja domovina.