如何在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:
?????

...全文

129 3 打赏收藏举报

写回复

3 条回复

切换为时间正序

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

发表回复

superzxf 2001-08-10

AppExcel.Visible=True

打赏
举报

回复赞

zwq78 2001-08-10

thanks for superzxf

打赏
举报

回复赞

lanren_me 2001-08-10

shell

打赏
举报

回复赞

相关推荐

Private appExcel As Excel.Application Private shtExcel As Workbook Private Sub cmdOpen_Click() Dim lsFile As String lsFile = "d:\book2.xls" On Error Resume Next '忽略错误 Set appExcel = GetObject(, "Excel.Application") 'Excel 没有被运行 Set appExcel = CreateO

vb用getobject函数打开excel进程能否让excel置顶显示？代码如下： On Error Resume Next Set appexcel = GetObject(, "Excel.application") If appexcel is nothing Then Set appexcel = CreateObject("excel.application") appexcel.Visible = True Set exwbook = appexcel.Workbooks.Add

Dim Excel As New Excel.Application Dim ExcelWBk As Workbook Dim ExcelWS As Worksheet '创建Excel应用程序实例 On Error Resume Next Set Excel = GetObject(, "Excel.Application") If Err <> 0 Then Set Excel = CreateObject("Excel.Application") End If '打开工作簿 If IsNu

'下面的代码在有的微机中能顺利执行，没有错误 '但在有的微机中就出错，不知什么原因，请高手指教 Dim WSheet As Worksheet Dim WBook As Workbook Dim AppExcel As Object On Error GoTo CW Set AppExcel = CreateObject("excel.application") Set WBook = AppExcel.Workbooks.Add '运行到此句就出错， '显示“自动化错误” Set WSheet

'下面的代码在有的微机中能顺利执行，没有错误 '但在有的微机中就出错，不知什么原因，请高手指教 Dim WSheet As Worksheet Dim WBook As Workbook Dim AppExcel As Object On Error GoTo CW Set AppExcel = CreateObject("excel.application") Set WBook = AppExcel.Workbooks.Add '运行到此句就出错， '显示“自动化错误” Set WSheet

发帖

加入

7606

社区成员

19.7w+

社区内容

VB 基础类

社区管理员

申请成为版主

帖子事件

创建了帖子

2001-08-10 12:22

社区公告

暂无公告