Cellinnehåll till textfil?

[biggles]

Hur gör jag för att exportera ut innehållet i markerade celler i Excel till en textfil?

 

 

 

[XL-Dennis]

biggles,

 

Läser mitt tips "Lista cellinnehåll i textfil"

här: http://www.xldennis.com/ListaFormler(vba'>http://www.xldennis.com/ListaFormler(vba).htm

 

 

 

Mvh

Dennis

Besök Sveriges ledande oberoende webbplats om MS Excel: http://www.xldennis.com

 

[biggles]

Jäklar va snabb du var :-)

 

Testade men...den stannar på

 

fsoObj As Scripting.FileSystemObject

 

Jag får följande felmeddelande:

Compile error:

User-defined type not defined

 

Beror detta på problem med "Microsoft Scripting Runtime"?

 

Jag vill kunna ha en excelfil där jag kan markera

en kolumn och exportera den som en textfil. Helst

ska varje rad börja med &page1=, &page2=, &page3=

osv

 

Peter

 

[XL-Dennis]

biggles,

 

Du får sätta en referens till Microsoft Scripting Runtime via Verktyg | Referenser... i VB-editorn.

 

Ok, ska titta närmare på ditt önskemål i eftermiddag.

 

 

 

Mvh

Dennis

Besök Sveriges ledande oberoende webbplats om MS Excel: http://www.xldennis.com

 

[biggles]

Kommer inte åt Referenser - det är inaktivt.

 

// Peter

 

[biggles]

OK

Referensen funkar nu men jag får Syntax Error vid

 

vaFilnamn = Application.GetSaveAsFilename("ExcelData.txt", _

 

Vad är fel?

 

Peter

 

[XL-Dennis]

Hej Peter,

 

Använder du svensk eller engelsk version av XL?

Vilken version använder du - 97/2000/XP?

 

Kan du visa hela proceduren där felet uppstår i.

 

 

Mvh

Dennis

Besök Sveriges ledande oberoende webbplats om MS Excel: http://www.xldennis.com

 

[biggles]

Hej

Jag använder 2000 engelsk på Windows 2000

 

Här är sammanhanget:

 

'Hämta filnamnet, från användarna, där cellområdets data ska sparas i.

 

vaFilnamn = Application.GetSaveAsFilename("ExcelData.txt", _

 

"Text File (*.txt),*.txt,ASCII File (*.asc),*.asc", _

 

1, "Exportera cellområdets data till textfil")

 

If vaFilnamn = False Then

 

MsgBox "Du angav inget filnamn", vbInformation

 

Exit Sub

 

End If