社区
VB基础类
帖子详情
如何在VB中,调用Excel.Application对象
shenhong
2000-07-17 01:21:00
我要在VB中调用Excel对象,如何调用?
...全文
856
4
打赏
收藏
如何在VB中,调用Excel.Application对象
我要在VB中调用Excel对象,如何调用?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
shenhong
2000-07-19
打赏
举报
回复
谢谢各位帮助,让我消化一下。
zhangshzh
2000-07-18
打赏
举报
回复
我将bluewater大虾给我的一个例子转给你,希望对你有所帮助:
调用Excel 97
使用Excel Sheet对象的技术可以处理可变数量的数据,并将结果最后送到你的Visual Basic 应用程序中。例子如下:
新建一个工程并在新建的窗体上放置两个TextBox控件和一个CommandButton控件及六个Label控件。
程序代码如下:
Option Explicit
Private Sub Command1-Click()
Dim xObject As Object
′调用Excel 97
Set xObject = CreateObject(“Excel.Sheet")
Set xObject = xObject.Application.ActiveWorkbook.ActiveSheet
xObject.Range(“A1").Value = Text1.Text ′将数值送入Excel 97的A1单元格
xObject.Range(“A2").Value = Text2.Text ′将数值送入Excel 97的A2单元格
xObject.Range(“A3").Formula = “=MAX(A1,A2)" ′将最大值送入A3单元格
xObject.Range(“A4").Formula = “=ATAN(A1/A2)*180/PI()" ′将反正切值送入A4单元格
′显示计算的结果
Label1.Caption = xObject.Range(“A3").Value
Label2.Caption = xObject.Range(“A4").Value
Set xObject = Nothing
End Sub
Private Sub Form_Load()
Text1.Text = “"
Text2.Text = “"
Label1.Caption = “"
Label2.Caption = “"
End Sub
该程序的作用是:首先在两个文本框(Text1和Text2)输入数值并分别将输入的数值送入Excel 97的“A1”和“A2”单元格中,然后用Excel 97中的“Max()”函数将计算的结果送入“A3” 单元格中;用反正切函数“ATAN()”进行计算并将结果送入“A4” 单元格中,最后输出。
zzh
2000-07-17
打赏
举报
回复
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
这样你就可以引用xlApp来操作EXCEL对象了。当然,在这之前,你必须在工程中包括EXCEL的引用。在使用完后,记得释放掉。
Mike
2000-07-17
打赏
举报
回复
你可采用如下方式:
Dim pBook As Object
Dim pSheet As Object
Set pBook = GetObject(ExeclFile)
pBook.Application.Visible = True
pBook.Windows(1).Visible = True
Set pSheet = pBook.Sheets(ExcelSheet)
pSheet.Cells(intRowValue, intColumnValue) = strValue
pBook.SaveAs SaveFileName
pSheet.PrintOut
pBook.Application.DisplayAlerts = False
pBook.Application.Quit
Set pSheet = Nothing
Set pBook = Nothing
VB
调用
EXCEL
方法大全
VB
调用
EXCEL
方法大全在
VB
中
要想
调用
Excel
,需要打开
VB
编程环境“工程”菜单
中
的“引用”项目,并选取项目
中
的“Microsoft
Excel
11.0 object library”项。由于你的
Excel
版本不同,所以这个选项的版本号也是不同的。 因为
EXCEL
是以层次结构组织
对象
的,其
对象
模型
中
含有许多不同的
对象
元素。 第一层:
Application
对象
,即
Excel
本身; 第二层:workbooks
对象
集,指
Excel
的工作簿文件 第三层:worksheets
对象
集,表示的是
Excel
的一个工作表; 第四层:Cells和Range
对象
,指向
Excel
工作表
中
的单元格。 新建立一个
VB
的工程,先放一个button,名称为
Excel
_Out。先定义好各层: Dim xlapp As
Excel
.
Application
'
Excel
对象
Dim xlbook As
Excel
.Workbook '工作簿 Dim xlsheet As
Excel
.Worksheet '工作表
VB
中
使用
Excel
详解
在
VB
应用程序
中
调用
Excel
,实质是将
Excel
作为一个外部
对象
来引用,由
Excel
对象
模型提供能从
VB
应用程序内部来程序化操纵的
对象
以及相关的属性、方法和事件。 1、在
VB
工程
中
添加对
Excel
类型库的引用 为了能从
VB
应用程序
中
访问
Excel
丰富的内部资源,使
Excel
应用程序运行得更快,需要在
VB
工程
中
添加对
Excel
类型库的引用。具体步骤如下: a)从
VB
5“工程”菜单
中
选择“引用”; b) 在“引用”对话框
中
选择
Excel
类型库:"Microsoft
Excel
9.0 Object Library"; c)单击左边小方框,使之出现“√”符号; d)按“确定”退出。 注:要想在
VB
应用程序
中
调用
Excel
,你的计算机系统
中
必须安装
Excel
。 2、引用
Application
对象
C#操作
Excel
所需DLL库
C#操作
Excel
所必须的DLL库文件。可以在VS2010下使用。编程语言为C#.具体包含一下三个文件: Interop.
Excel
.dll Interop.Microsoft.Office.Core.dll Interop.
VB
IDE.dll
用
VB
操作
Excel
用
VB
操作
Excel
首先创建
Excel
对象
,使用ComObj: Dim
Excel
ID as
Excel
.
Application
Set
Excel
ID as new
Excel
.
Application
1)显示当前窗口:
Excel
ID.Visible:=True; 2)更改
Excel
标题栏:
Excel
ID.Caption:='应用程序
调用
Microsoft
Excel
';
delphi对
Excel
添加宏并运行
delphi对
Excel
添加宏并运行 implementation uses
VB
IDE2000; {$R *.dfm} ... F
Excel
Application
.Visible[0] := True; F
Excel
Application
.Run('MyMacro');
VB基础类
7,762
社区成员
197,608
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章