Truy Cập Dữ Liệu Trong File Excel Đã Đặt Mật Khẩu (2 người xem)

[master90x]

Chào các bác trên GPE. Chả là việc truy cập lấy thông tin từ 1 file excel khác thì cũng có nhiều hướng dẫn nhưng với file có mật khẩu thì em chưa biết phải code VBA như thế nào để nó mở cho mình lấy dữ liệu. (Em có pass). Thanks các bác chỉ giáo

Đưới đây là đoạn code để đọc file. Tks các bác.

Sub Insert_Data()

Dim Path As String
Dim Dir As String
Dim i As Integer
Dim rg As String

Dir = "c:/data\"
Path = Dir & "ma" & Format(1, "0000") & ".xlsx"
' mở file
Workbooks.Open Filename::path
' chọn cell d7
Range("d7").Select

Selection.Copy

ActiveWorkbook.Close

rg = "A" & i
Range(rg).Select

ActiveSheet.Paste

End Sub

 

[giaiphap]

Chào các bác trên GPE. Chả là việc truy cập lấy thông tin từ 1 file excel khác thì cũng có nhiều hướng dẫn nhưng với file có mật khẩu thì em chưa biết phải code VBA như thế nào để nó mở cho mình lấy dữ liệu. (Em có pass). Thanks các bác chỉ giáo

Đưới đây là đoạn code để đọc file. Tks các bác.

Sub Insert_Data()

Dim Path As String
Dim Dir As String
Dim i As Integer
Dim rg As String

Dir = "c:/data\"
Path = Dir & "ma" & Format(1, "0000") & ".xlsx"
' mở file
Workbooks.Open Filename::path
' chọn cell d7
Range("d7").Select

Selection.Copy

ActiveWorkbook.Close

rg = "A" & i
Range(rg).Select

ActiveSheet.Paste

End Sub

Bạn xem thử chổ này.
https://www.mrexcel.com/forum/excel-questions/337942-vba-open-password-protected-file.html

 

[master90x]

Bạn xem thử chổ này.
https://www.mrexcel.com/forum/excel-questions/337942-vba-open-password-protected-file.html

Thanks bác. Để em thử.