VBA zucht opslaan

[Dennisjuhh]

Hallo allemaal,

Ik weet het echt niet meer, ik probeer van alles en precies zoals het er staat maar het lukt niet:

 Sub Knop7_Klikken()
    Dim FSO As Object, TextStr As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set TextStr = FSO.OpenTextFile("\Desktop\Activa.xml", 8, True)
    sn = Sheets("Bron").Cells(1).CurrentRegion
    For i = 1 To UBound(sn)
        TextStr.WriteLine sn(i, 1)
    Next
    TextStr.Close
    Set TextStr = Nothing
    Set FSO = Nothing
End Sub

Hij blijft aangeven dat het pad niet goed is.

 

[zapatr]

Als wordt aangegeven dat het pad niet juist is, dan ligt het voor de hand dat je het hier moet zoeken:

"\Desktop\Activa.xml"

Die desktop hoort bij iemand! Moet dus zijn (in Windows xp bijvoorbeeld!):

"C:\Documents and Settings\Computergebruikersnaam\Desktop\Activa.xml"....

 

[Dennisjuhh]

danku=)

 

[Warme bakkertje]

Kan je de vraag op Worksheet.nl dan ook nog even op opgelost zetten aangezien je mijn code die ik je daar gegeven heb hier aan't gebruiken bent.
btw blij dat ik je van dienst kon zijn hoor

 

[Dennisjuhh]

Bakkertje,

Ik heb het geprobeerd maar ik kan niet meer inloggen! Heb al een paar keer ww vergete gedaan maar tevergeefs! Uiteraard ben ik je dankbaar, hij werkt precies zoals het moet=)