Download tập tin từ drive không xuất hiện hộp thoại

Nếu bạn đã có FileID của tập tin trên drive/cloud và chỉ định đường dẫn lưu tập tin thì thực hiện ví dụ sau:

Sub Drive_Download_Basic() 
   Dim MyCloud As New BSCloud 
   Dim MyFile As Variant 
   Dim TargetFile As String 
   On Error GoTo lbEnd 
   If Not MyCloud.Connected(MyCloudType) Then 
      If Not MyCloud.OpenAuthor(Application, MyCloudType, Application.Hwnd) Then Exit Sub 
   End If 
   MyFile = "1gQozQR-UWUWLFspy_j5iztFXIrCn0I_0" 
   TargetFile = "C:\Users\ADMIN\Downloads\A-Tools.mdb" 
   If MyCloud.FileManager.Download(MyFile, TargetFile, Application.Hwnd) Then 
      Debug.Print TargetFile 
      MsgBoxW TargetFile, VbMsgBoxStyle.vbInformation, , strUNICODE 
   End If 
lbEnd: 
   If Err <> 0 Then 
      Debug.Print "Error: " & Err.Description 
   End If 
   Set MyCloud = Nothing 
End Sub 

Để ý ví dụ trên bạn thấy biến MyFile bây giờ tôi khai báo kiểu String để nhận FileID thay vì BSFIleInfo ở ví du trước đó.

Xuất/Export tập tin ra các định dạng

Xuất dữ liệu chỉ thực hiện với loại cloud là Google Drive, OneDrive.

'(*) Export support for Google Drive and OneDrive only!
'Để xuất định dạng file, sử dụng tham số ExportFormat trong hàm Download()
'Giá trị của tham số ExportFormat phụ thuộc vào loại drive/cloud (CloudType).
'Nếu DriveType/CloudType là
' + OneDrive:
' ExportFormat là "PDF" nếu ddingj dạng tập tin nguồn là: csv, doc, docx, odp, ods, odt, pot, potm, potx, pps, ppsx, ppsxm, ppt, pptm, pptx, rtf, xls, xlsx
' ExportFormat là "html" nếu định dạng tập tin nguồn là: loop, fluid, wbtx
'
' + GoogleDrive:
' ExportFormat là giá trị của MIME Type. Xem thông tị tại đây: https://developers.google.com/drive/api/guides/ref-export-formats?hl=en
' Ví dụ nếu xuất ra tập tin PDF thì tham số ExportFormat là "application/pdf" 
Sub Drive_Export() 
   Dim MyCloud As New BSCloud 
   Dim MyFile As BSFileInfo 
   Dim FullName As String 
   If MyCloudType = ctDropBox Then 
      MsgBox "This drive not support Export().", vbCritical 
      Exit Sub 
   End If 
   On Error GoTo lbEnd 
   If Not MyCloud.Connected(MyCloudType) Then 
      If Not MyCloud.OpenAuthor(Application, MyCloudType, Application.Hwnd) Then Exit Sub 
   End If 
   'Get source file
   If MyCloud.FileManager.OpenFileDialog(MyFile, atUnknown, , , , Application.Hwnd) Then 
      'If "FullName" is empty, function Download opens the "Save" dialog box for you to enter the file name and path.
      'OneDrive
      If MyCloudType = ctOneDrive Then 
         MyCloud.FileManager.Download MyFile, FullName, Application.Hwnd, "pdf" 
      ElseIf MyCloudType = ctGoogleDrive Then 
         'GooogleDrive
         MyCloud.FileManager.Download MyFile, FullName, Application.Hwnd, "application/pdf" 
      End If 
      Debug.Print FullName 
      MsgBoxW FullName, VbMsgBoxStyle.vbInformation, , strUNICODE 
   End If 
lbEnd: 
   If Err <> 0 Then 
      Debug.Print "Error: " & Err.Description 
   End If 
   Set MyCloud = Nothing 
End Sub