Hi,
I'm trying to export some data into .csv format from a shell script. I need
to export data into deifferent sheets based on the criteria.

Any help on how to do this will eb greatly appreciated

Thanks,
Phani

Sub WriteCSV()

Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const MyPath = "C:\temp\"
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0


Set fswrite = CreateObject("Scripting.FileSystemObject")

WriteFileName = "text.csv"


'open files

WritePathName = MyPath + WriteFileName
fswrite.CreateTextFile WritePathName
Set fwrite = fswrite.GetFile(WritePathName)
Set tswrite = fwrite.OpenAsTextStream(ForWriting, TristateUseDefault)

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column

For RowCount = 1 To LastRow

OutputLine = ""
For ColumnCount = 1 To LastCol

If Len(OutputLine) 0 Then OutputLine = OutputLine & ","
OutputLine = OutputLine & CStr(Cells(RowCount, ColumnCount))

Next ColumnCount

tswrite.WriteLine OutputLine


Next RowCount


tswrite.Close

End Sub


"Phanidhar" wrote:

Hi,
I'm trying to export some data into .csv format from a shell script. I need
to export data into deifferent sheets based on the criteria.

Any help on how to do this will eb greatly appreciated

Thanks,
Phani

Thanks Joel for your response. But I'm looking for a solution that can be
done from a unix shell script.

"Joel" wrote:

Sub WriteCSV()

Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const MyPath = "C:\temp\"
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0


Set fswrite = CreateObject("Scripting.FileSystemObject")

WriteFileName = "text.csv"


'open files

WritePathName = MyPath + WriteFileName
fswrite.CreateTextFile WritePathName
Set fwrite = fswrite.GetFile(WritePathName)
Set tswrite = fwrite.OpenAsTextStream(ForWriting, TristateUseDefault)

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column

For RowCount = 1 To LastRow

OutputLine = ""
For ColumnCount = 1 To LastCol

If Len(OutputLine) 0 Then OutputLine = OutputLine & ","
OutputLine = OutputLine & CStr(Cells(RowCount, ColumnCount))

Next ColumnCount

tswrite.WriteLine OutputLine


Next RowCount


tswrite.Close

End Sub


"Phanidhar" wrote:

Hi,
I'm trying to export some data into .csv format from a shell script. I need
to export data into deifferent sheets based on the criteria.

Any help on how to do this will eb greatly appreciated

Thanks,
Phani

This is a Excel discussion group mainly for Windows environment. I don't
know whatt tool un have on your machine. the program is a piece of cake to
write in C Language and hardewr in a shell script. I don't havve access to a
unix machine and my shell programming is a little rusty.

The code below can be compiled on any basic compiler and run on unix if you
have a compiler. the patth names will have to change to be compattiabble
with unix.

"Phanidhar" wrote:

Thanks Joel for your response. But I'm looking for a solution that can be
done from a unix shell script.

"Joel" wrote:

Sub WriteCSV()

Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const MyPath = "C:\temp\"
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0


Set fswrite = CreateObject("Scripting.FileSystemObject")

WriteFileName = "text.csv"


'open files

WritePathName = MyPath + WriteFileName
fswrite.CreateTextFile WritePathName
Set fwrite = fswrite.GetFile(WritePathName)
Set tswrite = fwrite.OpenAsTextStream(ForWriting, TristateUseDefault)

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column

For RowCount = 1 To LastRow

OutputLine = ""
For ColumnCount = 1 To LastCol

If Len(OutputLine) 0 Then OutputLine = OutputLine & ","
OutputLine = OutputLine & CStr(Cells(RowCount, ColumnCount))

Next ColumnCount

tswrite.WriteLine OutputLine


Next RowCount


tswrite.Close

End Sub


"Phanidhar" wrote:

Hi,
I'm trying to export some data into .csv format from a shell script. I need
to export data into deifferent sheets based on the criteria.

Any help on how to do this will eb greatly appreciated

Thanks,
Phani

Yeah,

You need to say something about the type of shell script you want to
use and what operating system you're using.

You could use VBScript, Perl, Perl/AppleScript (say on the Mac).

No one has time to create all possible solutions for you, all of which
you'd probably ignore anyway.

Try Again.

Are you on a Mac?

Do can you add Perl Modules to your machine?