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，然后创建获取剪切板中数据行/列数的函数。这个函数的返回值是数组，第一个元素为剪切板中数据的行数，第一个元素是剪切板中数据的列数。

1. Option Explicit
   
2. Const CF_SYLK = 4
   
3. Const CF_DSPTEXT = &H81
   
4. Declare Function OpenClipboard Lib "user32" (ByVal Hwnd As Long) As Long
   
5. Declare Function CloseClipboard Lib "user32" () As Long
   
6. Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long
   
7. Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
   
8. Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
   
9. Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
   
10. Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long
    
11. Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
    
12. Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
    
13. 
    
14. Function ClipBoard_RangeSize()
    
15.   Dim lhCB&, lpCB&, lRet&, lSize&, sText$
    
16.   Dim aTmp, sTmp$, nRow&, nCol&
    
17.   If IsClipboardFormatAvailable(CF_SYLK) Then
    
18.     If OpenClipboard(0&amp;) <> 0 Then
    
19.     lhCB = GetClipboardData(CF_DSPTEXT)
    
20.     If lhCB <> 0 Then
    
21.       lpCB = GlobalLock(lhCB)
    
22.       If lpCB <> 0 Then
    
23.         lSize = GlobalSize(lpCB)
    
24.         sText = Space$(lSize)
    
25.         lRet = lstrcpy(sText, lpCB)
    
26.         lRet = GlobalUnlock(lhCB)
    
27.         sText = Left(sText, InStr(1, sText, Chr$(0), 0) - 1)
    
28.       End If
    
29.     End If
    
30.     CloseClipboard
    
31.   End If
    
32.   aTmp = Split(sText, " ")
    
33.   If UBound(aTmp) > 2 Then
    
34.     sTmp = aTmp(UBound(aTmp) - 2)
    
35.     nRow = Left(sTmp, Len(sTmp) - 1)
    
36.     sTmp = aTmp(UBound(aTmp))
    
37.     nCol = Left(sTmp, Len(sTmp) - 1)
    
38.     End If
    
39.   End If
    
40.   ClipBoard_RangeSize = Array(nRow, nCol)
    
41. End Function

复制代码

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

通过代码设置：

1. 
   
2. Private Sub Form_Load()
   
3.   fpSpread1.AutoClipboard = True
   
4. End Sub
   

复制代码

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

1. Private Sub fpSpread1_KeyPress(KeyAscii As Integer)
   
2.   If KeyAscii = 22 Then 'paste(ctrl+ v)
   
3.     numRows = ClipBoard_RangeSize(0)
   
4.     fpSpread1.MaxRows = numRows
   
5.     fpSpread1.ClipboardPaste
   
6.   End If
   
7. End Sub

复制代码

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