Spread for COM 中粘帖500行以上的单元格

收藏

开发人员面临的最常见的用户场景之一是剪切板中的（support）支持/复制/剪切功能。从 Excel 中粘贴数据到 Spread for COM 中是很容易的。但是，一次性粘帖500行以上的数据是受到限制的。

这是 Spread for COM 的一个限制，不允许用户一次性粘帖500行（Spread for COM 的 MaxRows 属性）以上的数据。如果默认设置允许500行以上的粘帖，一般会影响性能，因此建议不增加默认的粘帖最大值。即使在设计时 MaxRows 值被设定，也不意味着复制/粘帖行的数量就一定要在这个设定值以下。因此，要克服这个限制，需要操作这个属性，同时需要设置在剪切板中的数据的数量...

解决这个问题的方法，取得剪切板中数据的长度（从 Excel 文件中复制的行数），在粘帖之前，设定 MaxRows 属性的值，然后粘帖。一旦粘帖完成，重新把这个属性设定成原始值。

下面的代码（Visual Basic 6）将展示如何利用剪切板 API 去实现期待的效果。

首先，在代码中声明剪切板的 API，然后创建获取剪切板中数据行/列数的函数。这个函数的返回值是数组，第一个元素为剪切板中数据的行数，第一个元素是剪切板中数据的列数。

Option Explicit
Const CF_SYLK = 4
Const CF_DSPTEXT = &H81
Declare Function OpenClipboard Lib "user32" (ByVal Hwnd As Long) As Long
Declare Function CloseClipboard Lib "user32" () As Long
Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long
Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Function ClipBoard_RangeSize()
Dim lhCB&, lpCB&, lRet&, lSize&, sText$
Dim aTmp, sTmp$, nRow&, nCol&
If IsClipboardFormatAvailable(CF_SYLK) Then
If OpenClipboard(0&) <> 0 Then
lhCB = GetClipboardData(CF_DSPTEXT)
If lhCB <> 0 Then
lpCB = GlobalLock(lhCB)
If lpCB <> 0 Then
lSize = GlobalSize(lpCB)
sText = Space$(lSize)
lRet = lstrcpy(sText, lpCB)
lRet = GlobalUnlock(lhCB)
sText = Left(sText, InStr(1, sText, Chr$(0), 0) - 1)
End If
End If
CloseClipboard
End If
aTmp = Split(sText, " ")
If UBound(aTmp) > 2 Then
sTmp = aTmp(UBound(aTmp) - 2)
nRow = Left(sTmp, Len(sTmp) - 1)
sTmp = aTmp(UBound(aTmp))
nCol = Left(sTmp, Len(sTmp) - 1)
End If
End If
ClipBoard_RangeSize = Array(nRow, nCol)
End Function

复制代码

同时，要在设计时或 Form_Load 事件中把 Spread 的 AutoClipBoard 属性设置为 true,这样 Spread 表单才能接受剪切板中的数据。

通过代码设置：

Private Sub Form_Load()
fpSpread1.AutoClipboard = True
End Sub

复制代码

Spread for COM 中捕获 Ctrl+V（粘帖）最好的方法是 KeyPress 事件。在这个事件中，通过 ClipBoard_RangeSize() 方法取得剪切板中的行数，这个数值也是我们将要设置的 MaxRows 属性的值。

Private Sub fpSpread1_KeyPress(KeyAscii As Integer)
If KeyAscii = 22 Then 'paste(ctrl+ v)
numRows = ClipBoard_RangeSize(0)
fpSpread1.MaxRows = numRows
fpSpread1.ClipboardPaste
End If
End Sub

复制代码

通过上述做法，可以完成从 Excel 中复制任意数量的行在 Spread for COM 中粘帖的操作。

		自动登录	找回密码
密码			立即注册

Spread for COM 中粘帖500行以上的单元格

0 个回复

活字格认证

微信认证勋章

元老葡萄