以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]打开指定文件夹（搞定）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11976)
--  作者：易服
--  发布时间：2011/8/18 12:08:00
--  [求助]打开指定文件夹（搞定）

按钮代码：

打开指定文件夹 D:\\My Documents\\退耕报表

 

[此贴子已经被作者于2011-8-19 10:24:04编辑过]
--  作者：狐狸爸爸
--  发布时间：2011/8/18 12:15:00
--  

http://www.foxtable.com/help/topics/0359.htm

http://www.foxtable.com/help/topics/0328.htm

 
--  作者：易服
--  发布时间：2011/8/19 8:54:00
--  

反复摸索终于搞定

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.InitialDirectory="D:\\My Documents\\退耕报表" \'最初显示的目录
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
dlg.MultiSelect = True \'选择多个文件
If dlg.ShowDialog = DialogResult.OK Then \'如果用户单击了确定按钮
For Each fl As String In dlg.FileNames
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(""& fl & "")
    Dim Wd As MSExcel.Window = Wb.Windows(1)    \'表示当前工作簿窗口
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    App.Visible = True
Next
End If