ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
https://snasui.com/
ปรับตรงนี้ครับtulkavin wrote: Tue Nov 20, 2018 6:38 pm ตามไฟล์แนบนะครับ
พอกดแล้วมาติดที่ 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