然后,将SpreadSheet控件添加到设计界面。
最后,在控件上点击右键,选择Create a new document菜单项,然后会自动创建一个名为spreadsheet1.ssxaml文档,并自动设置到DocumentUri属性中。
具体的实现,请参考下面的博客
http://blog.gcpowertools.com.cn/post/%E4%BD%BF%E7%94%A8Spread%E4%BB%85%E9%9C%8030%E8%A1%8C%E4%BB%A3%E7%A0%81%E5%B0%B1%E5%AE%9E%E7%8E%B0%E8%AE%A1%E7%AE%97%E5%99%A8%E5%8A%9F%E8%83%BD.aspx
'这是后台打开EXCEL的思路,下面是代码,你参考下:Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Dim FSs, FLs
Set FSs = CreateObject("Scripting.FileSystemObject")
FLs = "d:\驾驶员相关到期提醒.xls"
If FSs.FileExists(FLs) = False Then '验证文件是否存在
exit sub
Else
Set xlBook = xlApp.Workbooks.Open("d:\驾驶员相关到期提醒.xls")
End If
xlApp.Visible = False '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表 xlSheet.Cells.Copy
Spreadsheet1.Cells.Select
ActiveSheet.Paste
xlbook.close
Set xlApp = Nothing '释放xlApp对象
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)