Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VBA, Excel ja tekstitiedoston tuominen

Piizz [28.10.2005 14:30:09]

#

Pitäisi saada tekstitiedosto "Copy-Pastettua" haluttuun kohtaan Excel-taulukkoa.

Alla oleva avaa tiedoston uuteen työkirjaan... ja tuo pois kommentoitu osuus ei toimi myöskään halutulla tavalla.

Private Sub Button1_Click()

'Aktivoidaan solu
    Sheets("Taul1").Select
    Range("A1").Select

'Avataan tiedosto
Tiedosto = Application.GetOpenFilename _
    ("Tekstitiedosto (*.dat), *.dat")
    If Tiedosto = False Then Exit Sub
    Open Tiedosto For Input As #1

Application.Workbooks.OpenText Tiedosto 'Eli miten avautuisi haluttuun kohtaan???

'        r = 0
'        Do Until EOF(1)
'        Line Input #1, data
'        ActiveCell.Offset(r, 0) = data
'        r = r + 1
'        Loop
'        Close #1

End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta