- 博客(5)
- 问答 (2)
- 收藏
- 关注
excel sheet中数据的快速复制
'利用Copymemory 复制数组,实现excel sheet中数据的任意复制,粘贴区域小于复制区域,数据将被截取,否则将用空格填充Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)Sub copyrange(...
2006-04-25 13:06:00 85
计算数组的维数
Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, source As Any, ByVal Length As Long)Private Const VT_BYREF = &H4000&Private Sub Comman...
2006-04-24 09:42:00 120
API判断数组是否为空
Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long 'API判断数组为空或没有初始化 Sub diag()Dim msg As StringDim arr1() As String, arr2() As String, arr3() As Date, arr...
2006-04-24 09:29:00 327
excel sheet的 某列(m*n行) 快速复制到 m行n列区域
'以下代码可以利用非循环的方式,实现把[a1:a12]的数据快速复制到[b1:e3]:Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long) Sub xxx()Dim arr1(), arr2(1 To 3,...
2006-04-24 09:20:00 132
COPYMEMORY 实现 N维数组向M维数组的转化
'copymemory可以实现不同维数数组间的转换,如: Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)Dim a(5, 7) As Byte, b(15, 2) As Byte, c(47) As Byt...
2006-04-24 09:09:00 86
空空如也
webwork中的这一个类有什么作用?
2009-09-29
EJB部署
2008-08-27
TA创建的收藏夹 TA关注的收藏夹
TA关注的人