Excel Forum

logic wrote:

nisit2559 wrote:ถ้าชื่อมันเปลี่ยนไปเรื่อยๆหรือต้องกำหนดตัวแปรครับ

ปกติผมใช้แบบนี้เลยครับ กำหนดตัวแปรให้กับไฟล์ใหม่

ขอบคุณครับทำได้เรียบร้อยละครับ

:D ตัวอย่างการปรับ Code ให้อ้างถึง Workbook เป้าหมายตอน Save ครับ 'Other code Else Workbooks("boox1.xlsx").SaveAs Filename:="D:\MMCT\data\" & _ Application.Text(Workbooks("boox1.xlsx").Worksheets("Sheet1").Range("A2").Value, "ddmmyy") ...

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

ผมลองดูแล้วครับถ้ากดรันโดยตรงมนจะได้ครับแต่ถ้าใช้การเปิดโดน job มันจะไม่ได้ครับไม่ทราบว่าเกี่ยวกับการที่ใช้การเปิดโปรแกรมเป็นตัวเรียกโค้ดมาหรือเปล่าครับ

snasui wrote: ไฟล์ที่แนบมาล่าสุดไม่พบว่ามีชีต Calculation ครับ

มันไม่สามารแนบมาได้ครับไฟล์มันใหญ่เกินไปครับแต่ผมลองเปลี่ยนค่าในเซลล์ให้ A2 Sheet1 แล้วครับตามไฟล์ที่แนบมาเลยครับ

ถ้าใช้เซลล์ G46 ของชีต Calculation ครับจะใช้ได้ไหมครับและพอเซฟแล้วจากที่ตอนแรกเปิดไฟล์ boox1.xlsxก็ถูกเปลี่ยนเป็นชื่อไฟล์ที่ถูกเซฟเลยครับส่วนโค้ดที่เกี่ยนข้องก็จะเป็น If data_sheet1 = "" Then Other Procedure.....If data_sheet2 = "" Then Call copyfile1.... Other Procedure Else Cal...

ใช่ครับนี้ครับไฟล์ใหม่

:D ไม่เข้าใจครับ ชื่อไฟล์เก่าคือไฟล์ใด ช่วยอธิบายลงรายละเอียดของปัญหามาด้วยจะได้เข้าถึงปัญหาโดยเร็วครับ คือว่าผมใช้โค้ดที่ปรับแล้วดังที่ส่งไปนะครับโดยต้องการให้มันเซฟชื่อไฟล์เป็นวันเดือนปีของวันที่ทำการเซฟโดยดึงเอาค่ามาจาก cell A2 Sheet1ครับแล้วมันเซฟมาเป็นชื่ออื่นซึ่งผมได้ทำการส่งชื่อไฟล์ที่มันเซฟ...

:D ไม่เข้าใจครับ ชื่อไฟล์เก่าคือไฟล์ใด ช่วยอธิบายลงรายละเอียดของปัญหามาด้วยจะได้เข้าถึงปัญหาโดยเร็วครับ คือว่าผมใช้โค้ดที่ปรับแล้วดังที่ส่งไปนะครับโดยต้องการให้มันเซฟชื่อไฟล์เป็นวันเดือนปีของวันที่ทำการเซฟโดยดึงเอาค่ามาจาก cell A2 Sheet1ครับแล้วมันเซฟมาเป็นชื่ออื่นซึ่งผมได้ทำการส่งชื่อไฟล์ที่มันเซฟ...

นี้ครับตัวอย่างโค้ดคือว่าพอมัน save as ไปแล้วทำให้ชื่อไฟล์มันเปลี่ยนไปทำให้โค้ดไม่เจอกับชื่อไฟล์เก่าครับ Sub saveflie() Workbooks("boox1.xlsx").SaveAs Filename:="D:\MMCT\data\" & Application.Text(Worksheets("Calculation").Range("G46").Value, "ddmmyyyy...

อาจารย์ครับพอผมใช้เซลล์ a2 ไปแล้วแต่พอเซฟออกมาไม่ได้เป็นวันที่ที่ตรงกันครับแล้วพอผมเปลี่ยนไปใช้หน้า Calculation ตรงต่ำแหน่ง g46 มันก็บอกว่าerror ครับ Workbooks("boox1.xlsx").SaveAs Filename:="D:\MMCT\data\" & Application.Text(Worksheets("Calculation").Range("g...

ขอสอบถามเพิ่มเติมครับผมทำให้สามารถดึงไฟล์แบบไม่ซ้ำกันได้แล้วแต่ว่าโค้มมันยาวไปครับจึงอยากจะอย่โค้ดลงไปอีกไม่ทราบว่าจะต้องปรับอย่างไรบ้างครับหรื่อว่าสามารถใช้ฟังชันหรือการส่งถ่ายตัวแปรได้ไหมครับ Sub copyflie() Set cell_to = Cells(1, 1) Set active_workbook = ActiveWorkbook Set active_sheet = ActiveShe...

:D ตัวอย่างการปรับ Code ครับ 'Other code Workbooks("boox1.xlsx").SaveAs Filename:="C:\Users\snasui\Downloads\" & _ Application.Text(Worksheets("sheet1").Range("a2").Value, "ddmmyyyy") & ".xlsm", _ FileFormat:=xlOpenXMLWorkbookMacro...

:D Code ที่เขียนมาเองแล้วคือ Procedure ใด ติดปัญหาบรรทัดใด คำตอบที่ต้องการมีลักษณะเป็นอย่างไร กรุณาอธิบายลำดับขั้นตอนมาอย่างละเอียด และต้องเป็น Code ล่าสุดที่ได้มีการปรับปรุงไปแล้วครับ ขอบคุณครับ ตอนนี้ผมติดปัญหาใหม่แล้วครับคือผมต้องการให้มัน save as เป็นไฟล์ .xlsxและให้มันใช้ข้อมูลในcell a2 ในการน...

cell A1 เป็นของ ชีด Sheet1 ครับในworkbook("Workbook1.1") ส่วน Boox1 นั้นผมเปิดไว้อยู่แล้วครับ นามสกุลใช้ .xlsx ครับ และ data_sheet oั้นผมจะเอาไว้เก็บข้อมูลใน Boox1 cell(b1441)ครับ ตัวอย่างการปรับ Code ครับ 'Other code data_sheet = Workbooks("boox1.xlsx").Worksheets("sheet1&...

cell A1 เป็นของ ชีด Sheet1 ครับในworkbook("Workbook1.1") ส่วน Boox1 นั้นผมเปิดไว้อยู่แล้วครับ นามสกุลใช้ .xlsx ครับ และ data_sheet oั้นผมจะเอาไว้เก็บข้อมูลใน Boox1 cell(b1441)ครับ

:D แนบไฟล์พร้อม Code ที่มีปัญหามาด้วยจะได้สะดวกในการทดสอบครับ นี้ครับตัวอย่างโค้ด Sub Macro1() ' ' Macro1 Macro ' ' Set cell_to = Cells(1, 1) Set active_workbook = ActiveWorkbook Set active_sheet = ActiveSheet Application.DisplayAlerts = False File_Path = "D:\MMCT\MMCT\excel\" strName = D...

สอบถามเกี่ยวกับการแสดงเงื่อนไขครับมันขึ้นเออเรอดังรูปต้องแก้อย่างไรครับ

logic wrote:ตัวอย่างการ Save As ดูได้ที่ลิงก์นี้ครับ http://www.snasui.com/viewtopic.php?t=7111#p45353

ขอบคุณครับ

แสดงว่าผมต้องเขียนโค้ดให้เช็คทุกครั้งที่มีการเปิดไฟล์ขึ้นมาเลยใช้ไหมครับ แล้วเวลาเซฟนี้สามารถเขียนโค้ดอย่างนี้เพื่อให้มันเชฟอัตโนมัตเป็นชื่อวันที่ได้ไหมครับขอบคุณครับ