snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
Sub MakeMyFolder()
Dim path As String, DocName As String
Dim fdObj As Object
Dim mybook As Workbook
Set wksht = ActiveSheet
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set fdObj = CreateObject("Scripting.FileSystemObject")
If fdObj.FolderExists("C:\Cost_Report\") Then
Else
fdObj.CreateFolder ("C:\Cost_Report\")
End If
path = "C:\Cost_Report"
DocName = "Report"
If Dir(path & "\" & DocName & ".xlsx") = "" Then
Workbooks.Add
ActiveWorkbook.SaveAs path & "\" & DocName & ".xlsx"
End If
Workbooks.Open "C:\Cost_Report\Report.xlsx"
Workbooks("copymoney.xlsm").Worksheets("cost").Range("A3:Y3").Copy
Workbooks("Report.xlsx").Worksheets("sheet1").Range("A1").PasteSpecial Paste:=xlPasteValues
ActiveSheet.Name = ActiveSheet.Range("A1").Value
ActiveWorkbook.SaveAs Filename:=path & wksht.Range("A3").Value & ".xlsx"
'ActiveWorkbook.Worksheets("Report").Name = Worksheets("Report").Range("A3").Value
Worksheets("Report").Name = Worksheets("Report").Range("A1").Value
ActiveWorkbook.Close SaveChanges:=True
Application.DisplayAlerts = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
You do not have the required permissions to view the files attached to this post.