我在学习帮助文件的“ 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()
Dim DLG As New OpenFileDialog, FileName As String '定义变量,对话框,文件路径
DLG.Title = "请选择要写入的Excel文件" '对话框标题
DLG.Filter = "Excel文件(*.xls*)|*.xls*" '对话框文件筛选器
If DLG.ShowDialog = Windows.Forms.DialogResult.OK Then FileName = DLG.FileName '选择文件
If FileName = "" Then Return Nothing
Dim XlApp As Object = CreateObject("Excel.Application") '创建Excel对象
XlApp.Visible = True '并显示出来
Dim XlWb As Object = XlApp.Workbooks.Open(FileName) '打开工作簿文件
Dim Rng As Object = XlApp.InputBox("请选择要写入的单元格", "选择单元格", Type:=8)
If Rng Is Nothing Then Return Nothing
Dim InputStr As String = XlApp.InputBox("请输入要写入选择单元格的内容", "输入内容")
If InputStr = "" Then Return Nothing '选择单元格写入内容
Rng.Value = InputStr '写入内容
[此贴子已经被作者于2012-1-24 19:39:43编辑过]