Vba del và add sheet mới
Bạn có thể sử dụng Workbooks.Add để tạo file excel trong VBA. Ví dụ 1: tạo mới excel file và lưu thành file "test1.xlsx" tại thư mục hiện tại. Ví dụ 2: tạo workbook mới và lưu thành file "test2.xlsx" với định dạng "xlOpenXMLWorkbook" (.xlsx) tại thư mục hiện tại. Sub addExcelFileExample2() Dim wb As Workbook Dim ws As Worksheet Dim currentPath As String currentPath = Application.ActiveWorkbook.Path ' add excel file Set wb = Workbooks.Add ' set ws to sheet1 of wb Set ws = wb.Worksheets(1) ' fill data to column "A1" ws.Cells(1, 1) = "Hello VBA!" ' save file With wb .SaveAs Filename:=currentPath & "\" & "test2.xlsx", _ FileFormat:=xlOpenXMLWorkbook .Close SaveChanges:=True End With End Sub Nội dung chính
Trong bài viết này, Gitiho.com sẽ hướng dẫn các bạn cách thêm, insert nhiều Sheet trong Excel chỉ với 1 lần thao tác với Code VBA một cách nhanh chóng và hiệu quả nhất Hướng dẫn cách thêm 1 lần nhiều Sheet trong Excel với Code VBAĐôi khi trong công việc chúng ta cần thực hiện insert, thêm 1 lần với nhiều Sheet thay vì phải mỗi lần chỉ được insert 1 sheet như cách làm thủ công. Bài viết này sẽ đưa ra giải pháp để cho bạn có thể xử lý được yêu cầu đó với VBA Gợi ý khóa học dành riêng cho bạnGợi ý khóa học dành riêng cho bạnMở trình soạn thảo VBAYêu cầu trên được xử lý bằng VBA, nên trước tiên nếu như bạn chưa mở trình soạn thảo VBA thì bạn cần làm theo hướng dẫn như trong bài viết dưới đây để có thể bắt đầu viết được Code VBA. Cách hiện thẻ developer để ghi macro hoặc viết code vba trong excel Sau khi bạn đã sẵn sàng để có thể viết được Code VBA thì ngay sau đây ta sẽ thực hiện viết Code để thêm được nhiều Sheet 1 lần nhanh chóng nhất. Cách thêm 1 lần nhiều Sheet trong Excel với Code VBAĐể thêm Sheet ta có Code VBA như sau:
Tuy nhiên, khi bạn để thế thì bạn chỉ có thể thêm 1 Sheet vào File mà thôi. Để có thể thêm được nhiều Sheet thì như vậy có vẻ chưa đủ phải không nào. Ngay sau đây, Gitiho.com sẽ đưa ra một số giải pháp để bạn có thể thêm nhiều Sheets 1 lần vào trong File. Sử dụng vòng lặpVới cách sử dụng vòng lặp này thì bạn sẽ có Code VBA như sau: Bạn có thể hiểu Code trên như sau: Ta sẽ khai báo 1 biến j, sau đó cho j này chạy từ 1 đến số Sheets mà bạn muốn thêm (ở đây mình để 6, thêm 6 Sheet), và trong vòng lặp này ta sẽ thêm Sheet (Worksheets.Add). Khá đơn giản phải không nào, nhưng cách sau đây mình nghĩ sẽ còn đơn giản hơn nhiều đấy Sử dụng thêm đối số Count của phương thức AddNếu như bạn để ý thì phương thức Add trong Worksheets.Add ta có thêm các đối số, cụ thể các đối số đó như sau: các đối số này đều là tuỳ chọn, nếu như bạn để mặc định thì khi chạy Code Worksheets.Add, 1 Sheet mới sẽ được thêm vào phía trước Sheet đang kích hoạt (Activate) hướng dẫn viết hàm tìm dòng cuối cùng có dữ liệu trong vba Với yêu cầu là thêm nhiều sheets 1 lần thì ta có đối số Count Ta có Code đầy đủ như sau để thêm 6 Sheet, nếu như bạn muốn thêm bao nhiêu Sheet thì bạn có thể đổi số 6 thành số Sheets mà bạn muốn thêm vào File.
Cách này có vẻ đơn giản hơn cũng như ngắn gọn hơn phải không nào. Hy vọng qua 2 cách mà Gitiho.com vừa giới thiệu trên đây, bạn đã có thể biết được cách thêm nhiều Sheets và File một cách nhanh chóng nhất. Chúc bạn thành công, tham khảo các bài viết khác ngay dưới đây hướng dẫn viết hàm tìm dòng cuối cùng có dữ liệu trong vba Một số code vba để tìm dòng cuối cùng có dữ liệu trong excel Hướng dẫn cách bật, tắt đường kẻ mờ trong Excel |