Question

VB 打开Excel 提示 对象 “Open” 方法“workbook” 失败

Public mobjExcel As Excel.Application
Public xlsheet As Excel.Worksheet

Public Sub OpenExcel()
On Error GoTo err
Dim FilePitch As String
Dim FileRoll As String
Dim pWnd As Long
FilePitch = Main.Filename.Caption '

Set mobjExcel = Nothing
Set mobjExcel = CreateObject("Excel.Application")
mobjExcel.Workbooks.Open FilePitch, False, True

mobjExcel.DisplayAlerts = False
mobjExcel.AlertBeforeOverwriting = False
mobjExcel.Visible = True

Exit Sub
err:
MsgBox err.Description

Answer 1

在excel的VBA下测试正常，看您的 Main.Filename.Caption 是否是合法的文件名路径。
还有，这个文件是否已经被打开，是否存在。
引用的excel库是否还正常。

追问

VB中excel库显示是正常的，在别的电脑是能打开的，任务管理中显示有execel 文件被打开 但是报错

Answer 2

你的过程是写在通用模块里的吧？那么
Main.Filename.Caption
没有意义，你需要由参数传入文件名字。比如：
Public Sub OpenExcel(fileName as string)

FilePitch = fileName

追问

main 是窗体， filename 是lable，在别的电脑是能打开的，任务管理中显示有execel 文件被打开 但是报错

追答

如果你的函数 OpenExcel 是写在窗体模块是没问题的。
既然别的电脑上没问题，那可能是你的OFFICE版本问题。好像07后的版本是不行的。

Answer 3

调试跟踪一下你的FilePitch变量值，是否对应有Excel文件