Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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ÈçºÎ±¸·ÝorcalÊý¾Ý¿â£¿ - Delphi / Êý¾Ý¿âÏà¹Ø

³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË

ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......

DelphiµÄÓï·¨ÎÊÌâ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ

Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ 
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......

delphi ×·Òª°æÈ¨·Ñ£¡£¡ - Delphi / ·Ç¼¼ÊõÇø

ÄãÃÇÓöµ½Õâ¸öÎÊÌâÂð£¿Ê¹ÓÃdelphi µÄʱºò£¬À´ÁËÒ»·âÐÅ¡£ËµÒªÎҽ̰æÈ¨·Ñ¡£Îһ赹¡£Ôõô°ì£¿
²»ÄÜÔõô°ì,Ò»ÊÇÀíËûÃÇ 2ÊDz»ÀíËûÃÇ

Äã·Å»°½ÐËûÃÇÀ´¹«Ë¾²é¡£¡£¡£¿´ËûÃÇÓе¨Ã»£¿

²»ÀíËûÃǾÍÊÇ£¬µ±Ê±Ò²ÎÊÎÒÃǹ«Ë¾ÒªµÄ ......

¹ØÓÚDELPHIÎÊÌâµÄ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ

ÎÒÊÇDELPHIµÄ³õѧÕߣ¬µ«ÀÏʦҪÇóÎÒÃÇ×ö¿Î³ÌÉè¼Æ£¬´ÓÊé±¾ÀïÃæ¿½ÁË´úÂë×Ô¼ºÑо¿£¬µ«ÀÏÊdzöÎÊÌ⣬ÓÐË­ÊÇÕâ·½ÃæµÄ¸ßÊÖ°¡£¬ÄÜ·ñÁôϸöÁªÏµµÄ·½Ê½°ï°ïæ°¡
³öʲôÎÊÌ⣬Çë¾ßÌå˵Ã÷
·¢ÏÖ¡¢½â¾öÎÊÌâµÄ¹ý³Ì¾ÍÊÇѧϰµÄ¹ý³Ì ......

delphi ÔÚDBChartÏÔʾ - Delphi / Êý¾Ý¿âÏà¹Ø

ÎÒÏëʵÏÖ½«Ò»¸ö°àµÄ³É¼¨ °´ÕÕÁùÊ®·ÖÒÔÏ£¬ÁùÊ®µ½°ËÊ®£¬°ËÊ®ÒÔÉÏ·Ö³ÉÈý×é¡£
ÔÚDBChartµÄÌõÐÎͼÀXÖáÊÇÕâÈý¸ö·ÖÊý¶Î£¬YÖáʽ¸ö·ÖÊý¶ÎµÄÈËÊý¡£
Êý¾Ý¿âÊÇsql2000µÄ
Ê×ÏȽ¨Á¢ÁË´æ´¢¹ý³ÌÈçÏÂ
create procedure makev ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ