Search results for query: *

Thank you.

Skip thank you very much again your valuable time but it gives error type mismatch Amtcheck = CSng(Trim(MyScreen.GetString(i, 120, 13)))

next page also it checks 12 to 27 sorry by mistake it is 25.

sKIP this is what i did so far if trim(MyScreen.GetString(6,4,11)) = "SKIP REPORT" THEN Print #1, "NO RECORDS FOUND" +Chr$(13) + Chr$(10)+""; else NotLastPage = true NumberPage = 0 NumberPage = NumberPage +1 Do while (NotLastPage = true) For i = 12 to 27...

skip thanks for your valuable comment. in this case, can i use search amtcheck if it found the value can put it in text document unless i find <<<<<<< this one go to next page is this right way to do that

Skip i am looking for amtchek in first page, if it is > 10.00 the corresponding row and column write into text. and go to next page search and wrtie into text same on...... but if i go for i = 12 to 27 25th line has <<<<<<<<<<<<<<<<<<<<<< it is not end of reprot but is goes next page too. please...

Skip thank you so much. you are helping lot of people like me. i have another question if i search amtcheck and corresponding whole line that is row and column how do i perform do i have to for next or without for do i have any solution regarding this.

skip could you help me amtcheck shows 0 only but it has data morethan 10. i put as dim amtcheck

skip i have error Dim Amtcheck as integer Amtcheck = trim(MyScreen.GetString(14,120,13)) type mismatch. in screen 15395.16

ski] thank you for yuo valuable time. yes it opend for the output 2. it is excuting and run successfully but when it writes it checks the amot . it is > 10 in screen but it is not writing is that problem i declare as amtcheck as integer. i did not get anyerror this is part of the code. i have...

could anybody help the above one?

could you check is there any modification in the below code the macro is not writing in text documnet this is what i have written. is there any alternate way to do checking the amount field. if it is more than 10 it is writing the whole particular row. code is here if...

i found out from this website this is the right one MyScreen.SendKeys(" '" + " FISCAL YR "+ +MyYear + " PER " + UserInput + "'") thanks

please anyone help me the below one MyScreen.SendKeys("F") MyScreen.SendKeys("'" + "FISCAL YR"+MyYear + "per" + UserInput + "'") i need space befwwe Myyear and per and space between per and userinput userinput = Input("enter period") Myyear = year(now()) it sends F 'FISCAL YR2009PER09

i found in this website. now i have another issue USERINPUT = INPUTBOX ('ENTER PERIOD') how to do F 'FISCAL YR(YEAR(NOW)PER USERINPUT' i tired Myscreen.sendkeys("F ") Myscreen.sendkeys(''FISCAL YR(YEAR(NOW)PER USERINPUT' ) it gives syntax errror.

how do i enter inputbox like fiscal year and perid exampleUserInput = InputBox ("FISCAL YR 2009 PER 08 " but it changes year and period is it somthing "FISCAL YR (YR) PER (n+1)

Skip thanks a lot i figured it out. learnt lot from here. instead of this Set appexcel = CreateObject("excel.application") this one Set appExcel = GetObject(, "Excel.Application") so that alrady opend excel saveas in different folder but one thing i need to know how to have diffferent folder...

Skip i might be wrong. tell me already open the workbook howto use saveas and how the user will know this is the excel is wriitng

Skip thanks pointing out. the below one for new workbook Set wbExcel = appExcel.Workbooks.Add if it is already open i try this one it says read only . wbExcel.SaveAs file_name and it is not picking the excel

Skip thanks for you. Trying to help for me i have already open the differnrt name workbook which is save as for example c:\ test.xls running macro for scraping excel to extra! here is the code i tried. it works fine when the work book is not opend. the user point of view is this right excel to...