HELP me Please 
Author Message
 HELP me Please

What is wrong....nothing is going right.

<SCRIPT LANGUAGE="VBScript">
                Dim Excel, Workbooks, ActiveSheet
                Set Excel = CreateObject("Excel.Application")
                Set Workbooks = Excel.Workbooks
                Workbooks.Open "\\Server\common-dir\Fes IN\joblist.xls", , True
                Set ActiveSheet = Excel.ActiveSheet            

        Sub SearchForIt (Query)
                Const xlWhole = 1, xlPrevious = 2
                Dim fso, f, Y
                Set fso = CreateObject("Scripting.FileSystemObject")
                Const ForReading = 1, ForWriting = 2, ForAppending = 8
                Set f = fso.OpenTextFile("\\Server\common-dir\Fes IN\creation.html",
ForWriting)

                Dim Cells
                Dim SelL,SelS,SelText,CelLen,QLen,MyNewQ
                QLen = Len(Query)
                Dim FirstCell, NextCell                
                Set FirstCell = ActiveSheet.Cells.Find(Query, , , xlWhole, , xlPrevious)
                        If FirstCell is Nothing Then
                                msgbox("Search Not Found")
                        Else
                                Set NextCell = ActiveSheet.Cells.FindNext(FirstCell)
                                Y = Mid(FirstCell.Address,4,Len(FirstCell.Address)-4)
                                f.Write ("<DIV ALIGN=RIGHT><TABLE BORDER=""1"" WIDTH=""95%"">" & vbCrLf)
                                f.Write ("<TD WIDHT=""20%"" ALIGN=""CENTER""><FONT>" &
Excel.ActiveSheet.Cells(Y,1).Value & "</FONT></TD>" & vbCrLf)
                                f.Write ("<TD WIDHT=""50%"" ALIGN=""CENTER""><FONT>" &
Excel.ActiveSheet.Cells(Y,2).Value & "</FONT></TD>" & vbCrLf)
                                f.Write ("<TD WIDHT=""30%"" ALIGN=""CENTER""><FONT>" &
Excel.ActiveSheet.Cells(Y,3).Value & "</FONT></TD>" & vbCrLf)
                                f.Write ("</TABLE></DIV>" & vbCrLf & vbCrLf)
                                parent.frames(4).location.reload
                                Do While FirstCell.Address <> NextCell.Address
                                        Set NextCell = ActiveSheet.Cells.FindNext(NextCell)
                                        Y = Mid(NextCell.Address,4,Len(NextCell.Address)-4)
                                        f.Write ("<DIV ALIGN=RIGHT><TABLE BORDER=""1"" WIDTH=""95%"">" & vbCrLf)
                                        f.Write ("<TD WIDHT=""20%"" ALIGN=""CENTER""><FONT>" &
Excel.ActiveSheet.Cells(Y,1).Value & "</FONT></TD>" & vbCrLf)
                                        f.Write ("<TD WIDHT=""50%"" ALIGN=""CENTER""><FONT>" &
Excel.ActiveSheet.Cells(Y,2).Value & "</FONT></TD>" & vbCrLf)
                                        f.Write ("<TD WIDHT=""30%"" ALIGN=""CENTER""><FONT>" &
Excel.ActiveSheet.Cells(Y,3).Value & "</FONT></TD>" & vbCrLf)
                                        f.Write ("</TABLE></DIV>" & vbCrLf & vbCrLf)
                                        parent.frames(4).location.reload(True)
                                Loop
                        End If
                MsgBox ("Search Complete!")
        End Sub
</SCRIPT>

It is not bringing me back the correct information....and if i search for
something that I know is there repeatedly...it say search not found....what am
i doing wrong.
                                                Thanx,
                                                  Richard



Mon, 15 Jul 2002 03:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. Can anyone HELP me PLEASE PLEASE PLEASE PLEASE PLEASE PLEASE PLEASE PLEASE PLEASE

2. Help, please please please!!!! Inputing a Hexadecimal Number

3. Design Help PLEASE PLEASE PLEASE!

4. URGENT HELP PLEASE PLEASE PLEASE???

5. Help Please Please Please

6. HELP NEEDED PLEASE PLEASE PLEASE!!!!

7. DATAbase Printing PLEASE, PLEASE Help me - please?

8. DATAbase Printing - PLEASE, PLEASE Help me - please?

9. DataSource Help Please, Please, Please

10. Help Please Please Please

11. Help me please please help !!!!!

12. Help me please please help !!!!!

 

 
Powered by phpBB® Forum Software