遍历文件夹文件

837852190

vba编写的遍历文件夹文件程序 转vsto  ；调试程序时，选择包含多个excel文件的文件夹，并没有进行遍历文件，也没有错误提示，求大佬指点，vsto代码如下：

无

临沂-枸杞

vsto里不用这么麻烦啊,直接GetFiles就可以啊

临沂-枸杞

1. Private Sub 获取文件名_Click(sender As Object, e As RibbonControlEventArgs) Handles 获取文件名.Click
   
2.         Dim f As New FolderBrowserDialog
   
3.         If f.ShowDialog() = DialogResult.OK Then
   
4.             Dim d As String() = System.IO.Directory.GetFiles(f.SelectedPath, "*.xls*", IO.SearchOption.AllDirectories)
   
5.             app.InputBox("选择输出单元格", Type:=8).resize(d.Length) = app.transpose(d)
   
6.         End If
   
7.     End Sub

复制代码

这是之前写过的你参考下

837852190

临沂-枸杞 发表于 2021-10-30 09:27
这是之前写过的你参考下

感谢回复  正在学习vba转vsto

gaolzhen

谢谢分享，欣赏了。。。