Nội dung chính
Như chúng ta đã biết, tính năng Save As của Microsoft Excel có thể lưu trang tính đang hoạt động dưới dạng tệp PDF, CSV,... Nhưng làm thế nào để lưu toàn bộ sổ làm việc dưới dạng tệp PDF trong Excel? Và điều gì sẽ xảy ra nếu bạn muốn lưu nhiều tệp Excel đồng thới dưới dạng cách fiel PDF riêng biệt? Còn thao tác để chuyển file excel sang CSV và ngược lại thì như thế nào?
Trong bài viết này, chúng ta sẽ tìm hiểu cách chuyển đổi hàng loạt file excel sang PDF, CSV,... và ngược lại.
Chúng ta có thể chuyển đổi một tệp Excel sang tệp PDF với tính năng Save As trong Excel. Bạn có thể làm như sau:
1. Mở tệp Excel và nhấp vào File (hoặc nút Office) > Save As.
2. Trong hộp thoại Opening Save As, bạn cần:
3. Trong hộp thoại Options, vui lòng check vào tùy chọn All và Entire workbook , sau đó nhấp vào nút OK .
4. Nhấp vào nút Save trong hộp thoại Save As .
Như vậy, bản tính excel của bạn đã được lưu dưới dạng tệp PDF và được lưu trong thư mục được chỉ định.
Trong Excel, chúng ta có thể chuyển đổi sổ làm việc thành tệp CSV bằng chức năng Save as, nhưng bạn có thể biết cách chuyển đổi hàng loạt nhiều tệp Excel thành các tệp CSV riêng biệt không? Trong bài viết này, tôi giới thiệu mã VBA để chuyển đổi hàng loạt tất cả các tệp Excel trong một thư mục sang tệp CSV trong Excel.
Để chuyển đồi hàng loạt file excel của một thư mục thành tệp CSV, bạn vui lòng thực hiện các bước sau:
1. Bật Excel và nhấn các phím Alt + F11 để mở cửa sổ Microsoft Visual Basic for Applications .
2. Nhấp vào Insert > Module để tạo một Module mới.
3. Sao chép mã bên dưới và dán chúng vào cửa sổ Module mới.
VBA: Chuyển đổi hàng loạt tệp Excel sang CSV
Sub WorkbooksSaveAsCsvToFolder()'UpdatebyExtendoffice20181031Dim xObjWB As WorkbookDim xObjWS As WorksheetDim xStrEFPath As StringDim xStrEFFile As StringDim xObjFD As FileDialogDim xObjSFD As FileDialogDim xStrSPath As StringDim xStrCSVFName As StringApplication.ScreenUpdating = FalseApplication.EnableEvents = FalseApplication.Calculation = xlCalculationManualOn Error Resume NextSet xObjFD = Application.FileDialog(msoFileDialogFolderPicker)xObjFD.AllowMultiSelect = FalsexObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"If xObjFD.Show <> -1 Then Exit SubxStrEFPath = xObjFD.SelectedItems(1) & "\"Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)xObjSFD.AllowMultiSelect = FalsexObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"If xObjSFD.Show <> -1 Then Exit SubxStrSPath = xObjSFD.SelectedItems(1) & "\"xStrEFFile = Dir(xStrEFPath & "*.xls*")Do While xStrEFFile <> ""Set xObjWB = Workbooks.Open(Filename:=xStrEFPath & xStrEFFile)xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSVxObjWB.Close savechanges:=FalsexStrEFFile = DirLoopApplication.Calculation = xlCalculationAutomaticApplication.EnableEvents = TrueApplication.ScreenUpdating = TrueEnd Sub
4. Nhấn phím F5 , chọn thư mục chứa các tệp Excel bạn muốn chuyển đổi sang tệp CSV trong hộp thoại bật lên đầu tiên.
Sub CSVtoXLS() |
3. Trong hộp thoại bật ra, chọn thư mục được chỉ định chứa các tệp CSV bạn muốn chuyển đổi.
4. Nhấp vào OK , tất cả các tệp CSV trong thư mục đã chọn đã được chuyển đổi thành tệp XLS.
Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xCSVFile = Dir(xSPath & "*.csv")
Do While xCSVFile <> ""
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
ActiveWorkbook.Close
Windows(xWsheet).Activate
xCSVFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
Hy vọng với bài viết này, bạn đã biết cách chuyển đổi hàng loạt các tệp excel sang định dạng PDF và CSV và ngược lại. Bên cạnh đó, để không bỏ lỡ những mẹo và thủ thuật tin học văn phòng hữu ích khác, hay tham gi Gitiho ngay hôm nay.