Splitting value of cell in Excel sheet

[janriis]

Hi all

I am importing my testdata from an Excel sheet that is provided to me by a colleague and thus pre-formatted.

Column B consists of both First- and Last name, but my app has 2 separate webedit fields for First name and Last name.

What is the VB code for reading the value of a cell until a space and saving it in a variabel like FirstName and then reading the value after the space and saving it in LastName ?

[tarun]

Try this code

Code:

Dim Row_Count

Row_Count = 0

Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Open "c:/Test.xls"

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

LoopCount = True

Do While LoopCount
    
    LoopCount = True
    Row_Count = Row_Count + 1
    If objSheet.Cells(Row_Count,1) = "" Then
        LoopCount = False
    End If
    
Loop

For i = 1 To Row_Count - 1
    Name = objSheet.Cells(i,2)
    aName = Split(Name," ")
    FirstName = aName(0)
    LastName = aName(1)    
Next

[sreekanth chilam]

Hi Janris,

Here we go!

Refer the below example.

Code:

Emp_Name="Andy Roberts"
temp=split(Emp_Name," ")
FirstName=temp(0)
LastName=temp(1)

Browser(..).Page(..).WebEdit("FirstName:").Set FirstName
Browser(..).Page(..).WebEdit("LastName:").Set LastName