VSTO入门问题集

VBA万岁

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

想问一下，楼上附件代码（如下）中的“WorkBookMessage”是什么，出错提示“上下文没有WorkBookMessage”：

1. private void button1_Click(object sender, RibbonControlEventArgs e)
   
2.         {
   
3.             var diaFolder = new FolderBrowserDialog();
   
4.             if (diaFolder.ShowDialog() == DialogResult.OK)
   
5.             {
   
6.                 MessageBox.Show(WorkBookMessage.GetSheetProtectMessage(diaFolder.SelectedPath));
   
7.              MessageBox.Show(WorkBookMessage.GetCellsHasFormulaMessage(diaFolder.SelectedPath));
   
8.             }
   
9.        }
   

复制代码

VBA万岁

VBA万岁 发表于 2015-11-22 09:05
想问一下，楼上附件代码（如下）中的“WorkBookMessage”是什么，出错提示“上下文没有WorkBookMessage” ...

为了方便说明问题，特附上源码及截图：

excelhomesnake

VBA万岁 发表于 2015-11-22 09:05
想问一下，楼上附件代码（如下）中的“WorkBookMessage”是什么，出错提示“上下文没有WorkBookMessage” ...

WorkBookMessage是我自己写的类,代码也在昨晚附件中的解决方案里面.
获取文件夹里面的所有文件路径,大概是这样

1. Directory.GetFiles(folderPath, "*", SearchOption.AllDirectories)

复制代码

用的是静态类的方法,要先using System.IO 这个命名空间

excelhomesnake

终于可以用vs2012打开vsto的设计时界面了{:soso_e127:}
原来是,因为机器安装了vs2010,因此在excel的设置上,只是勾选了vs2010的设计时加载项.

VBA万岁

excelhomesnake 发表于 2015-11-22 10:30
WorkBookMessage是我自己写的类,代码也在昨晚附件中的解决方案里面.
获取文件夹里面的所有文件路径,大概 ...

才注意到你附件中的WorkBookMessage类，有空测试或借用一下看看......
另，我用53楼的方法，出现如下错误，不知为何？

excelhomesnake

VBA万岁 发表于 2015-11-23 14:09
才注意到你附件中的WorkBookMessage类，有空测试或借用一下看看......
另，我用53楼的方法，出现如下错 ...

因为静态方法出来的是每个文件的完全路径,而不是fileinfo对象.把foreach的枚举变量类型设置为string就可以了.
我有个地方想请教一下,为什么你要新开一个excel实例的?

VBA万岁

excelhomesnake 发表于 2015-11-22 10:30
WorkBookMessage是我自己写的类,代码也在昨晚附件中的解决方案里面.
获取文件夹里面的所有文件路径,大概 ...

还有，经测试发现：Directory.GetFiles(folderPath, "*.xlsx", SearchOption.AllDirectories)的文件实为指定路径（olderPath）下的所有（包括子文件夹下的）xlsx文件，如果我只需要olderPath所指向的文件夹下（不包括子文件夹）的xlsx文件，该怎样表示呢？

VBA万岁

VBA万岁 发表于 2015-11-23 14:39
还有，经测试发现：Directory.GetFiles(folderPath, "*.xlsx", SearchOption.AllDirectories)的文件实为 ...

        虽然用我自己的方法（以下代码中的第11句——加了一个If判断语句）可解决这一问题，但感觉应该有更简捷的方法。
      另，不知道我49楼的问题是否与此有关（因暂时无法测试，故有此一问）？

1. private void mb6_Click(object sender, RibbonControlEventArgs e)
   
2.         {
   
3.             Fi.Visible = true;
   
4.             Application app = new Application();
   
5.             DirectoryInfo dir = new DirectoryInfo(Pa.SuperTip.Substring(0, Pa.SuperTip.LastIndexOf("\") + 1));
   
6.             Fi.Items.Clear();
   
7.             try
   
8.             {
   
9.                 foreach (FileInfo f in dir.GetFiles("*.xls*", SearchOption.AllDirectories))
   
10.                 {
    
11.                    <FONT color=red><STRONG> if (f.FullName.Substring(0, f.FullName.LastIndexOf("\") + 1) == Pa.SuperTip.Substring(0, Pa.SuperTip.LastIndexOf("\") + 1))
    
12. </STRONG></FONT>                   {
    
13.                         Microsoft.Office.Tools.Ribbon.RibbonDropDownItem item = Globals.Factory.GetRibbonFactory().CreateRibbonDropDownItem();
    
14.                         item.Label = f.Name;
    
15.                         Fi.Items.Add(item);
    
16.                     }
    
17.                 }
    
18.             }
    
19.             catch (Exception ex)
    
20.             {
    
21.                 throw ex;
    
22.             }
    
23.             finally
    
24.             {
    
25.                 app.Quit();
    
26.                 System.Runtime.InteropServices.Marshal.ReleaseComObject(app);
    
27.                 app = null;
    
28.                 GC.Collect();
    
29.             }
    
30.         }

复制代码

excelhomesnake

VBA万岁 发表于 2015-11-23 14:39
还有，经测试发现：Directory.GetFiles(folderPath, "*.xlsx", SearchOption.AllDirectories)的文件实为 ...

SearchOption.AllDirectories,是一个枚举类型,有不同的设置,具体你打SearchOption.  智能列表会出来选择的

VBA万岁

excelhomesnake 发表于 2015-11-23 15:15
SearchOption.AllDirectories,是一个枚举类型,有不同的设置,具体你打SearchOption.  智能列表会出来选择 ...

我说呢，原来在SearchOption里有设置......