Sub FindFileOpen() On Error Resume Next MsgBox "请选择要打开的文件", vbOKOnly + vbInformation, "打开文件" If Not Application.FindFile Then MsgBox "文件未找到", vbOKOnly + vbInformation, "打开失败" End If End Sub
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
第3个回答 推荐于2016-01-12
Set wk = Workbooks.Open(Filename:="成绩.xls", Password:=123456) ThisWorkbook.Sheets(1).[A1] = wk.Sheets(1).Range("A1").Value本回答被提问者采纳