hello
i open an excel file and find the first word at the sheet.
when I'm usind the findnext method it is remain in the first word.
and also, how can i present the page in my application (not opennung it in excel document (ole??).
the code below:
Dim xlsapp As Excel.Application
Dim xlsbook As Excel.Workbook
Dim xlssheet As Excel.Worksheet
Private Sub Command1_Click()
Dim xlsrange As range
Set xlsapp = CreateObject("Excel.Application"
Set xlsbook = xlsapp.Workbooks.Open("E:\Excel sheets\sites list.xls"
Set xlssheet = xlsbook.Sheets(1)
Set xlsrange = xlssheet.Cells.Find(Text1, , , xlPart, , xlNext, False)
Do While Not (xlssheet.Cells.FindNext.Next = Text1)
xlssheet.Cells.FindNext
Text2 = Text2 + " " + "1"
Loop
End Sub
i open an excel file and find the first word at the sheet.
when I'm usind the findnext method it is remain in the first word.
and also, how can i present the page in my application (not opennung it in excel document (ole??).
the code below:
Dim xlsapp As Excel.Application
Dim xlsbook As Excel.Workbook
Dim xlssheet As Excel.Worksheet
Private Sub Command1_Click()
Dim xlsrange As range
Set xlsapp = CreateObject("Excel.Application"
Set xlsbook = xlsapp.Workbooks.Open("E:\Excel sheets\sites list.xls"
Set xlssheet = xlsbook.Sheets(1)
Set xlsrange = xlssheet.Cells.Find(Text1, , , xlPart, , xlNext, False)
Do While Not (xlssheet.Cells.FindNext.Next = Text1)
xlssheet.Cells.FindNext
Text2 = Text2 + " " + "1"
Loop
End Sub