主题：如何把一个变量写入选定的XLS文件中。

我在学习帮助文件的“ 3.5.3 报表编程”时，发现帮助文档的XLS文件基本上都是“新建”的，如：
Dim Book As New XLS.Book '定义一个Excel工作簿
而没有打开现有文件的例子。
 
如果这个文件是通过打开文件选择窗口，选定的某个XLS文件，想问一声，如何把一个变量（数值类型）写入这个XLS文件中？
请写一下代码。

目前我的笨办法是这样处理的，不知道是否还有更简便的办法。

 

Dim ld As Integer
ld=100  '这里省去了求得这个变量的过程

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
dlg.Title= "请选拔XLS模板文件" '选择框标题
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
End If

Dim Book As New XLS.Book(dlg.FileName) '根据模板文件，定义一个新文件
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
    Sheet(6, 2).Value =ld 　'按预定的位置写入变量
Book.Save(dlg.FileName)　'保存工作簿（覆盖了模板文件）
Dim Proc As New Process '打开工作簿，进行验证
Proc.File =dlg.FileName
Proc.Start()