我有两个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
On Error Resume Next
MsgBox "请选择要打开的文件", vbOKOnly + vbInformation, "打开文件"
If Not Application.FindFile Then
MsgBox "文件未找到", vbOKOnly + vbInformation, "打开失败"
End If
End Sub
用最简单，最简短的VB命令打开一个文件，请参照！
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2016-05-29
excel VBA中的打开命令中有密码的字段，例如：
workbooks.open filename:="myworkbook.xls", password:="abcd"
把密码输在“abcd"的位置就行了。
workbooks.open filename:="myworkbook.xls", password:="abcd"
把密码输在“abcd"的位置就行了。
第2个回答 2010-08-28
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
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本回答被提问者采纳
ThisWorkbook.Sheets(1).[A1] = wk.Sheets(1).Range("A1").Value本回答被提问者采纳
