[求助]VB打开excel,有密码验证,命令无法继续执行
excel有vba代码,在打开时会出现一个登录框,要输账号和密码,我现在想打开这个excel并自动输入账号密码,但是现在代码会卡在打开excel这一行,不会执行Call这行,自己输入账号和密码后又会继续执行之后的代码,这是由于什么原因,有没有比较简单的解决方法()程序代码:
Private Sub Command3_Click() Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlbook = xlapp.Workbooks.Open("C:\检验软件\" & Text7.Text & "\1.xls") '打开设备 xlapp.Visible = True '设置EXCEL对象可见 Set xlsheet = xlbook.Worksheets("检验记录") '设置活动工作表 Call sign xlsheet.Cells(7, 2) = 2008 Sleep 1000 Set xlsheet = xlbook.Worksheets("检验主要设备仪器") '设置活动工作表 xlsheet.Cells(7, 2) = 1111 Sleep 1000 xlapp.Quit '结束EXCEL对象'xlapp.Workbooks.Close Set xlapp = Nothing '释放xlApp对象 End Sub