Just nu i M3-nätverket
Jump to content

Cellinnehåll till textfil?


biggles

Recommended Posts

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

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

OK

Referensen funkar nu men jag får Syntax Error vid

 

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

 

Vad är fel?

 

Peter

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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

 

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...