copyrange,copyrows,copycolumn如何从一个表复制到另一个表中？

收藏

我想从一个表中复制数据到另一个表中，可是copyrange,copyrows,copycolumn方法都是在一个表中复制，如何从一个表复制到另一个表中？

iceman · iceman

回复 1楼cure_shy的帖子

可以实现不同表之间的格式及数据复制。请参考附件 Demo：

12308.zip (65.65 KB, 下载次数: 1513)

cure_shy · cure_shy

要通过剪贴板转换，好谢谢你了

iceman · iceman

回复 3楼cure_shy的帖子

不客气

wrq1312 · wrq1312

請問用vb6 怎麼做
fpSpread1.Sheet = 1

fpSpread1.AddSelection -1, -1, -1, -1

fpSpread1.ClipboardCopy
fpSpread1.Sheet = 2

fpSpread1.ClipboardPaste

這樣的代碼沒有實現功能

wrq1312 · wrq1312

上面的代碼少了一行
調試的代碼如下:

fpSpread1.Sheet = 1

fpSpread1.AddSelection -1, -1, -1, -1

fpSpread1.ClipboardCopy
fpSpread1.Sheet = 2

fpSpread1.AddSelection -1, -1, -1, -1
fpSpread1.ClipboardPaste

End Sub

iceman · iceman

回复 6楼wrq1312的帖子

请使用以下代码测试：

Private Sub Command1_Click()
Me.fpSpread1.Sheet = 1
Dim a As Integer
a = Me.fpSpread1.MaxRows
Dim b As Integer
b = Me.fpSpread1.MaxCols
Me.fpSpread1.AddSelection 1, 1, a, b
Me.fpSpread1.ClipboardCopy
'Me.fpSpread1.ClearSelection
Me.fpSpread1.ActiveSheet = 2
fpSpread1.ClipboardPaste
End Sub

复制代码

wrq1312 · wrq1312

謝謝,
測試OK,只需將原來代碼中的.SHEET=2改為.ACTIVESHEET=2即可

iceman · iceman

回复 8楼wrq1312的帖子

恩不客气

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

[已处理] copyrange,copyrows,copycolumn如何从一个表复制到另一个表中？

8 个回复

浏览过的版块

活字格认证

微信认证勋章

元老葡萄