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

前端之家收集整理的这篇文章主要介绍了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

猜你在找的VB相关文章