如何把一个变量写入选定的XLS文件中。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何把一个变量写入选定的XLS文件中。

共有11058人关注过本帖树形打印复制链接主题：如何把一个变量写入选定的XLS文件中。

gzdw

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：308 积分：3351 威望：0 精华：0 注册：2011/12/22 17:52:00

如何把一个变量写入选定的XLS文件中。 发帖心情

Post By：2012/1/21 23:09:00 [只看该作者]

我在学习帮助文件的“ 3.5.3 报表编程”时，发现帮助文档的XLS文件基本上都是“新建”的，如：
Dim Book As New XLS.Book '定义一个Excel工作簿
而没有打开现有文件的例子。

如果这个文件是通过打开文件选择窗口，选定的某个XLS文件，想问一声，如何把一个变量（数值类型）写入这个XLS文件中？
请写一下代码。

gzdw

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：308 积分：3351 威望：0 精华：0 注册：2011/12/22 17:52:00

Post By：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()

飞

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：732 积分：5491 威望：0 精华：14 注册：2011/8/28 12:49:00

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

下一主题 >> << 上一主题

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