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;
问题解决了。散分拉！
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
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 ......
delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand
//删除数据
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
tmpCmd := TADOCommand.Create(ni ......
