VSTO入门问题集

excelhomesnake · 发表于 2015-11-23 15:41

VBA万岁发表于 2015-11-23 15:33
我说呢，原来在SearchOption里有设置......

如果你不希望遍历所有子文件夹,用一个参数的重载也可以.

VBA万岁 · 发表于 2015-11-23 15:57

本帖最后由 VBA万岁于 2015-11-23 15:59 编辑

excelhomesnake 发表于 2015-11-23 14:29
因为静态方法出来的是每个文件的完全路径,而不是fileinfo对象.把foreach的枚举变量类型设置为string就可 ...

有空我试试......

你是说如下帖子吗？
用VBA+XML制作功能区自定义选项卡以实现Excel批量操作
——我很喜欢VBA，所以用VBA也捣鼓一个，练练手，同考虑到也许对VBA版块的坛友有一些帮助......

VBA万岁 · 发表于 2015-11-23 16:03

excelhomesnake 发表于 2015-11-23 14:29
因为静态方法出来的是每个文件的完全路径,而不是fileinfo对象.把foreach的枚举变量类型设置为string就可 ...

接楼上（楼上正在被审核中）......
同时，也为了比较一下VSTO及VBA......

excelhomesnake · 发表于 2015-11-23 16:26

VBA万岁发表于 2015-11-23 16:03
接楼上（楼上正在被审核中）......
同时，也为了比较一下VSTO及VBA......

噢噢,佩服.我也在学习你的帖子做练习.不过我目前不太需要做excel的扩展功能而已.主要是在开发层面考虑简化数据处理环节而已.目前感觉可选方向不多,linq是暂时来说最好的.

VBA万岁 · 发表于 2015-11-24 08:39

excelhomesnake 发表于 2015-11-22 02:49
你需要在第二参数使用通配符,然后第三参数指定遍历所有子文件夹
具体可以参考附件

按照你建议的调试方法操作，终于发现了问题所在——原来按Directory.GetFiles方法得到的枚举性数据不仅包括含有正常名称的工作簿，还包括在正常名称前加上“~$”字符串的工作簿（不知为何会出现这种情况，也许与Office版本有关，我用的是Excel2007），而后一种工作簿是无法打开的，故程序运行到“Workbook book = app.Workbooks.Open(v_strDir);”这一句时会出错而停止运行，故看起来好像程序没反应一样。

excelhomesnake · 发表于 2015-11-24 13:41

VBA万岁发表于 2015-11-24 08:39
按照你建议的调试方法操作，终于发现了问题所在——原来按Directory.GetFiles方法得到的枚举性数据不仅包 ...

Directory.GetFiles获取一切他可获取的文件,这应该是一件好事.
你说的情况,只能通过代码自行过滤,如果你需要获取文件的一些属性,那最好是实例化File的对象,来获取关于文件的一些属性(可读写等权限之类的).同时用捕获异常来防止打不开的情况,毕竟文件的操作,谁也不能保证肯定能操作成功

VBA万岁 · 发表于 2015-11-24 13:45

本帖最后由 VBA万岁于 2015-11-24 14:19 编辑

VBA万岁发表于 2015-11-24 08:39
按照你建议的调试方法操作，终于发现了问题所在——原来按Directory.GetFiles方法得到的枚举性数据不仅包 ...

故用“Workbook book = app.Workbooks.Open(f.FullName.Replace("~$", ""));”这一句代码可避免此错误，从而解决这个问题，运行程序可达到预期目的：

private void mb2_Click(object sender, RibbonControlEventArgs e)
{
fn判断工作表是否被保护(Pa.SuperTip.Substring(0, Pa.SuperTip.LastIndexOf("\") + 1));
}
private static void fn判断工作表是否被保护(string v_strDir)
{
String msg = "";
int n = 0;
Application app = new Application();
try
{
foreach (FileInfo f in new DirectoryInfo(v_strDir).GetFiles("*.xls*"))
{
{
Workbook book = app.Workbooks.Open(f.FullName.Replace("~$", ""));
msg = msg + book.Name + "受保护的工作表有：\n";
foreach (Worksheet sheet in book.Worksheets)
{
if (book.Worksheets[sheet.Name].ProtectContents == true)
{
msg = msg + sheet.Name + "\n";
n++;
}
}
if(n==0)
{
msg = msg.Replace(book.Name + "受保护的工作表有：\n", "");
}
n = 0;
app.Application.DisplayAlerts = false;
//book.Close();
}
}
}
catch (Exception ex)
{
throw ex;
}
finally
{
app.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComObject(app);
app = null;
GC.Collect();
}
System.Windows.Forms.MessageBox.Show(msg);
}

复制代码

附件如下：

VBA万岁 · 发表于 2015-11-25 11:34

VBA万岁发表于 2015-11-21 22:44
三、C#中，为什么用foreach (FileInfo file in dir.GetFiles("*.xlsx", SearchOption.AllDirectories))没 ...

四、如何用VSTO类库制作EXCEL自定义函数？

看过如下相关帖子及博文，疑虑重重：
1、VSTO4.0创建EXCEL自定义函数
2、VSTO4.0类库制作EXCEL自定义函数
3、VSTO 学习笔记（十一）开发Excel 2010 64位自定义公式
4、如何给Excel添加用户自定义的公式

具体如下：

VBA万岁 · 发表于 2015-11-25 14:30

VBA万岁发表于 2015-11-25 11:34
四、如何用VSTO类库制作EXCEL自定义函数？

看过如下相关帖子及博文，疑虑重重：

（一）如何创建类库？

我从初始页开始依次单击：创建新项→Visual C#→Office→2007。在弹出的项目列表中没看到类库。

若从一个2007外接项目内依次单击：项目→创建新项，则在弹出的项目列表中只看到类，而没看到类库。

是否应该如下操作（暂时无法测试，故有此问）：初始页→创建新项→Visual C#→Windows？

VBA万岁 · 发表于 2015-11-25 15:08

VBA万岁发表于 2015-11-25 14:30
（一）如何创建类库？

我从初始页开始依次单击：创建新项→Visual C#→Office→2007。在弹出的项目列 ...

（二）如何调试？

以68楼的第一个链接帖为例：

1、编写函数完毕，依次单项目→（项目名称）属性→调试，选择“启动外部程序”，帖子说“然后选择EXCE程序作为函数调试的实体”，

想问一下，怎样“选择EXCE程序”？这个“作为函数调试的实体”的EXCE程序可以是任一Excel文件吗？

2、帖子说“设置好后就可以生成项目了”，想知道怎样生成项目？是否单击“生成”菜单中的第一个选项即可？之后是否会生成如下图所示的“显示输出来源......全部重新生成：成功1个，失败0个，跳过1个......”？

		自动登录	找回密码
密码			免费注册

[求助] VSTO入门问题集