ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Using Mutiple Sheets in excel in shell script (https://www.excelbanter.com/excel-programming/393004-using-mutiple-sheets-excel-shell-script.html)

Phanidhar

Using Mutiple Sheets in excel in shell script
 
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

joel

Using Mutiple Sheets in excel in shell script
 
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


Phanidhar

Using Mutiple Sheets in excel in shell script
 
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


joel

Using Mutiple Sheets in excel in shell script
 
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


[email protected][_2_]

Using Mutiple Sheets in excel in shell script
 
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.


[email protected][_2_]

Using Mutiple Sheets in excel in shell script
 
Are you on a Mac?

Do can you add Perl Modules to your machine?



All times are GMT +1. The time now is 01:30 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com