vba 中， 建立檔案夾， 擷取行數， 建立excel檔案

 

 

' 在檔案夾不存在的情況，建立一個檔案夾
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

'　擷取當前 sheet 的最後一行的行號
 Dim ct As Long
 ct = sheet.UsedRange.Row + sheet.UsedRange.Rows.Count - 1

'建立一個　 excel 檔案
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 With
        newbook.Close
End Sub