Snasui Excel Forum

[quote="arayas"]ขอบคุณมากๆ[color=#FF4000]ค่า[/color] :) โค้ดใช้ได้แล้วค่ะแต่หนูต้องการให้เวลาเรากดsaveไปแล้วมีหน้าต่างให้เราตั้งชื่อเองแล้วค่อยเซฟเหมือนกับเราไปกด file แล้วsave as ค่ะ หนูเลยลองโค้ดนี้แต่ว่าติดอีกแล้ว[color=#FF4000]ค่า[/color]รบกวนอีกทีนะคะ

[code] [color=#FF0000] Dim file As FleStream
Dim fw As StreamWritter
Dim textDir As Stringir
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
textDir = SaveFileDialog1.FileName
file = New FileStream(textDir,FileMode.Creat)
fw = New StreamWritter(file)
fw.WritLine(Date.Now.ToLongTimeString)
fw.WriteLine(txtSave.Text)

fw = Close()
file.Close()
fw = Nothing
file = Nothing
End if[/color] [/code][/quote]
:D คำที่ผมระบายสีไว้นั้นผิดกฎการใช้บอร์ดด้านบน :roll: กรุณาอ่านกฎการใช้บอร์ดทุกข้อด้านบนด้วยครับ

ควรแนบไฟล์ประกอบคำถามเพื่อจะได้ทดสอบให้ได้ครับ

 [color=#FF0000] Dim file As FleStream
   Dim fw As StreamWritter
   Dim textDir As Stringir
   If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
   	textDir = SaveFileDialog1.FileName
   	file = New FileStream(textDir,FileMode.Creat)
   	fw = New StreamWritter(file)
   	fw.WritLine(Date.Now.ToLongTimeString)
   	fw.WriteLine(txtSave.Text)
   	
   	fw = Close()
   	file.Close()
   	fw = Nothing
   	file = Nothing
   	End if[/color]       

ขอบคุณมากๆค่า :) โค้ดใช้ได้แล้วค่ะแต่หนูต้องการให้เวลาเรากดsaveไปแล้วมีหน้าต่างให้เราตั้งชื่อเองแล้วค่อยเซฟเหมือนกับเราไปกด file แล้วsave as ค่ะ หนูเลยลองโค้ดนี้แต่ว่าติดอีกแล้วค่ารบกวนอีกทีนะคะ

[code] [color=#FF0000] Dim file As FleStream
Dim fw As StreamWritter
Dim textDir As Stringir
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
textDir = SaveFileDialog1.FileName
file = New FileStream(textDir,FileMode.Creat)
fw = New StreamWritter(file)
fw.WritLine(Date.Now.ToLongTimeString)
fw.WriteLine(txtSave.Text)

fw = Close()
file.Close()
fw = Nothing
file = Nothing
End if[/color] [/code]

ActiveWorkbook.SaveAs Filename="C:\Users\nanny\Desktop\AA\MyFile.xlsm" 

:D ต้องการ Save ในชื่ออะไรก็ให้ใส่ชื่อไฟล์เข้าไปด้วย ไม่ใช้ใส่เฉพาะ Folder ครับ

เช่น
[code=php]ActiveWorkbook.SaveAs Filename="C:\Users\nanny\Desktop\AA\MyFile.xlsm" [/code]

สำหรับการ โพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกต่อการอ่านดูได้จาก Link นี้ครับ http://snasui.com/viewtopic.php?f=6&t=1187

ต้องการ กดปุ่ม save ที่สร้างไว้ แล้วสามารถไปเซฟในโฟเดอร์ชื่อ AA ที่ตั้งไว้หน้าเดสทอปค่ะ โดยเซฟแค่ sheet 1ทั้งหน้า
หนูลองเขียนโค้ดมาแล้วไม่ทราบว่าเข้าใจผิดส่วนใดรึเปล่าคะ ลองหลายรอบแล้วไม่ได้เลย รบกวนช่วยแนะนำด้วยนะคะ
มีไฟล์แนบมาด้วยค่ะ [attachment=0]test .xlsm[/attachment]

Private Sub CommandButton2_Click()
Workbooks.SaveAs Filename:="C:\Users\nanny\Desktop\AA\"
End Sub