Keskustelu: Ohjelmointikysymykset: VBA, Excel ja tekstitiedoston tuominen

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