下面代码只是定位到刚保存文件所在的目录,如何定位到刚保存的文件(使之处于选定状态而不打开)?Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter = "Excel文件|*.xls" '设置筛选器
dlg.FileName = "订单"
If dlg.ShowDialog = DialogResult.Ok Then
Dim Book As New XLS.Book
Book.DefaultFont = New Font("宋体", 10)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet.Name = "单位1"
Book.Save(dlg.FileName)
Dim Proc As New Process
Proc.File = dlg.FileName.Substring(0, dlg.FileName.LastIndexOf("\"))
Proc.Start()
End If