In VBA, create a folder, get the number of rows, and create an Excel file

 

 

'Create a folder if the folder does not exist.
Sub createdir (pathname as string)

Dim tmpdir as string
On Error resume next
Tmpdir = Dir (pathname)
If tmpdir = "" then
Mkdir pathname
End if

End sub

'Get the row number of the last row of the current sheet.
Dim CT as long
Ct = sheet. usedrange. Row + sheet. usedrange. Rows. Count-1

'Create an Excel file
Sub addnew (fname as string, sheet as worksheet, byref rowidx as long)

Set newbook = workbooks. Add

'Call copyheader (sheet, newbook. Sheets (1), rowidx)
Rowidx = rowidx + 1
'Call copybody (sheet, newbook. Sheets (1), rowidx)
With newbook
. Title = ""
. Subject = ""
. Saveas filename: = fname
End
Newbook. Close
End sub