Bạn đã biết cách mở file Excel trong VBA? Nếu câu trả lời là “chưa”, hãy tham khảo ngay bài viết này của NIIT-ICT Hà Nội.
Mở file Excel trong VBA bằng Open workbook
Dưới đây là 3 cách mở file Excel trong VBA bằng Open workbook khá đơn giản và không mất quá nhiều thời gian của bạn:
-
Mở file Excel và không lưu thay đổi
-
Mở file Excel và lưu thay đổi
-
Mở file Excel trong VBA với chế độ chỉ đọc
Ví dụ 1: Mở file Excel và không lưu thay đổi
Sub openExcelFileExample1()
Dim wb As Workbook
' open excel file
Set wb = Workbooks.Open("D:\test\Sample.xlsx")
' read file
' close excel file without save changes
wb.Close SaveChanges:=False
End Sub
Ví dụ 2: Mở file Excel và lưu thay đổi
Sub openExcelFileExample2()
Dim wb As Workbook
Dim ws As Worksheet
' open excel file
Set wb = Workbooks.Open(Filename:="D:\test\Sample.xlsx")
' set ws to sheet1 of wb
Set ws = wb.Worksheets(1)
' fill data to column "A1"
ws.Cells(1, 1) = "Hello VBA!"
' close excel file with save changes
wb.Close SaveChanges:=True
End Sub
Ví dụ 3: Mở file Excel trong VBA với chế độ chỉ đọc
Sub openExcelFileExample3()
Dim wb As Workbook
Dim ws As Worksheet
' open excel file
Set wb = Workbooks.Open(Filename:="D:\test\Sample.xlsx", ReadOnly:=True)
' read file
' write file
' set ws to sheet1 of wb
Set ws = wb.Worksheets(1)
' fill data to column "A1"
ws.Cells(1, 1) = "Hello VBA!"
' close excel file without save changes
wb.Close SaveChanges:=False
End Sub
Ví dụ 4: VBA mở file Excel
Khi đã biết đường dẫn của một file nằm trên máy tính, bạn có thể mở lên bằng lệnh Open. Sẽ không cần chỉ định đường dẫn đầy đủ nếu file nằm trong thư mục lưu mặc định.
1. Lưu file sales.xlsxt nằm trong thư mục lưu của Excel nên sẽ không chỉ rõ path:
Workbooks.Open ("sales.xlsx")
2. Sử dụng phương thức GetOpenFilename để kích hoạt hộp thoại mở file.
Dim MyFile As String
MyFile = Application.GetOpenFilename()
Chọn file cần mở => nhấn Open
Nguồn: Freetuts
Tuy nhiên, bạn cần kết hợp với phương thức Open để mở file, bởi vì, phương thức GetOpenFilename không trực tiếp mở file đó mà nó chỉ mở hộp thoại Open File.
Dim MyFile As String
MyFile = Application.GetOpenFilename()
Workbooks.Open (MyFile)
Kết luận: Trên đây là cách dùng VBA mở file Excel đơn giản mà NIIT-ICT muốn chia sẻ với bạn. Đừng quên truy cập website https://niithanoi.edu.vn/ thường xuyên để cập nhật thông tin hữu ích khác nhé!