เซฟชื่อไฟล์ด้วยข้อความในช่องเซลล์ ไม่รู้ติดอะไรครับ

[tulkavin]

ตามไฟล์แนบนะครับ

พอกดแล้วมาติดที่ activeworkbook

เพิ่มเติม ถ้าเราต้องการให้เซฟไปที่ path เดิมของไฟล์ที่อยู่ ให้ get ข้อมูลนั้นมายังได้ครับ

ขอบคุณครับ

[puriwutpokin]

ตามไฟล์แนบนะครับ

พอกดแล้วมาติดที่ activeworkbook

เพิ่มเติม ถ้าเราต้องการให้เซฟไปที่ path เดิมของไฟล์ที่อยู่ ให้ get ข้อมูลนั้นมายังได้ครับ

ขอบคุณครับ

ปรับตรงนี้ครับ

Code: Select all

Sub Button1_คลิก()

With Sheets("Sheet1")
Dim Path As String
Dim SaveQT As String
Dim SaveNo As String
Dim SaveName As String
Dim SaveMark As String

SaveQT = .Range("D11").Value
SaveNo = .Range("D12").Value
SaveName = .Range("D4").Value
SaveMark = .Range("F4").Value
Path = "c:\"
ActiveWorkbook.SaveAs Filename:=Path & SaveQT & "\" & SaveNo & "\" & SaveName & "\" & SaveMark & ".xls", FileFormat:=xlNormal
End With

End Sub