excel的数据导入到vsflexgrid

xsans 2010-01-23 09:32:47

我想把excel文件中的某行某列的数据导入到vsflexgrid某行某列。中请问是什么代码，谢谢

...全文

169 3 打赏收藏举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

三断笛 2010-03-06

打赏
举报

回复

1.用ADO,JET引擎,SELECT那一列,然后绑定至表单
2.引用Office Excel组件,读取那一列数据(cells属性),然后写入表单

guyehanxinlei 2010-03-02

打赏
举报

回复

将Excel作为数据源加载到控件中就好了
excel也可以当作数据库来使用的。

ArmStronger 2010-03-01

打赏
举报

回复

读出来写进去就好了，这还不简单

工程引用说明：本代码的使用是基于Microsoft Excel 2003使用的，未在其它版本的Office上测试过，因此在VB中应当引用Microsoft Excel 11.0代码其它内容说明：本代码中使用了VsFlexGrid做为源数据；并且可以命名EXCEL 工作单（SHEET）的名称，其中第一段代码是将内容保存到一个新的EXCEL 工作簿中，而第二个则是将内容保存到一个已存在的工作簿中。为了

'Const APPNAME = "VSFlexGrid8 用GetOpenFilename打开Excel工作表，直接存入VSFlexGrid 控件 " Option Explicit Dim sheet% Dim sFileName As String '从FileName中提取的文件名 Private Sub UserForm_Initialize() fg.Al

如何实现将vsflexgrid中修改的数据反馈到数据库中？？PrivateSubvsflexgrid1_AfterEdit(ByValRowAsLong,ByValColAsLong)rs.MoveFirst'//rs为记录集rs.Movevsflexgrid1.Row-1rs.EditIfvsflexgrid1.text=""Thenrs.Fields(vsflexgrid1.Col-1)=Nu...

VSFlexGrid控件属性和常用方法二dayf,2009-08-13 10:10:41

一、增加记录使用for来循环表格行。
for i=1 to grid1.rows-1
      with rs
            .addnew
            .fileds(o)=grid1.textmariy(i,0)
            .fileds(

数据反馈到数据库中？ Private Sub vsflexgrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long) rs.MoveFirst '//rs为记录集 rs.Move vsflexgrid1.Row - 1 rs.Edit If vsflexgrid1.text = "" Then rs.Fields(vsflexgrid1.

1,453

社区成员

41,351

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章