Tạo nhiều file excel bằng Vba

[tht9216]

Xin chào cả nhà. Mình hằng ngày phải tạo ra nhiều file excel theo danh sách không có trước nên mình có lên youtobe tìm hiểu và copy một đoạn code để tạo ra hàng loạt file excel theo danh sách như file dưới. Nhưng sau lần đầu tiên mở file và tạo danh sách thì từ lần thứ hai trở đi là đoạn code này cứ bảo mình chưa chọn đường dẫn lưu file nên không tạo được file mới. Trong nhóm có ai có kinh nghiệm có thể sửa giúp mình được không. Vô cùng và tha thiết cảm ơn

 

[hoangtuan.net]

Xin chào cả nhà. Mình hằng ngày phải tạo ra nhiều file excel theo danh sách không có trước nên mình có lên youtobe tìm hiểu và copy một đoạn code để tạo ra hàng loạt file excel theo danh sách như file dưới. Nhưng sau lần đầu tiên mở file và tạo danh sách thì từ lần thứ hai trở đi là đoạn code này cứ bảo mình chưa chọn đường dẫn lưu file nên không tạo được file mới. Trong nhóm có ai có kinh nghiệm có thể sửa giúp mình được không. Vô cùng và tha thiết cảm ơn

Lần thứ 2 là sao bạn nhỉ? Mình thử click lần 2 vẫn như lần đầu mà!

 

[snow25]

Xin chào cả nhà. Mình hằng ngày phải tạo ra nhiều file excel theo danh sách không có trước nên mình có lên youtobe tìm hiểu và copy một đoạn code để tạo ra hàng loạt file excel theo danh sách như file dưới. Nhưng sau lần đầu tiên mở file và tạo danh sách thì từ lần thứ hai trở đi là đoạn code này cứ bảo mình chưa chọn đường dẫn lưu file nên không tạo được file mới. Trong nhóm có ai có kinh nghiệm có thể sửa giúp mình được không. Vô cùng và tha thiết cảm ơn

Sửa bừa trúng thì thôi.File sẽ được lưu vào cùng file excel của bạn.Khả năng lần 2 của bạn không phải là chọn đường link mà nó báo có file tên vậy rồi có lưu không.

Sub TaoFile()
Application.DisplayAlerts = False
  'khai bao bien
  Dim wb As Workbook
  Dim ws As Worksheet
  Dim mypath As String
  Dim fname As String
  Dim DS As Long
  Dim i As Long
  Dim SavePath As String
  Dim newWB As Workbook
 
  'gan gia tri cho bien
  Set wb = ThisWorkbook
  Set ws = wb.Worksheets("dulieu")
  mypath = wb.Path
  DS = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
 
  'Chon duon dan luu

      SavePath = ThisWorkbook.Path & "\"

  'chuong trinh
  For i = 1 To DS
    'tao workbook+ luu
    fname = ws.Range("A" & i).Value & ".xlsx"
    Set newWB = Workbooks.Add
    newWB.SaveAs Filename:=SavePath & fname
    newWB.Close SaveChanges:=False
  Next i
Application.DisplayAlerts = true
End Sub