VB打开带密码的Microsoft Excel 工作表 出错，如果不设密码就不出错，请高手帮帮忙，改一下代码。
Private Sub Label8_Click()
Dim X As Excel.Application
Dim Y As Excel.Workbook
Dim z As Excel.Worksheet
Set X = CreateObject("Excel.Application")
X.Visible = True

Set Y = X.Workbooks.Open(App.Path & "\dat\ltj\123.xls")
End Sub


[ 本帖最后由 事业男儿 于 2012-4-16 11:09 编辑 ]

没有看懂，你直接指出我哪儿的代码错了，或者该在哪儿添加什么代码？谢谢！