VB打开excel，有密码验证，命令无法继续执行

来源：互联网发布：域名再长狼也能记住编辑：程序博客网时间：2024/06/04 18:02

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

0 0