Inconsistent Behavior

[Gintaras]

1. I recommend to use window handles.
2. Remember that initial function's speed is 0. Maybe it runs too fast.
3. I think the function should wait for the report window, even if it waits while IE is busy.

Macro:

Code:

Copy      Help

;Deb

str ttime
out ttime.time

int ie
ie=win(":: P.E.D.S. :: - Microsoft Internet Explorer provided by CS&O")
if(!ie) ret

;Direct Service Reports
ReportCopy(ie "Direct Services (Aggregate)" "DS (AGG)")
ReportCopy(ie "Direct Services (Individual)" "DS (IND)")
ReportCopy(ie "Direct Services (All)" "DS (All)")
ReportCopy(ie "Direct Service Contacts" "DS - Contacts")

;Participant Data
ReportCopy(ie "Direct Service Contacts by Demographics" "DS - Demo")
ReportCopy(ie "Nonduplicated Participant Counts" "NonDup")
ReportCopy(ie "Counts of Participants (Some Duplication)" "Some Dup")
ReportCopy(ie "Nonduplicated Participant Count by Service" "NonDup -Service")

;Other Activity Data
ReportCopy(ie "Community Strengthening Efforts" "CS")
ReportCopy(ie "Provider Capacity Building/Support" "PC")
ReportCopy(ie "Infrastructure Investments" "II")
ReportCopy(ie "Systems Change Support Activities" "SC")

;Outcome Data (core)
ReportCopy(ie "Intake Report" "Intake")
ReportCopy(ie "Intake / Follow-up Report" "Intake - Followup" 1)

;Progress and Fiscal Reports
ReportCopy(ie "Funds Spent by Strategy" "Funds")
ReportCopy(ie "Achievement Milestones" "AM")

;Service Quality Reports
ReportCopy(ie "Intensity of Services" "Int")
ReportCopy(ie "Duration of Services" "Dur")
ReportCopy(ie "Comprehensiveness of Services" "Comp")

out ttime.time

Function ReportCopy:

Code:

Copy      Help

function ie str'ButtonName str'SheetName [intake]
;Deb
spe 100 ;;because initial function's speed is 0
act ie
Acc rep1=acc(ButtonName "PUSHBUTTON" ie "Internet Explorer_Server" "" 0x1001)
rep1.DoDefaultAction
wait 0 I
int ie2=act(wait(10 "PEDS - Microsoft Internet Explorer provided by CS&O"))

if(intake)
,'TTTTTTTTTiT0

Acc a=acc("Run Report" "PUSHBUTTON" ie2 "Internet Explorer_Server" "" 0x1001)
a.DoDefaultAction
wait 0 I
men 41028 ie2 ;;Select All
men 41026 ie2 ;;Copy
0.2

ExcelPaste SheetName
clo ie2
1