Mở file Excel có password bVB6

[truongtct]

Chào anh chị, em có một trường hợp như sau: em dùng VB6 gọi file Excel nhưng file này có password nên em không biết cách nào send password vào để mở file cả. Bởi thế em ko thể nào open được file.
Anh Chị nào biết cách hướng dẫn em với nhé!
Thanks,

 

[ndu96081631]

Chào anh chị, em có một trường hợp như sau: em dùng VB6 gọi file Excel nhưng file này có password nên em không biết cách nào send password vào để mở file cả. Bởi thế em ko thể nào open được file.
Anh Chị nào biết cách hướng dẫn em với nhé!
Thanks,

Thử code này xem:

Private Sub Form_Load()
  With CreateObject("Excel.Application")
    .Visible = True
    .Workbooks.Open "Đường dẩn tới file Excel", , , , 1234
  End With
End Sub

Ví dụ:

Private Sub Form_Load()
  With CreateObject("Excel.Application")
    .Visible = True
    .Workbooks.Open "D:\Test.xls", , , , 1234
  End With
End Sub

Với 1234 là Password