谁知道怎样在VB调用已经存在的EXCEL表格,其余的操作就完全在EXCEL中完成知道的朋友给一个实例!拜托了

 我来答
0871love
2008-05-23 · TA获得超过3518个赞
知道大有可为答主
回答量:1418
采纳率:50%
帮助的人:1609万
展开全部
方法一:
用 OLE 控件试试?

方法二:
用API函数,直接打开Excel文件
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As _
String, ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long

Function StartDoc(DocName As String) As Long
Dim Scr_hDC As Long

Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Open", DocName, "", App.Path, 1)
End Function

调用 方法:
StartDoc "C:\1.xls"

路径你可以用一个公共对话框获取
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
lxz1969
2008-05-23 · TA获得超过1.1万个赞
知道大有可为答主
回答量:8524
采纳率:33%
帮助的人:1.1亿
展开全部
先在工程--引用中选中microsoft excel,然后用下列代码可以打开电子表格文件:
Dim mxlApp As Excel.Application
Dim mxlBook As Excel.Workbook
Dim mxlSheet As Object
Dim sSource As String

Set mxlApp = New Excel.Application
Set mxlApp = CreateObject("Excel.Application")
sSource = "路径及文件名"
mxlApp.Visible = True
Set mxlBook = mxlApp.Workbooks.Open(sSource)
Set mxlSheet = mxlBook.Worksheets(1)
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式