Một số thao tác với Books và Sheets

Khi làm việc với file Excel bạn có thể phải làm việc với nhiều file Excel khác nhau. Đây là một số code thông dụng giúp bạn thực hiện các thao tác: Mờ file, đọc file, đóng file.

1. Hiện thông báo tên các workbooks đang mở

   For Each a In Workbooks
    MsgBox a.Name
   Next

2. Hiện thị đường dẫn của file workbook

   MsgBox Workbooks("Book1.xlsx").Path
   MsgBox ActiveWorkbook.Path

3. Hiện  thị tên file cùng đường dẫn

   MsgBox ActiveWorkbook.FullName

4. Đóng workbooks

   Workbooks("book1.xlsx").Close
   Workbooks.Close

5. Mở file

   Workbooks.Open ("sales.xls")

6. Mở file thông qua hộp thoại

   Dim MyFile As String
   MyFile = Application.GetOpenFilename()
   Workbooks.Open (MyFile)

7. Mở và lưu file

   Dim a As Workbook
   Set a = Workbooks.Open("C:\test\book1.xlsx")
   a.Save
   a.Close

   Một số trường hợp file book1.xlsx đã được mở từ trước khi chạy chương trình sẽ báo lỗi để khăc phục tình trạng này ta có thể mở file với thuộc tính readonly
   Đoạn mã sẽ được sửa lại như sau:

   Dim a As Workbook
   Set a = Workbooks.Open("C:\test\book1.xlsx", ReadOnly:=True)
   a.Save
   a.Close

8. Mở và đọc các file trong một thư mục

   Dim directory As String, fileName As String, sheet As Worksheet, total As Integer
   Application.ScreenUpdating = False
   Set a = ActiveWorkbook
   i = 1
   Application.DisplayAlerts = False
   directory = "c:\test\"
   fileName = Dir(directory & "*.xl??")
   Do While fileName <> ""
   Workbooks.Open (directory & fileName)
   a.Sheets(2).Cells(i, 1) = fileName
   i = i + 1
   Workbooks(fileName).Close
   fileName = Dir()
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
   Loop

   Dòng fileName = Dir(directory & “*.xl??”) có tác dung tìm tất cả các file có phần mở rộng là xl..
   Dòng fileName = Dir() để mở file tiếp theo trong thư mục

Comments

comments