export to txt file

[coolminded]

hi everyone

i have one grid in my application. i have exported the data to the word file, now i want to export it to notepad. is it possible? if yes then how? i am waiting for the reply. plz help
TIA

[QVeen72]

Hi,

What code u have used to export to Word File?
Try using the same code u use to create txt file..


Regards
Veena

[coolminded]

Thanx Veena for your reply
do i need to add any references as i do it for the word document.
my code is

Dim oWord As word.Application
Dim oDoc As word.Document
Dim i As Integer
 
    Set oWord = New word.Application
    Set oDoc = New word.Document
    oDoc.PageSetup.Orientation = wdOrientLandscape
 
oDoc.ActiveWindow.Selection.Tables.add Range:=oDoc.ActiveWindow.Selection.Range, numrows:=1, numcolumns:=mg3.Cols
 
oDoc.Tables(1).Columns(1).Cells(1).Range.Text = "Sn"
            oDoc.Tables(1).Columns(2).Cells(1).Range.Text = "Name"
            oDoc.Tables(1).Columns(3).Cells(1).Range.Text = "Address"
            oDoc.Tables(1).Columns(4).Cells(1).Range.Text = "Tel No"
            oDoc.Tables(1).Columns(5).Cells(1).Range.Text = "E-mail"
 
For i = 1 To mg3.Rows - 1
 
oDoc.Tables(1).Columns(1).Cells.add
          oDoc.Tables(1).Columns(1).Width = 30
          oDoc.Tables(1).Columns(1).Cells(i + 1).Range.Text = i
 
oDoc.Tables(1).Columns(2).Cells(i + 1).Range.Text = mg1.TextMatrix(i, 1)
            oDoc.Tables(1).Columns(3).Cells(i + 1).Range.Text = mg1.TextMatrix(i, 2)
            oDoc.Tables(1).Columns(4).Cells(i + 1).Range.Text = mg1.TextMatrix(i, 3)
            oDoc.Tables(1).Columns(5).Cells(i + 1).Range.Text = mg1.TextMatrix(i, 4)
Next i
 
oDoc.ActiveWindow.Document.Close True
    Set oDoc = Nothing
    oWord.Quit False
    Set oWord = Nothing
Set Db = Nothing
 
 

do i need to change anything in my code. it shows the table, but how i can generate a table in notepad. plz help
i may not need the table in txt file but the data must be shown separated by 'tab'

thanx

[coolminded]

Thanx Veena for your reply
do i need to add any references as i do it for the word document.
my code is

Dim oWord As word.Application
Dim oDoc As word.Document
Dim i As Integer
 
    Set oWord = New word.Application
    Set oDoc = New word.Document
    oDoc.PageSetup.Orientation = wdOrientLandscape
 
oDoc.ActiveWindow.Selection.Tables.add Range:=oDoc.ActiveWindow.Selection.Range, numrows:=1, numcolumns:=mg3.Cols
 
oDoc.Tables(1).Columns(1).Cells(1).Range.Text = "Sn"
            oDoc.Tables(1).Columns(2).Cells(1).Range.Text = "Name"
            oDoc.Tables(1).Columns(3).Cells(1).Range.Text = "Address"
            oDoc.Tables(1).Columns(4).Cells(1).Range.Text = "Tel No"
            oDoc.Tables(1).Columns(5).Cells(1).Range.Text = "E-mail"
 
For i = 1 To mg3.Rows - 1
 
oDoc.Tables(1).Columns(1).Cells.add
          oDoc.Tables(1).Columns(1).Width = 30
          oDoc.Tables(1).Columns(1).Cells(i + 1).Range.Text = i
 
oDoc.Tables(1).Columns(2).Cells(i + 1).Range.Text = mg1.TextMatrix(i, 1)
            oDoc.Tables(1).Columns(3).Cells(i + 1).Range.Text = mg1.TextMatrix(i, 2)
            oDoc.Tables(1).Columns(4).Cells(i + 1).Range.Text = mg1.TextMatrix(i, 3)
            oDoc.Tables(1).Columns(5).Cells(i + 1).Range.Text = mg1.TextMatrix(i, 4)
Next i
 
oDoc.ActiveWindow.Document.Close True
    Set oDoc = Nothing
    oWord.Quit False
    Set oWord = Nothing
Set Db = Nothing
 
 

do i need to change anything in my code. it shows the table, but how i can generate a table in notepad. plz help
i may not need the table in txt file but the data must be shown separated by 'tab'

thanx

[QVeen72]

Hi,

Notepad dosent support Tables, so, u will have to use Tabs or ; or | or Special Character and make look like Tables,
use File IO to export to txt file. For this, u dont need any references..


REgards
Veena

[coolminded]

Could you please give me some hint how can i use File IO, or could you plz give me some code snippet on how to export to txt file.
thanx once again

[QVeen72]

Hi,

This is just basic File Handling in VB6:
No references needed..

Dim FN As Long
FN = FreeFile
Open "C:\MyTextFile.txt" For Output As FN
Print #FN, "This Is My First Line From VB6"
Print #FN, "This Is My Second Line From VB6"
Close FN
MsgBox "Check  Text File   C:\MyTextFile.txt"
 

Regards
Veena