INS support forum    


Welcome to the Integrated Notification System support forum.
Before entering a query/request please search the forum to see if someone else has asked the question before.
Please feel also free to respond to queries from other users if you have experienced the same type of problem and found a solution to it. 
Our support team will monitor this forum and endeavour to provide answers to the queries posted.
Please make sure to post your query to the right forum as there is a separate forum for each application provided by MAW Software.
Show messages for: Last 7 days Last 30 days All (Digest of all)

Back to the forum

On Friday , the 02.24.2006, MAW Support wrote at 18:26:37 :

>Reading text from a file with ActiveX

Leonard

There were just to many errors :-(

Here is the modified file that compiles correctly.
(No idea however if it does what you want :-)


Dim ex
Dim I
Dim ID

Set ex = CreateObject("Excel.Application")
ex.Workbooks.Open "C:\Documents and Settings\leonard\Desktop\Experiments\Find.xls"

For I = 2 To 5

If ex.ActiveSheet.Range("A" & I) = 14511 Then
ex.ActiveSheet.Range("B15") = 10101
ID = ex.ActiveSheet.Range("B15")
ex.ActiveSheet.Range("A" & I) = 0 'After finding the number, the number that have been finf is setting back to 0
End If

If ex.ActiveSheet.Range("A" & I) = 15000 Then
ex.ActiveSheet.Range("B15") = 00000
ID = ex.ActiveSheet.Range("B15")
End If
Next

ex.ActiveWorkbook.Save

WScript.Quit(ID) 'return ID






Post reply:

Name:
E-Mail:
Subject:
Message:
SPAM code displayed
next to this:

CGIForum (C) Markus Triska

Home to