如何用VB打开设有密码的EXCEL文件

有一EXCEL文件，设有密码，我想用VB程序打开这个EXCEL文件，并对里面的数据进行操作，假设EXCEL文件放置在D:\abc.xls，密码是445566，怎么打开呢，... 有一EXCEL文件，设有密码，我想用VB程序打开这个EXCEL文件，并对里面的数据进行操作，假设EXCEL文件放置在D:\abc.xls，密码是445566，怎么打开呢，并且打开过程始终不可见，具体一点，本人刚学VB。谢谢！展开

 我来答

2个回答

#热议# 上班途中天气原因受伤算工伤吗？

gf_b_d
2012-01-12 · TA获得超过439个赞

知道小有建树答主

回答量：701

采纳率：0%

帮助的人：557万

我也去答题访问个人页

关注

展开全部

'在工程中添加对Excel的引用
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook

Private Sub Command1_Click()

    Set xlsApp = Excel.Application
    xlsApp.Visible = True
    Set xlsBook = xlsApp.Workbooks.Open(App.Path & "\sjk.xls")

    xlsApp.Sheets(1).Cells(1, 2) = "=a1"

    xlsBook.Close (True)
    xlsApp.Quit
    Set xlsApp = Nothing
    MsgBox "数据写入成功！"
End Sub

本回答被提问者采纳

已赞过已踩过<

你对这个回答的评价是？
评论收起