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

Delphi Óë Excel VBA

ÇëÎÊ£ºÈçºÎ½«ÒÔÏÂVBA´úÂëת³ÉDelphi´úÂë

VBA´úÂëÈçÏ£¨¸´ÖÆÑ¡ÖÐÇøÓòRange("B3:B18")£¬Ìõ¼þÕ³ÌùÆä¸ñʽÖÁRange("H5")£©
VB code:

Sub Macro1()
'
' Macro1 Macro
' ºêÓÉ yuant Â¼ÖÆ£¬Ê±¼ä: 2009-12-14
'

'
Range("B3:B18").Select
Selection.Copy
Range("H5").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub



Delphi´úÂëÈçÏÂ
Delphi(Pascal) code:

var

begin
vXlSheet.Range['A3:B18'].Copy;
vXlSheet.Range['X3:X3'].PasteSpecial;//´Ë´¦²»ÄÜÕ³Ìù¸ñʽ£¬¶øÊǰÑËùÓÐÐÅÏ¢¶¼Õ³Ìù¹ýÀ´ÁË
end;


ÎÊÌâ½â¾öÁË¡£É¢·ÖÀ­£¡


Ïà¹ØÎÊ´ð£º

delphi¶¯Ì¬Êý×éÈçºÎÈ¥µôÒ»¸öÔªËØ

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

Delphi Óë ACCESSµÄ¹îÒìÏÖÏó

delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand


//ɾ³ýÊý¾Ý
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
  tmpCmd := TADOCommand.Create(ni ......

¹ØÓÚ±ÜÃâdelphi°æÈ¨»òÕßÊÕÂÉʦº¯µÄ·½°¸¡£

×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......

ÇóÒ»¶Îdelphi´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡­¡­);
Îļþ£ºUShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ