Re: VBA - nacteni souboru do pole

hynek.lipa <hynek.lipa@gmail.com>:
>
> moc tomu sice nerozumim (VBA), ale z tohoto by to neslo?
>
> Open "myfile.csv" For Output As 1
> PRINT #1, value1 & "," & value2 & "," & value3
> CLOSE 1

To by nestacilo :( Potrebuju soubor cist, ne do nej psat...

Potrebuju to k tomu kdyz v Corelu neco generuju abych do nejs dostal rozumne
data, Ted to pisu rucne primo do VBA kodu a to me nebavi :( Chtel bych to
cist z txt souboru. Cely to obvykle vypada takhle:


Sub goFIFA01()
  Dim Sdata(3)
  Sdata(1) = Array("ENG", "Anglie")
  Sdata(2) = Array("ANG", "Angola")
  Sdata(3) = Array("ARG", "Argentina")

  For i = 1 To UBound(Sdata)
    Pol = Sdata(i)
    Set doc = OpenDocument("_template.cdr")
    ActiveDocument.Unit = cdrMillimeter
    ActiveDocument.ReferencePoint = cdrCenter
    ActiveLayer.Shapes.Item("stat1").Text.Story.Text = Pol(1)
    ActiveLayer.Import ".\vlajky\jednotlive\" & Pol(0) & ".cdr"
    ActiveDocument.SaveAs Pol(0) & ".cdr"
    ActiveDocument.Close
  Next
End Sub


PS: cesty jsem zkratil at se to nezalamuje...

-pp21-