如何实现从Spread外部(如Excel)复制数据粘贴到Spread单元格中
很着急阿!!!在线等答案!!!希望高手指点迷津!!!谢谢你先!!!!!!!!!!!!!!!!!!!!!!!!!!
很着急阿!!!在线等答案!!!希望高手指点迷津!!!谢谢你先!!!!!!!!!!!!!!!!!!!!!!!!!!
解决方案 »
- 串口数据接收
- 问一个关于SQL语句的问题
- 请问VB中用什么API可以将一个图片画在指定的控件上?
- 添加新行后,不输入记录,移动或保存记录出错?
- 送分题:取整函数忘了怎么写?
- 这儿人气比较高--救人啊,关于Project 2003 ,Project Web Access 和Project Server 2003中设置权限的问题---在线等
- !!!!!!求水晶报表6.5及相关资料下载!!!!!!
- 求这样一个函数:函数("C:\winnt\a.bak")="C:\winnt\"
- vb中记录集为空时,如何往数据库中添加数据?
- 关于远程开机的问题
- 紧急!如何用VB做——将U盘文件复制到其他磁盘
- 新手,大家帮帮忙啊,程序发布问题
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的数据,二维数组形式的