Snasui Excel Forum

Posted: **Sun Jul 10, 2011 10:30 pm**

สวัสดีค่ะอาจารย์
รบกวนสอบถามอาจารย์ค่ะ
คือดิฉันได้สร้างคำสั่งไว้แล้วตามขั้นตอนดังนี้ค่ะ
1.copy worksheet ขั้นตอนนี้ทำ VBA แล้วค่ะ
2.move ไปไว้ new workbook ขั้นตอนนี้ทำ VBA แล้วค่ะ
3.save file โดยตั้งชื่อตาม cell F2 ขั้นตอนนี้แหละค่ะ ติดปัญหาตรงนี้แหละค่ะ
ไม่รู้จะไปต่อยังไงดี รบกวนอาจารย์ช่วยทีค่ะ

ขอบพระคุณจากใจจริงค่ะ
พนิดา

Posted: **Sun Jul 10, 2011 11:16 pm**

ลองตาม Code ด้านล่างครับ

Code: Select all

Sub Copycoverpage()
Dim s As String
s = Range("F2").Value

Worksheets("coverpage").Copy before:=Worksheets("coverpage")
Sheets("Coverpage (2)").Select
Sheets("Coverpage (2)").Move

ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Administrator\Desktop\keepbox\" & s & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

End Sub

Posted: **Sun Jul 10, 2011 11:52 pm**

ขอบคุณครับอาจารย์มากๆค่ะ
ขอบคุณอีกที
พนิดาค่ะ

Snasui Excel Forum

การ save file ค่ะ

การ save file ค่ะ

Re: การ save file ค่ะ

Re: การ save file ค่ะ