save sheet ไว้ใน folderที่ตั้งไว้

[malinsima]

มีSheet หลาย sheet แต่อยาก save sheet1 ใน folderที่สร้างไว้ save เป็นชื่อ Range ("I10") พอ save แล้ว มีข้อความขึ้นมาว่า File saved โดยยังคงหน้าเดิมอยู่ ขอคำแนะนำด้วยค่ะ ขอบคุณค่ะ

Private Sub CommandButton1_Click()
Dim a As Integer
Dim ws As Worksheet
Dim wb As Workbook
a = ThisWorkbook.Worksheets.Count
For i = 1 To a
If ThisWorkbook.Worksheets(i).Name <> "Sheet1" Then
Set wb = Workbook.Add
ThisWorkbook.Worksheets(i).Copy Before:=wb.Worksheet(1)
wb.SaveAs = "C:\Users\Admin\Desktop\Test\" & Range("D10").Value

wb.Close Savechanges = True
End If
Next i
ThisWorkbook.Activate
ThisWorkbook.Worksheets("Sheet1").Activate
ThisWorkbook.Worksheets("Sheet1").Cell(1, 1).Select
MsgBox ("File Saved")

End Sub




[snasui]

กรุณาแนบไฟล์ตัวอย่างพร้อมกับ Code ที่เขียนไว้เองแล้วในไฟล์ด้วยจะได้สะดวกในการตอบของเพื่อนสมาชิกครับ

สำหรับการวาง Code ให้ดูตัวอย่างกฎการใช้บอร์ดช้อ 5 ด้านบน จะแสดงวิธีการแสดง Code ที่ถูกต้อง ที่โพสต์มานั้นเรียกว่าแบบ Inline เอาไว้ใช้ประกอบคำอธิบายเป็นหลักครับ