โค้ด VBA สอบถามเกี่ยวกับการ link Button เพื่อไปsaveใน folder อื่น

[arayas]

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

test .xlsm

(18.97 KiB) Downloaded 8 times

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

[snasui]

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

เช่น

Code: Select all

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

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

[arayas]

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

Code: Select all

 [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]       

[snasui]

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

Code: Select all

 [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]       

คำที่ผมระบายสีไว้นั้นผิดกฎการใช้บอร์ดด้านบน กรุณาอ่านกฎการใช้บอร์ดทุกข้อด้านบนด้วยครับ

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