hi can any one help to store data from vb to excel in matrix format.

suppose my gui having matrix format of text boxes the client will

enter his data through gui in text boxes , he want to store those text

box information automatically in excel sheet in same format.

can any one help.

I think you will have to save the data for each text box separately. The fact that they are ordered in a particular way in your GUI doesn't link them into an array in any way.

PHANI KISHOREKOTTAPALLI,

Can you be more specific about what it is you're trying to learn??

Do you need to:
a) Learn how to start Excel using VB.
b) Place information in a worksheet from VB.
c) Place the information from textboxes into an array?

For more info recommend http://www.vba-programmer.com

CarlR

PHANI KISHOREKOTTAPALLI,

An approach that I've used and which has worked very well, is to create a tab-delimited text file with a VB program, and then when it's all done, give the User of opening the tab-delimited file in Notepad or Excel.

Here's the code under the 2 command buttons:
(a) For bring Text file into Excel (name of file stored in MyFinalPathFile variable):
' ************************************************** **************
' Import Tab-Delimited Output File into Excel
' ************************************************** **************
Private Sub cmdImportToExcel_Click()
' ************************************************** *****************
Dim ExcelApp As Object
On Error GoTo APPLICATION_CREATE ' An error will cause us to initiate the Appl.
Set ExcelApp = GetObject(, "Excel.Application")
GoTo SKIP_APPLICATION_CREATE ' Of course if it's already there, then we'll use that
APPLICATION_CREATE:
Set ExcelApp = CreateObject("Excel.Application")
SKIP_APPLICATION_CREATE:
On Error GoTo BYE ' Back to our normal way of life
' ************************************************** *******************
Dim myArray()
For i = 1 To intColumns
    ReDim Preserve myArray(i)
    myArray(i) = Array(i, 2)
Next
' ************************************************** *******************
Application.StatusBar = ". . . . . . . . . . . . . . . IMPORTING INTO EXCEL !! . . "
ExcelApp.Workbooks.OpenText FileName:=MyFinalPathFile, _
    Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
    :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
    False, Comma:=False, Space:=False, Other:=False, FieldInfo:=myArray()
ColumnString = "A:" & ConvertColumnNumberToLetter(intColumns)
ExcelApp.Columns(ColumnString).EntireColumn.AutoFi t
ExcelApp.Range("A1").Select
ExcelApp.Visible = True
Application.StatusBar = ""
BYE:
End Sub

(b) For bringing file into NotePad:
Private Sub cmdViewOutputWithNotepad_Click()
    Shell "Notepad.exe" & " " & MyFinalPathFile, vbMaximizedFocus
End Sub

For more info recommend http://www.vba-programmer.com

CarlR

I am reading this issue and trying the last code but I received and error because the function ConvertColumnNumberToLetter is not declare on my project. Can you sent it?