Sample codes for vb6 text file insert row.

Asked By james a watkins 0 points N/A Posted on - 09/14/2012

Hello experts,

I am working out for my visual basic programming language project and I need to insert a row. Can you help me with this?I need a sample codes for vb6 text file insert row. Can I download it for free in the internet as a reference?

• Status: Open
• Question Views: 1143
• Answer Count: 2
• Vote Up 0 Vote Down

• Answer Accepted: Yes
• Question Category: Visual basic

Best Answer by Mundo Villaro

Go To Solution

Best Answer

Best Answer

Answered By Mundo Villaro 0 points N/A #130604

Sample codes for vb6 text file insert row.

 

Hello James,

 

You must specify what row you are referring to, is it in ms access or ms excel? For excel, you may consider this sample code I have.

 

Option Explicit

 

'Add reference to MS Excel xx.0 Object Library

 

Private moApp As Excel.Application

Private Sub Command1_Click()

Dim oWB As Excel.Workbook

Dim lMaxRowNumber As Long

moApp.Visible = True

Set oWB = moApp.Workbooks.Open("D:My DocumentsBook1.xls")

'Add first new row at the very end

lMaxRowNumber = oWB.Sheets("Sheet1").Cells.SpecialCells(xlCellTypeLastCell).Row

oWB.Sheets("Sheet1").Rows(CStr(lMaxRowNumber + 1) & ":" & CStr(lMaxRowNumber + 1)).Select

Application.Selection.Insert Shift:=xlDown 'Insert a row at the selection (last row + 1)

oWB.Sheets("Sheet1").Cells(lMaxRowNumber + 1, 1).Value = "Added new row"

'Add another new row at the new very end

lMaxRowNumber = oWB.Sheets("Sheet1").Cells.SpecialCells(xlCellTypeLastCell).Row

oWB.Sheets("Sheet1").Rows(CStr(lMaxRowNumber + 1) & ":" & CStr(lMaxRowNumber + 1)).Select

Application.Selection.Insert Shift:=xlDown

oWB.Sheets("Sheet1").Cells(lMaxRowNumber + 1, 1).Value = "Added second new row"

End Sub

Private Sub Form_Load()

Set moApp = New Excel.Application

 

End Sub

About Mundo Villaro

Questions
1

Answers
38

Best Answers
6

• Vote Up 0 Vote Down

• Posted on - 09/15/2012
• Question Category: Visual basic

Answered By Toni Linscomb 5 points N/A #130605

Sample codes for vb6 text file insert row.

Using System. IO operation you’ll be able to write to a text file. Code mentioned in below link will search for a text file available in the physical location on your hard drive and will write text to the file. Newly added text will be appended and not over written. You can check the code in below link:

• https://stackoverflow.com/questions/949743/run-time-error

About Toni Linscomb

Questions
0

Answers
197

Best Answers
86

• Vote Up 0 Vote Down

• Posted on - 10/29/2012
• Question Category: Visual basic