ÈçºÎ½«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
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
ÈçÌ⣬ µã»÷DelphiµÄFile²Ëµ¥µÄExitÍ˳öDelphi£¬ Delphi²¿·Ö¹Ø±Õ--¼´²»ÄÜÔÙ²Ù×÷Delphi£¬µ«ÈÎÎñÀ¸ºÍ½ø³ÌÀDelphi»¹ÔÚÔËÐУ¬Ã»ÓÐÕæÕýµÄÍ˳ö¡£ÊDz»Êǰ²×°ÁËjre¸Ä±äÁËijЩ»·¾³±äÁ¿µ¼Ö£¬ÇëÎʸßÊÖÈçºÎ½â¾ö£¿ ×¢£ºÃ»°²×° ......