Trong Add-in A-Tools bạn có thể xuất tập tin trong cloud drive của bạn ra các loại định dạng khác nhau rất dễ dàng bằng giao diện người dùng hoặc bằng lập trình. Bài viết này tôi hướng dẫn các bạn làm bằng hai cách:

Xuất tập tin bằng giao diện

(Lưu ý tính năng xuất tập tin chỉ có từ phiên bản A-Tools v10.0 cập nhật ngày 10-02-2025)

Bước 1: Trong Excel, vào menu "A-Tools" -> "Mở/Connect" rồi chọn loại dịch cloud drive như Google Drive, OneDrive. Bạn cũng có thể dùng cửa sổ "Lưu/Upload" để làm tương tự. Phiên bản A-Tools hiện tại không hỗ trợ trên DropBox. 


Bước 2: Từ màn hình "Mở tập tin trên cloud" hoặc "Lưu tập tin lên cloud" (Cloud Storage Service), nhấp chuột phải chọn "Tải/Download".


Lập trình xuất tập tin trên cloud drive (cách này dành cho người biết lập trình)

Ví dụ sau tôi dùng ngôn ngữ VBA để làm, bạn có thể dùng các ngôn ngữ khác nếu muốn như Delphi, C#, VB.NET, C++,...

Bước 1: vào VBE - ALT+F11 (Visual Basic Editor).

+ Chỉ định Project (dự án) bạn muốn viết code
+ Nhúng tập tin thư viện AddinATools.dll vào dự án: tại cửa sổ VBE, vào menu Tools -> References... Bấm Browse rồi mở folder C:\Windows\SysWow64 nếu là A-Tools 32-bit hoặc C:\Windows\System32 nếu là A-Tools 64-bit.

Bước 2: Vào menu Insert chọn Module (tạo một module mới nếu bạn muốn)
Dán đoạn code dưới đây vào cửa sổ code

Sub Drive_Export() 
   Dim MyCloud As New BSCloud 
   Dim fm As BSCloudFileManager 
   Dim MyFile As BSFileInfo 
   Dim FullName As String 
   Const MyCloudType = ctGoogleDrive  'ctOneDrive
   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 
   Set fm = MyCloud.FileManager 
   'Get source file
   If fm.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 
         fm.Download MyFile, FullName, Application.Hwnd, "pdf" 
      ElseIf MyCloudType = ctGoogleDrive Then 
         'GooogleDrive
         fm.Download MyFile, FullName, Application.Hwnd, "application/pdf" 
      End If 
      Debug.Print FullName 
      MsgBox FullName 
   End If 
lbEnd: 
   If Err <> 0 Then 
      Debug.Print "Error: " & Err.Description 
   End If 
   Set MyCloud = Nothing 
End Sub 

Xem mã nguồn và các ví dụ tại file nguồn: "C:\A-Tools\HELP & DEMOS\A-Tools VBA Programming\Cloud\Write data to GoogleSheets_ExcelOnline.xlsm"

Ví dụ code trên tôi dùng hàm BSCloudFileManager.Download() và giá trị định dạng cho tham số "ExportFormat" để xuất tập tin. Ví dụ nếu xuất PDF: Nếu cloud drive là OneDrive thì giá trị là "pdf" nếu Google Drive giá trị là "application/pdf".

Bạn có thể xuất ra các loại định dạng khác nhau, các giá trị của ExportFormat quy định như sau:

Nếu là OneDrive ExportFormat là:

"pdf" nếu tập tin nguồn là các dạng csv, doc, docx, odp, ods, odt, pot, potm, potx, pps, ppsx, ppsxm, ppt, pptm, pptx, rtf, xls, xlsx
"html" nếu tập tin nguồn là các dạng loop, fluid, wbtx

Nếu là Google Drive ExportFormat là:

Giá trị MIME Type của tập tin chính là loại định dạng mà bạn muốn xuất ra. Bạn hãy tham khảo khảo tại đây developers.google.com/drive/api/guides/ref-export-formats?hl=en

Nếu bạn muốn học lập trình VBA từ cơ bản đến nâng cao của tác giả Nguyễn Duy Tuân hãy tham khảo các khóa học lập trình VBA tại đây.

Download Add-in A-Tools để dùng các hàm và các công cụ tuyệt với trong Excel.