以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何把一个变量写入选定的XLS文件中。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=15966)
--  作者：gzdw
--  发布时间：2012/1/21 23:09:00
--  如何把一个变量写入选定的XLS文件中。
我在学习帮助文件的“ 3.5.3 报表编程”时，发现帮助文档的XLS文件基本上都是“新建”的，如：
Dim Book As New XLS.Book \'定义一个Excel工作簿
而没有打开现有文件的例子。
 
如果这个文件是通过打开文件选择窗口，选定的某个XLS文件，想问一声，如何把一个变量（数值类型）写入这个XLS文件中？
请写一下代码。
--  作者：gzdw
--  发布时间：2012/1/22 14:03:00
--  

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

 

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()

--  作者：飞
--  发布时间：2012/1/24 19:39:00
--  

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编辑过]