如何在vb中引用Excel时将Excel调到前台运行

zwq78 2001-08-10 12:22:40

这是在vb中将Excel表中数据导入到数据库中，先对文件进行检查，如有错，则将Excel表调到前台，并提示某sheet,某行有错：
Dim AppExcel As Object
Dim wBook As Workbook

If AppExcel Is Nothing Then
Set AppExcel = CreateObject("Excel.Application")
Else
Set AppExcel = GetObject(, "Excel.Application")
End If

Set wBook = Workbooks.Open(strFilePath)
errhandle:
?????

...全文

134 3 打赏收藏举报

写回复

3 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

superzxf 2001-08-10

AppExcel.Visible=True

打赏
举报

回复赞

zwq78 2001-08-10

thanks for superzxf

打赏
举报

回复赞

lanren_me 2001-08-10

shell

打赏
举报

回复赞

相关推荐

修改为下面这种即可：先把对应的Excel或者word的引用去掉 Dim ExcelApp As Object Dim Book As Object Dim ws As Object Set ExcelApp = CreateObject("Excel.Application") Set ws = ExcelApp.

如何判断Excel进程是否存在？如果存在则关闭Excel进程。 SystemUtil.CloseProcessByName "excel.exe" On error resume next Dim Obj Set Obj = GetObject(,"Excel.Application") If Not Obj Is Nothing Then

Function MakeVBR(vbrBook As String)

    Dim xlApp As Excel.Application
    Set xlApp = New Excel.Application

    xlApp.Visible = True
    Dim xlBook As Workbook
    Set xlBook = xlApp.Workbooks.Open(vbrBoo

全面控制 Excel 首先创建 Excel 对象，使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application 1) 显示当前窗口： ExcelID.Visible := True; 2) 更改 Excel 标题栏： ExcelID.Caption := '应用程序...

发帖

7617

社区成员

19.7w+

社区内容

VB 基础类

社区管理员

加入社区

帖子事件

创建了帖子

2001-08-10 12:22

社区公告

暂无公告