|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 ndt3 于 2020-7-19 23:03 编辑
各位老师,打算做个自己用的com加载项。使用的是vs2010+vb+office2010.
之前用vb6每次都是生成dll,加载再调试效率太低。
无奈平时都是改代码做点小东西。水平有限 在考虑到以后都是64位的机器。看看vs怎么样,正在折腾。
选项卡框架已经搭起来了。现在就是填充代码。
第一个测试代码就被难住了!代码运行打开文件非正常的慢。起码是正常手工打开的4-5倍时间。文件没有公式没代码什么的。
代码如下:
Imports Microsoft.Office.Tools.Ribbon
Public Class Ribbon1
'Private Property xlApp As Object
Private xlApp As Excel.Application'上下两句等同?均可运行打开文件,就是都很慢!
Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button22.Click
xlApp = CreateObject("Excel.Application")
' If Not xlApp.ActiveWorkbook Is Nothing Then '这里IF代码不能用了
xlApp.Workbooks.Open("E:\测试\T.xlsx")
xlApp.Visible = True
'Else
' MsgBox("没有活动工作簿", vbExclamation)
'End If
End Sub
End Sub
End Class
有如下问题:
1、文件能打开,但是超级的慢,基本等于废柴
2、判断有误工作簿打开,以前的vb代码不可用了;
3、之前标红部分使用的字符串组合,主要是为了文件名后缀的问题,excl后缀都是xlsm或者xlsx,所以以前的代码实际都是xls*,在vs2010中用不了!
能否使用不带后缀的方式打开?
4、如何写打开当前工作簿目录文件夹,
5、如何写打开当前工作簿目录上一级文件夹?
另外再求教各位老师,vs2010 做加载项与使用环境下的的office2010,32位64位会有兼容问题么?谢谢!
麻烦哪位老师帮忙指点指点!十分感谢!
|
|