Save as in Special Folder Macro

[jeff07kp]

Hi guys,

The script below is to save some excell sheets into
text. The macro below will safe the file with a name of a cell
but what I would like know is to save this txt into the desktop
how can I do it?

Sub ExportScheduletoText()
'
' ExportScheduletoText Macro
' Macro recorded 9/1/2008 by lumje
'

'
Range("C31:l70").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

ThisFile = Range("b1").Value
ActiveWorkbook.SaveAs Filename:=ThisFile, FileFormat:= _
xlText, CreateBackup:=False
Range("L27").Select
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

 

[rassten]

Hi
try this

Dim WBN As Workbook
Dim WSN As Worksheet



WBN.SaveAs Filename:="C:\Documents and Settings\" & Environ("username") & "\Desktop\" & WSN.Cells(1, 2).Value & ".txt", _
FileFormat:=xlText, CreateBackup:=False

Regards Sten

 

[jindon]

change to

ActiveWorkbook.SaveAs _
Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & ThisFile, _
FileFormat:= xlText, CreateBackup:=False

 

[jeff07kp]

Jindon!!

That worked

Thanks so much