找回密码
 立即注册

QQ登录

只需一步,快速开始

iceman
社区贡献组   /  发表于:2013-9-26 16:30:00
11#
回复 10楼wlosg的帖子

wlosg 你好,

第四个参数代表的是复制的行数,应该是 1 。下面是我的测试代码:

  1. Private Sub Command2_Click()
  2.    
  3.     Me.fpSpread1.CopyRange 1, 0, fpSpread1.MaxCols, 1, 1, 1

  4. End Sub

  5. Private Sub Form_Load()

  6.   fpSpread1.Row = 0
  7.   fpSpread1.col = 1
  8.   fpSpread1.CellType = CellTypeEdit
  9.   fpSpread1.TypeTextShadow = False
  10.   fpSpread1.text = "测试"
  11.   Me.fpSpread1.ForeColor = RGB(0, 0, 255)
  12.   Me.fpSpread1.BackColor = RGB(0, 255, 0)

  13. End Sub
复制代码
回复 使用道具 举报
12
您需要登录后才可以回帖 登录 | 立即注册
返回顶部