Save แล้วให้เปลี่ยนชื่อตามข้อความในเซล B4

[yodpao.b]

- Save แล้วให้เปลี่ยนชื่อตามข้อความในเซล B4

CaptureA1.JPG

ขั้นตอน
1.สร้างไฟล์ใหม่
2.SAVE ไฟล์ในชื่อที่อยู่ในเซล B4

Code: Select all

Sub Macro6()
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:="D:\Project_EERS\book3.xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
End Sub

ต้องการให้เวลา save ให้ไปอยู่ใน D:\Project_EERS\ และใช้ชื่อในเซล B4 ครับ
(ผมไม่รู้ว่าจะเขียนอย่างไรให้มันไปมองในสมุดงาน newproit2 ,Sheet1 ,เซลB4 ครับ)

[puriwutpokin]

- Save แล้วให้เปลี่ยนชื่อตามข้อความในเซล B4

CaptureA1.JPG
ขั้นตอน
1.สร้างไฟล์ใหม่
2.SAVE ไฟล์ในชื่อที่อยู่ในเซล B4

Code: Select all

Sub Macro6()
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:="D:\Project_EERS\book3.xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
End Sub

ต้องการให้เวลา save ให้ไปอยู่ใน D:\Project_EERS\ และใช้ชื่อในเซล B4 ครับ
(ผมไม่รู้ว่าจะเขียนอย่างไรให้มันไปมองในสมุดงาน newproit2 ,Sheet1 ,เซลB4 ครับ)

ตัวอย่างโค้ดครับ

Code: Select all

Sub Macro6()
 Dim xlsName As String
 xlsName = Sheets("Sheet1").Range("b4")
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:="D:\Project_EERS\" & xlsName & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
End Sub

[yodpao.b]

ขอบคุณครับ code ใช้งานได้ครับ
แต่ว่า บรรทัดล่างนี้เกียวด้วยไหมครับ

CaptureA2.jpg

[puriwutpokin]

ขอบคุณครับ code ใช้งานได้ครับ
แต่ว่า บรรทัดล่างนี้เกียวด้วยไหมครับ
CaptureA2.jpg

ไม่เกี่ยวครับ ผมลงไว้เวลาที่มีการใช้ Array จะได้เตือนว่าควรต้องกด ตามนี้ครับ

[yodpao.b]

ขออีกคำถามครับ
ในระหว่างการ Save นั้นสามารถตั้งชื่อไฟล์เองได้อัตโนมัติ
คำถาม
ถ้าตอน SAVE ชื่อไฟล์นั้น สามารถสั่งให้ตั้งชื่อโฟดเดอร์ แล้วจึงค่อย Save ลงในโฟดเดอร์ที่ตั้งใหม่ได้ไหมครับ
(โฟดเดอร์และชื่อไฟล์ชื่อเดียวกันครับ)

code ที่ผมใช้อยู่ใช้ไม่ได้ครับ

Code: Select all

Sub MacroSaveAs_Filename()
 Dim xlsName As String
 Dim folderName As String
 xlsName = Sheets("Sheet1").Range("b4")
 folderName = Sheets("Sheet1").Range("b4")
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:="D:\Project_EERS\" & folderName & "\" & xlsName & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
End Sub

[puriwutpokin]

ปรับตามนี้ครับ

Code: Select all

Sub MacroSaveAs_Filename()
 Dim xlsName As String
 Dim folderName As String
 xlsName = Sheets("Sheet1").Range("b4")
 folderName = Sheets("Sheet1").Range("b4")
MkDir "D:\MyData\TK\POS\" & folderName
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:="D:\Project_EERS\" & folderName & "\" & xlsName & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
End Sub

[puriwutpokin]

แก้ไขใหม่ครับ

Code: Select all

Sub MacroSaveAs_Filename()
 Dim xlsName As String
 Dim folderName As String
 xlsName = Sheets("Sheet1").Range("b4")
 folderName = Sheets("Sheet1").Range("b4")
MkDir "D:\Project_EERS\" & folderName
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:="D:\Project_EERS\" & folderName & "\" & xlsName & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
End Sub

[yodpao.b]

พรุ่งนี้จะรีบไปแก้ที่ทำงานครับ
ขอบคุณครับ