| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 911 人关注过本帖
标题:vb如何调用Exceel应用程序?
只看楼主 加入收藏
风月_无边
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:60
帖 子:2960
专家分:652
注 册:2007-1-19
结帖率:100%
收藏
 问题点数:0 回复次数:9 
vb如何调用Exceel应用程序?
打开一个工作簿.worksheet对象
搜索更多相关主题的帖子: 应用程序 Exceel vb worksheet 对象 
2007-03-21 18:03
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
添加引用Excel对象.然后操作.很方便.

我的msn: myfend@
2007-03-21 18:07
风月_无边
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:60
帖 子:2960
专家分:652
注 册:2007-1-19
收藏
得分:0 

给我两行代码看看,我在书上看了个例子不行!


我的网站 http://www.
2007-03-21 18:15
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
Private Sub Command1_Click()
Dim ExcelApp As Excel.Application
Dim ExcelWork As Excel.Workbook
Dim ExcelSheet As Excel.Worksheet

Set ExcelApp = New Excel.Application
Set ExcelWork = ExcelApp.Workbooks.Add
Set ExcelSheet = ExcelWork.ActiveSheet
ExcelApp.Visible = True

Dim i As Integer, j As Integer
For i = 1 To 10
For j = 1 To 10
ExcelSheet.Cells(i, j) = i + j
Next
Next
End Sub

我的msn: myfend@
2007-03-21 18:28
风月_无边
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:60
帖 子:2960
专家分:652
注 册:2007-1-19
收藏
得分:0 
好,先谢谢.
我试试

我的网站 http://www.
2007-03-21 18:41
风月_无边
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:60
帖 子:2960
专家分:652
注 册:2007-1-19
收藏
得分:0 
用你的代码,调试的时候总是出现错误,而且Excel后打点后没有提示,是不是这个对象不能用么
图片附件: 游客没有浏览图片的权限,请 登录注册


我的网站 http://www.
2007-03-21 18:54
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
因为你没有引用Excel对象..我在2楼已经说了要添加引用Excel对象..我不想再说第二次.

我的msn: myfend@
2007-03-21 18:57
风月_无边
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:60
帖 子:2960
专家分:652
注 册:2007-1-19
收藏
得分:0 
大哥,我是菜鸟刚学VB,谢你帮忙.
搞定了!!

我的网站 http://www.
2007-03-21 19:07
honkin
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2007-3-22
收藏
得分:0 

工程\引用\Microsoft Excel......


一切从菜鸟做起!
2007-03-22 10:22
likelytiger
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-3-22
收藏
得分:0 
row = 2

Do
If excel_sheet.Cells(row, 1) = "" Then Exit Do

rs.AddNew
For col = 1 To n
If col > fldCount Then
Exit For
End If

If excel_sheet.Cells(row, col) = Null Then
Exit For
ElseIf excel_sheet.Cells(row, col) = "" Then
Exit For
End If
new_value = Strings.Trim(excel_sheet.Cells(row, col))

rs.Fields(col - 1).Value = new_value
Label3.Caption = "正在导入: " & new_value
Next col
' If row >= ProgressBar1.Max Then
' ProgressBar1.Max = row + 10
' End If

ProgressBar1.Value = row
row = row + 1
rs.Update

Loop

' ProgressBar1.Max = row
' ProgressBar1.Value = ProgressBar1.Max
Label3.Caption = "导入完成!"
excel_app.ActiveWorkbook.Close
excel_app.Quit
Set excel_sheet = Nothing
Set excel_app = Nothing
rs.Close
Set rs = Nothing
Screen.MousePointer = vbDefault
MsgBox "恭喜您,成功导入数据" & CStr(row - 2) & "行!"
ProgressBar1.Visible = False
Label3.Visible = False
Text1.Text = ""
Command1.Enabled = True
Command3.Enabled = True
End If
2007-03-22 20:57
快速回复:vb如何调用Exceel应用程序?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.050672 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved