主题：请教怎么写 导出xls并自动打开对应文件？

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
dlg.FileName = format(Date.today, "yyyyMMdd") & ".xls"
If dlg.ShowDialog = DialogResult.OK Then
    Dim t As Table = Tables("表A")
    t.SaveExcel(dlg.FileName, "abc")
    Dim proc As new Process
    proc.File = dlg.FileName
    proc.Start
End If