回 帖 发 新 帖 刷新版面

主题:请教各位达人,怎样将MSHFlexGrid表格打开excel表格中的内容??

请教各位达人,怎样将MSHFlexGrid表格打开excel表格中的内容??
用DataGrid1  打开 还是 ?MSHFlexGrid1 打开??

麻烦你们 
能不能发个代码?
我是新手 !!!
各位高手帮个忙!

回复列表 (共8个回复)

沙发

新手还作这么难的问题?

板凳

恩!! 你写一下代码就可以了!
其他的我自己研究研究 ~~~~~~~~~~~~~~~~~~~~~~~~!
我会开accees的 窗口 用DataGrid1    
课不知道怎么开excel   
帮个忙 !!!
也不算那么新手!

3 楼

反正你界面上也要以各“表格”,算了就不要用“DataGrid1”了,直接搞个excel算了。

菜单“工程”、“部件”、“可插入对象”、“Microsoft Excel工作表”、“确定”
然后从工具栏添加

4 楼

恩! 添加了1
后面呢???
打开 按钮 上什么都不写?? 不需要代码?
这个也用SQL 语句吗?
比如说  :select FROM *   《表名》   
能不能说个清楚一点啊! 麻烦你!

5 楼

我的意思是FORM 菜单 里 添加  打开 添加 删除 计算 4个 按钮  
然后 添加text1.text 和text2.text 两个文本框  
比如说 : text1.text 上写个 车号  text2.text 上写 吨  
然后添加 按钮 直接添加到EXCEL 上 !


6 楼

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 楼

直接用ADO SELECT一下就OK了

8 楼

请问一下专家:filesname = Right(bb, Len(bb) - InStrRev(bb, "\"))
这一句是什么意思?望专家给予指导.谢谢.

我来回复

您尚未登录,请登录后再回复。点此登录或注册