用VBA代码打开其他excel工作簿(有打开密码的)???

Posted 2023-03-16

我有两个excel文件,其中一个名为:统计.xls,另一个是:成绩.xls(这个有打开密码为:123456),请问在统计.xls用VBA代码打开成绩.xls文件并将A1单元格赋值给统计.xls工作表中的A1?

注:成绩.xls是设有打开密码123456

Sub FindFileOpen()
On Error Resume Next
MsgBox "请选择要打开的文件", vbOKOnly + vbInformation, "打开文件"
If Not Application.FindFile Then
MsgBox "文件未找到", vbOKOnly + vbInformation, "打开失败"
End If
End Sub

用最简单，最简短的VB命令打开一个文件，请参照！

参考技术A excel VBA中的打开命令中有密码的字段，例如：
workbooks.open filename:="myworkbook.xls", password:="abcd"
把密码输在“abcd"的位置就行了。 参考技术B Sub ddd()
Dim path1 As String
path1 = "D:\成绩.xls"
Workbooks.Open path1, , True, , 123456
Workbooks("统计.xls").Worksheets("sheet1").Range("A1") = Workbooks("成绩.xls").Worksheets("sheet1").Range("A1")
End Sub 参考技术C Set wk = Workbooks.Open(Filename:="成绩.xls", Password:=123456)
ThisWorkbook.Sheets(1).[A1] = wk.Sheets(1).Range("A1").Value本回答被提问者采纳