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;
ÎÊÌâ½â¾öÁË¡£É¢·ÖÀ£¡
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
VC ¿ØÖÆÌ¨³ÌÐò:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......