主题：请教高手

现有一代码，以能用，但想加入二个新的功能，请高手指导指导~~~~~

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Tables("订单明细表").SaveExcel(dlg.FileName, "展开面积")  '保存文件
    Dim Proc As New Process
End If

如何在导出的“开面积表”的前面自动加上“序号”，“序号”内容为1，2 ，3....... 并且在保存后看上去打开这个文件，谢谢