need urgent help...excel to text file?

Hi,

can any one help me out? I am working on an application which needs the following requirement.
I want to write a VB application which opens an excel file and saves it as a tab delimitted text file and then opens that text file, replaces all tabs with a special character(say #). And then saves this text file in unix format.
I am very greatful if code is provided...

thanks in advance.

Chandu.

Part One: Saving the XLS file as tab-delimited;

(you will need to add the Microsoft Excel reference under project/references)

Code:

---

Dim XLApp As New Excel.Application
Dim XLSheet As Excel.Workbook

Set XLSheet = XLApp.Workbooks.Open("c:\windows\desktop\file.xls")

XLSheet.SaveAs "c:\windows\desktop\file.tab", xlTextWindows
XLSheet.Close False
XLApp.Quit

---

Part Two: Reading tab-delimited file and replacing tabs with #s

Code:

---

Dim Buffer As String
Open "c:\windows\desktop\file.tab" For Input As #1
Open "c:\windows\desktop\file.out" For Output As #2
While Not EOF(1)
    Line Input #1, Buffer
    Buffer = Replace(Buffer, vbTab, "#")
    Print #2, Buffer
Wend
Close #1
Close #2

---

As for the UNIX bit, I have no idea.