delphi ÐÂÔösheetÎÊÌâ - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ
ÈçºÎʹÐÂÔöµÄsheetÔÚǰһ¸ösheetºó£¬excelĬÈÏÓÐ3¸ösheet,ÈçÎÒÐÂÔöÒ»¸ösheet4,ÔõÑùʹËüÊDzåÔÚsheet3ºóÄØ£¬¶ø²»ÊDzåÔÚsheet1ǰ£¿
ÓÒ¼ü²»ÐÐÂð£¿
Worksheets.Add ·½·¨
¸Ã·½·¨ÓÃÓÚн¨¹¤×÷±í¡£
Function Add([Before As VARIANT], [After As VARIANT], [Count As VARIANT], [Type As VARIANT]) As LPDISPATCH
²ÎÊý˵Ã÷
Before
Variant ÀàÐÍ£¬¿ÉÑ¡¡£Ö¸¶¨¹¤×÷±í¶ÔÏó£¬Ð½¨µÄ¹¤×÷±í½«ÖÃÓڴ˹¤×÷±í֮ǰ¡£
After
Variant ÀàÐÍ£¬¿ÉÑ¡¡£Ö¸¶¨¹¤×÷±í¶ÔÏó£¬Ð½¨µÄ¹¤×÷±í½«ÖÃÓڴ˹¤×÷±íÖ®ºó¡£
Count
Variant ÀàÐÍ£¬¿ÉÑ¡¡£ÒªÐ½¨µÄ¹¤×÷±íµÄÊýÄ¿¡£Ä¬ÈÏֵΪ 1¡£
·µ»ØÖµ
Object ÀàÐÍ
˵Ã÷
Èç¹û Before ºÍ After Á½Õß¾ùÊ¡ÂÔ£¬Ôòн¨µÄ¹¤×÷±í½«²åÈëµ½»î¶¯¹¤×÷±í֮ǰ¡£
ÑùÀý
' ±¾Ê¾ÀýÏò¹¤×÷²¾ÖÐÌí¼ÓÁ½¸ö¹¤×÷±í¡£
Sub Worksheets_Add()
ThisWorkbook.Worksheets.Add Count:=2
End Sub
´óÌå´úÂëÈçÏ£º
Delphi(Pascal) code:
try
Self.ExcelApplication1:=TExcelApplication.Create(Self);
Self.ExcelApplication1.Connect;
except
messagebox(application.Handle,'ÎÞ·¨Éú³ÉExcel±¨±í£¬ÇëÈ·¶¨°²×°ÁËExcelºóÖØÊÔ','ÐÅÏ¢',mb_ok or mb_iconinformation);
exit;
end;
Self.ExcelApplication1.Visible[0]:=False;
Self.ExcelApplication1.DisplayAlerts[0]:=False;
self.ExcelApplic
Ïà¹ØÎÊ´ð£º
ÄãÃÇÓöµ½Õâ¸öÎÊÌâÂð£¿Ê¹ÓÃdelphi µÄʱºò£¬À´ÁËÒ»·âÐÅ¡£ËµÒªÎҽ̰æÈ¨·Ñ¡£Îһ赹¡£Ôõô°ì£¿
²»ÄÜÔõô°ì,Ò»ÊÇÀíËûÃÇ 2ÊDz»ÀíËûÃÇ
Äã·Å»°½ÐËûÃÇÀ´¹«Ë¾²é¡£¡£¡£¿´ËûÃÇÓе¨Ã»£¿
²»ÀíËûÃǾÍÊÇ£¬µ±Ê±Ò²ÎÊÎÒÃǹ«Ë¾ÒªµÄ ......
ÒÔǰÖмäÕ¾ÊǵçÄÔͨ¹ý´®¿Ú¿ØÖƵģ¬ÏÖÔڸijÉÁËUSB½Ó¿Ú£¬ÇëÎÊÒªÔõô×ö°¡£¿Çó¸ßÊÖÖ¸µãÒ»ÏÂ
ÊÇusbת´®¿ÚÂð£¿ÄÇÓ¦¸Ã»¹ÊÇ¿ÉÒÔ°´´®¿Ú²Ù×÷µÄ£¬Ö»ÊÇËٶȲ»ÄÜÌ«¸ß
Èç¹û²»ÊÇusbת´®¿Ú£¬Çë²éÔÄusbÇý¶¯µÄsdk˵Ã÷¡£
Õâ¸öÊDz ......
ÎÒÊÇÐÂÊÖÏ£Íû´ó¼ÒôÅç¡£¡£
¾ÍÊÇÏëÎÊһϠ¹ØÓÚIDEµÄÎÊÌâ··
ÕÒÁ˺þ㬾ÍÊÇûÕÒÈ«¡£
Ï£Íû´ó¸çÃÇÌṩһϹþ¡£¡£¡£¡£
лл··
ÄãÏëÎÊIDEµÄʲôÎÊÌâ
¿ÉÒÔ¾ßÌ嵽ʲôÎÊÌâÂï
ÏÖÔÚµÄͬѧÌáÎ ......
ÎÒÔÚÖ´ÐÐDelphi2010µÄʱºò£¬Ã»ÓгöÏÖÖ´ÐеĽçÃæ£¬Çó¸ßÊÖ°ïæ£¬Ð»Ð»
End_rbody_65722921//-->
¸Ã»Ø¸´ÓÚ2010-05-26 08:24:26±»°æÖ÷ɾ³ý
¶ÔÎÒÓÐÓÃ[0]
¶ª¸ö°åש[0]
ÒýÓÃ
¾Ù±¨
¹ÜÀí
TO ......