Excel Automation Incomplete

Hello All,

I am writing a codeunit to export a table to file.

What I currently am running into is that it will create the Excel file, and if I open it from a current running version of Excel it seems to do fine. However, if I double click on the created file then it will launch Excel, but then Excel hangs and has to be shut down, and restarted.

I am thinking that it is missing some piece of data that needs to be initialized. I am also having a problem in that the codeunit only runs every other time. I thought the ISCLEAR code would account for this. But every 1st, 3rd, 5th time I run it I get You must declare automation variable etc...

Any help on either problem would be greatly appriciated, thanks!

Here is the code...



IF ISCLEAR(Appzimus) THEN BEGIN
CREATE(Appzimus);
END ELSE BEGIN
CLEAR(Appzimus);
END;

IF ISCLEAR(AppWKbooks) THEN BEGIN
CREATE(AppWKbooks);
END ELSE BEGIN
CLEAR(AppWKbooks);
END;

IF ISCLEAR(AppWKbook) THEN BEGIN
CREATE(AppWKbook);
END ELSE BEGIN
CLEAR(AppWKbook);
END;

IF ISCLEAR(AppWksheet) THEN BEGIN
CREATE(AppWksheet);
END ELSE BEGIN
CLEAR(AppWksheet);
END;

i := 1;

Appzimus.Visible(FALSE);
Appzimus.ScreenUpdating(FALSE);
Appzimus.SheetsInNewWorkbook := 1;

AppWKbooks := Appzimus.Workbooks.Add;
AppWKbook := Appzimus.ActiveWorkbook;
AppWksheet := AppWKbook.ActiveSheet;
AppWksheet.Name := 'FOAMEX POs - ' + FORMAT(TODAY);

PurchaseLine.RESET;
PurchaseLine.SETRANGE("Buy-from Vendor No.", 'FOAMEX');
PurchaseLine.SETRANGE("Order Date", 101906D);

IF PurchaseLine.FIND('-') THEN BEGIN
REPEAT
AppWksheet.Range('A'+FORMAT(i)).Value:=PurchaseLine."Document No.";
AppWksheet.Range('B'+FORMAT(i)).Value:=PurchaseLine."Line No.";
AppWksheet.Range('C'+FORMAT(i)).Value:=PurchaseLine."Buy-from Vendor No.";
AppWksheet.Range('D'+FORMAT(i)).Value:=PurchaseLine.Type::Item;
AppWksheet.Range('E'+FORMAT(i)).Value:=PurchaseLine."No.";
AppWksheet.Range('F'+FORMAT(i)).Value:=PurchaseLine.Description;
AppWksheet.Range('G'+FORMAT(i)).Value:=PurchaseLine.Quantity;
AppWksheet.Range('H'+FORMAT(i)).Value:=PurchaseLine."Style No.";
AppWksheet.Range('I'+FORMAT(i)).Value:=PurchaseLine."Piece Code";
AppWksheet.Range('J'+FORMAT(i)).Value:=PurchaseLine."Warranty Date";

i += 1;

UNTIL PurchaseLine.NEXT = 0;
END;

AppWKbook.SaveAs('C:\FOAMEXPO.xls');

CLEAR(Appzimus);