主题:请教各位达人,怎样将MSHFlexGrid表格打开excel表格中的内容??
huaxu
[专家分:0] 发布于 2008-06-03 19:32:00
请教各位达人,怎样将MSHFlexGrid表格打开excel表格中的内容??
用DataGrid1 打开 还是 ?MSHFlexGrid1 打开??
麻烦你们
能不能发个代码?
我是新手 !!!
各位高手帮个忙!
回复列表 (共8个回复)
沙发
老大徒伤悲 [专家分:29120] 发布于 2008-06-03 20:00:00
新手还作这么难的问题?
板凳
huaxu [专家分:0] 发布于 2008-06-03 21:37:00
恩!! 你写一下代码就可以了!
其他的我自己研究研究 ~~~~~~~~~~~~~~~~~~~~~~~~!
我会开accees的 窗口 用DataGrid1
课不知道怎么开excel
帮个忙 !!!
也不算那么新手!
3 楼
老大徒伤悲 [专家分:29120] 发布于 2008-06-03 21:47:00
反正你界面上也要以各“表格”,算了就不要用“DataGrid1”了,直接搞个excel算了。
菜单“工程”、“部件”、“可插入对象”、“Microsoft Excel工作表”、“确定”
然后从工具栏添加
4 楼
huaxu [专家分:0] 发布于 2008-06-03 21:50:00
恩! 添加了1
后面呢???
打开 按钮 上什么都不写?? 不需要代码?
这个也用SQL 语句吗?
比如说 :select FROM * 《表名》
能不能说个清楚一点啊! 麻烦你!
5 楼
huaxu [专家分:0] 发布于 2008-06-03 21:57:00
我的意思是FORM 菜单 里 添加 打开 添加 删除 计算 4个 按钮
然后 添加text1.text 和text2.text 两个文本框
比如说 : text1.text 上写个 车号 text2.text 上写 吨
然后添加 按钮 直接添加到EXCEL 上 !
6 楼
fsduron [专家分:90] 发布于 2008-06-03 23:21:00
Dim shtContinent As Excel.Worksheet
Dim bb As String
bb = txtfilename.Text
filesname = Right(bb, Len(bb) - InStrRev(bb, "\"))
cbob.Clear
' 获取 WORLD.XLS 中的第一个工作表
Set shtWorld = GetObject(txtfilename.Text)
' 获取工作簿
Set wbWorld = shtWorld.Application.Workbooks(filesname)
' 遍历工作表集合,并将每张工作表的名称添加到组合框中
For Each shtContinent In wbWorld.Sheets
cbob.AddItem shtContinent.Name
Next
' 选定第一项并显示在组合框中
cbob.Text = cbob.list(0)
Set shtContinent = Nothing
Exit Sub
7 楼
牧子 [专家分:160] 发布于 2008-06-06 21:31:00
直接用ADO SELECT一下就OK了
8 楼
yinxiaobao [专家分:0] 发布于 2010-07-25 18:39:00
请问一下专家:filesname = Right(bb, Len(bb) - InStrRev(bb, "\"))
这一句是什么意思?望专家给予指导.谢谢.
我来回复