如何实现从Spread外部(如Excel)复制数据粘贴到Spread单元格中
很着急阿!!!在线等答案!!!希望高手指点迷津!!!谢谢你先!!!!!!!!!!!!!!!!!!!!!!!!!!

解决方案 »

  1.   

    从外部好像不可以吧。。如果可行的话,你必须:
    1)打开excel文件,
    2)拷贝内容到剪切板
    3)拷贝内容到spreedsheet但是VB要操作剪切板,好像不容易吧
    你直接多进去不行吗?如果嫌慢的话用这个方法:Public Function ReadExcel(ByVal strpath As String, Optional ByVal SheetName As String = "Sheet1", Optional ByVal SheetRange As String = vbNullString) As VariantOn Error GoTo eh
    Dim mExcel As Excel.Application
    Dim mSheet As Excel.Worksheet
    Dim row As Long
    Dim col As LongReadExcel = EmptySet mExcel = CreateObject("Excel.Application")mExcel.Workbooks.open (strpath)
    Set mSheet = mExcel.Sheets(SheetName)If SheetRange = vbNullString Then
        row = mSheet.UsedRange.Rows.Count
        col = mSheet.UsedRange.Columns.Count
    Else
        row = mSheet.Range(SheetRange).Rows.Count
        col = mSheet.Range(SheetRange).Columns.Count
    End IfReDim mData(row, col)
    mData = mSheet.UsedRange.ValuemExcel.Workbooks.Close
    mExcel.Quit
    Set mExcel = Nothing
    Set mSheet = NothingReadExcel = mDataExit Function
    eh:
    ReadExcel = Empty
    mExcel.Quit
    Set mExcel = NothinggcError.Add Err.number, Err.Description, "MT_ReadExcel"
    End Function
    返回的是excel的数据,二维数组形式的
      

  2.   

    把EXCEL表格的内容,复制到粘贴板上,然后在spreedsheet选中的格子里,做粘贴操作
      

  3.   

    ctrl+v  最简单,要用代码完成的话除上楼说的方法外,还可以在SPREAD的SHEET2上打开然后象EXCEL一样引用最快,这样不必要打开EXCEL,当然要隐藏SHEET2不要显示,SPREAD8.0正式发行了,谁会CRACK邮件至:[email protected]联系
      

  4.   

    楼上的收到spread8的sn了麻烦也发一个给我,[email protected]