ÈçºÎ½«VBAÓï¾ä·Òë³ÉdelphiÓï¾ä
Sub aSmpLine()
Sheet1.Shapes.AddLine(100, 100, 180, 150).Name = "Line1"
With [line1].ShapeRange.Line
.Weight = 3
.DashStyle = msoLineSolid
.Style = msoLineThinThin
.Visible = True
.ForeColor.SchemeColor = 10
.BackColor.RGB = RGB(255, 255, 255)
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadLength = msoArrowheadLengthMedium
.EndArrowheadWidth = msoArrowheadWidthMedium
End With
MsgBox "Will deleted!"
[line1].Delete
End Sub
Çë°ï潫ÒÔÉÏEXCELµÄVBAÓï¾ä·Òë³ÉDelphiÓï¾ä£¬¼±Óã¬Ð»Ð»£¡
û·¨Ö±½Ó·Ò룬¾ÍÊÇ»Ïß»¼ýÍ·Âð£¬Äã×Ô¼ºÐ´¾ÍÊÇÁË£¬»¹ÓÐʲôºÃ·ÒëµÄ
±¾ÈËÊÇdelphiÐÂÊÖ£¬²»ÖªµÀÔõôд¡£Çë½Ì¸öÎÊÌ⣺sh:=sheet.shapes.addline(288,14.25,720,14.25);ÏßÎÒÊÇ»³öÀ´ÁË£¬µ«ÎÒÒªÈçºÎ¸ÄΪ¼ýÍ·ÄØ£¿ÈçºÎ¶¨ÒåÏߵĴÖÏ¸ÄØ£¿ÏßµÄÑÕÉ«£¿
²»¶®µÄÈË·¹ý£¬delphi ÖеÄOLE²Ù×÷ÏÂEXCEL
ÎÒ×Ô¼º¸ã¶¨ÁË¡£
²Î¿¼´úÂ룺
uses Comobj;
var
vExcelApp: Variant;
begin
vExcelApp := CreateOleObject('Excel.Application');
// ÏÔʾExc
Ïà¹ØÎÊ´ð£º
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
ÏëÇëÎʸ÷λ£ºÅ̵ãά»¤ÀïÃæ£ºÅÌÓ¯¿÷ÊýÁ¿=¿â´æÊýÁ¿+Èë¿âÊýÁ¿-³ö¿âÊýÁ¿£¬ÕâÑù×öÊǶԵÄÂð£¬
Â¥ÉÏÕý½â,ÕýÊýÅÌÓ¯ ¸ºÊýÅÌ¿÷
һ¥ÕýÈ·£¡
лл¸÷λÀ²
¾ÍÊÇ£ºÊDz»ÊÇ Êµ¼Ê¿â´æÀïµÄ¿â´æÁ¿ ÓëÄãÊÖ¶¯Êä½øÈ¥µÄÊýÁ¿Ö®¼äµ ......
ÒªÇóÄÜʵÏÖ¶þÈËÔŲ́ͬµçÄÔÉ϶ÔÕ½µÄ ²»ÓÃÌ«»¨ÉÚ ×îºÃ»¹¼ÓÉÏÈË»ú¶ÔÕ½µÄ ¼±Ðè ˰ïÏÂæ°¡Ñ½!!!!!!!!
up
baidu£¬google
up
http://www.codepub.com/software/view-software-4061.html
ÍøÕ¾ÉÏÓÐ
......
IF THEN ELSEÖжà¸öÌõ¼þÔõôд£¬È磺×Ö·û´®S1£¬S2£¬S3£¬S4¾ùÒª²»Îª¿Õ¡£
ÔõôÑù°ÑËüдµ½IFÖÐÈ¥£¿
Çë¸÷λ°ï°ï棬лл£¡
if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then
begin ......
ÎÒÔõô²éÁËÄÇô¶à˵ÊÇÄÜÆÆ½âµÄ£®½á¹û¶¼²»ÐУ®ÄãÃÇÓÐûÓÐѽ£®¸øÎÒ¸öÏêϸµÄ½â¾ö·½°¸£®ÏÂÔØÄĸö°æ±¾£®ÆÆ½âÎļþ£¬»¹ÓÐ×¢²áÂë
²»Çå³þ
ÏÂÔØ¹Ù·½¹âÅ̾µÏñ£¬ÓÃdelphidistiller1.85ÆÆ½â
µ½www.2ccc.comÉÏÈ¥ÕÒdelphidis ......