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

[zwq78]

这是在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:
?????

[lanren_me]

shell

[zwq78]

thanks for superzxf

[superzxf]

AppExcel.Visible=True