Indsættelse af fil-data i eksisterende regneark

Optag en makro og tilpas den.

Start makro optageren fra det ark du vil have dataerne i.
åben din kommafil som du plejer, når så den er inde i det nye ark, makerer du alle data, vælg kopier, gå tilbage til data arket, vælg der hvor de skal sætte ind, paste
gå tilbage til Mappen med den kommaceparede fil og luk den.

så er du tilbage i data arket, stop makroen og du vil se hele handlingen.

læg makroen herud så vi kan se den.

Hej Kabbak

Tak for løsningen - her er makroen:

Sub ÅbenDSIfil()
'
' ÅbenDSIfil Makro
' Makro indspillet 22-10-2003 af Pia Rasmussen
'

'
    ChDir "F:\xx\xx"
    Workbooks.OpenText FileName:="F:\xx\xxx.KOM", Origin _
        :=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1))
    Range("A1:L180").Select
    Selection.Copy
    Windows("KTM-regneark.xls").Activate
    Range("A2").Select
    ActiveSheet.Paste
    Range("A1").Select
    Windows("STATISTI.KOM").Activate
    ActiveWindow.Close
End Sub

Sub ÅbenDSIfil()
Dim AD As Integer
' ÅbenDSIfil Makro
' Makro indspillet 22-10-2003 af Pia Rasmussen
'

'
    ChDir "F:\xx\xx"
    Workbooks.OpenText Filename:="F:\xx\xxx.KOM", Origin _
        :=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1))
  AD = Range("A65536").End(xlUp).Row
    Range("A1:L" & AD).Select
    Selection.Copy
    Windows("KTM-regneark.xls").Activate
  AD = Range("A65536").End(xlUp).Row + 1
    Range("A" & AD).Select
    ActiveSheet.Paste
    Range("A1").Select
    Windows("STATISTI.KOM").Activate
    ActiveWindow.Close
End Sub

så skulle den være automatisk, jeg går ud fra at den kommaseparerede fil er lige bred hver gang

Den sætter data ind under de forrige i KTM-regneark.xls

sheets("dit data arks navn").select

det vil være en god ide at sætte denne linie ind over


  ActiveSheet.Paste
    Range("A1").Select
    Windows("STATISTI.KOM").Activate
    ActiveWindow.Close
End Sub

For hvis nu du ikke står i dataarket når du aktiverer makroen, sætter den data ind hvor du står

nåå, kunne du selv bruge points ;-((

Hej Kabbak
Jeg er helt ny i det her "Eksperten". Jeg forstår ikke hvad du mener med, at jeg selv kunne bruge points. Hvis jeg selv har fået dem igen, ved jeg ikke, hvad jeg har gjort galt. Jeg accepterede dit svar og gik derfor ud fra, at du fik pointene????

jeg havde ikke givet er svar, kun kommentarer.

Jeg plejer først at give svar, hvis spørgeren er tilfreds.

Så du kan kun give mig point, når jeg har givet svar


Hvis jeg skal have dem nu, skal du oprettet et nyt spørgsmål, her i excel gruppen.

Eks:

Point til kabbak

angående http://www.eksperten.dk/spm/417630