请教如何COPY当前行数据，到EXCEL可直接粘贴为一行数据？

苍风霁月

现在的应用场景是：

      使用按钮按钮事件验证当前行数据有无问题，有问题报错修改，无问题就COPY当前行，在Excel粘贴成行数据用于其它工作。

admin

使用下面的代码可以复制行数据到剪贴板

'获得要操作的表
Dim tbl As BaseGrid=Proj.CurrentGrid
'保存当前选区
Dim sec As CellRange=tbl.Selection
Try
        tbl.StopRedraw()
        '如果当前行在数据区域（不在标题上）
        If tbl.Row>=tbl.Rows.Fixed AndAlso tbl.Row<tbl.Rows.Count Then
                '选择当前行
                tbl.Select(tbl.Row,tbl.Cols.Fixed,tbl.Row,tbl.Cols.Count-1,False)
                '将内容复制到剪贴板中
                tbl.Copy()
                '恢复选区
                tbl.Select(sec)
        End If
Catch ex As Exception
        UnhandledExceptionManager.ShowAndSaveLog(ex)
Finally
        tbl.ResumeRedraw()
End Try
复制代码