คำสั้ง vb เปิด workbook ใหม่ เป็น bookไดฯ

[Pich]

ผมเจอปัญหาจากการเริ่มใช้ excel 2016เพราะ vbที่ใช้งาน มันจะเรียก new workbook ตัวใหม่เป็น book1 ( windows ("book1").activate ) เเต่ excel 2016 ที่ใช้ตอนนี้ ถ้ามี file excel เปิดค้างไว้ new workbook ตัวใหม่จะ run เป็น book 2..3...4...5.. ทำให้กระบวนการ post data ไม่สำเร็จ จะสำเร็จได้ต้องไม่เปิด file ของ excel ไว้ ทำให้ workbook ตัวแรกเป็น book1 ตามเงื่อนไขของ vb แต่จะสามารถทำได้ครั้งเดียว
อยากทราบว่า มี คำสั้ง vb ที่เปิด book ไดฯ หรือ วิธีการ set excel 2016 ให้เปิด workbook ใหม่เป็น book1 เเม้เราจะเปิด file ไว้
ปล. ก่อนหน้านี้ใช้ excel 2003 , 2010 ม้นสามารถ run ได้

[snasui]

ลองเปลี่ยนจาก Windows("book1").activate เป็น Windows(Workbooks.Count).activate เพื่อให้ไฟล์ที่เปิดล่าสุดเป็นตัว Active แทนครับ

[Pich]

ก่อนอื่นผมขอบคุณ snasui ที่ให้ควานช่วยเหลือครับ เเละ ขอประกาศ Dim ผู้มาตอบกระทู้ as อาจารย์
ตามที่อาจารย์เเนะนำ ผมได้เปลียน Windows("book1").activate เป็น Windows(Workbooks.Count).activate ทุกตำเเหน่งที่มีอยู่ใน marco
เเต่มีอีกที่ Windows ("book1").Worksheets("sheet1").Activate ผมไม่รู้ว่าจะต้องเปลียนเป็นอะไร ผมจึงเปลียนเฉพาะที่อาจาย์บอก
ผมได้ทำ 2 อย่าง
1. เเบบเปิด file. excel ค้างไว้( เหมือนเวลาทำงาน )
2. เเบบไม่เปิด
ผลที่ได้ผมเเนบเป็น file pdf มาสองอย่างครับ

[snasui]

เเต่มีอีกที่ Windows ("book1").Worksheets("sheet1").Activate ผมไม่รู้ว่าจะต้องเปลียนเป็นอะไร

เปลี่ยนในลักษณะเดียวกันครับ Windows (Workbooks.Count).Worksheets("sheet1").Activate

[Pich]

ลองเปลียนเเล้วครับ Windows (Workbooks.Count).Worksheets("sheet1").Activate เเละ ผลเหมือนเดิมทั้งสองเเบบ เเละ ติด debug ที่
บรรทัดนี้ละครับ

[snasui]

แสดงว่าไฟล์ที่เปิดมาล่าสุดไม่มีชีตที่ชื่อว่า Sheet1 ครับ

[Pich]

ถึง อาจารย์ ผมได้เเนบ file ที่มีปัญหา มาให้ อาจารย์ลองช่วยเเก้ให้ครับ
1. file NIP.bat ( เป็น file ใช้เปิด ตัว file .csv ที่เป็น file ข้อมูล เเละ file . xls ที่เป็นรูปเเบบฟอร์มตั้งต้น เเละ มี marco ) file ตัว .bat ต้องคลิกขวาเเล้วกด edit เพื่อเข้าไปเเก้ตำเเหน่งที่อยู่ของ file .csv เเละ .xls
2. file Ncfile.csv เป็น file ข้อมูลที่เราอยากจะนำไปลงใน ฟอร์มของ file ตั้งต้น
3. file NIP.xls เป็น ฟอร์มต้นฉบับที่มี marco ( marco จะเป็นเปิด new workbook ( "book1") เเละนำข้อมูลจาก file .csv มาลงบน book1 ที่มีตารางรูปเเบบเดียวกันกับ ฟอร์มต้นฉบับ )
File .xls ( mraco ) ที่ผมเเนบมาเป็นตัวที่ยังไม่ได้เเก้ book1 เป็น Workbooks.Count ครับ คือถ้า run ตัว .bat มันจะเปิด file .csv( ข้อมูล) , .xls ( ต้นฉบับ ) , new workbook ( book1) พร้อมมีข้อมูลลงตามตำเเหน่งของตารางต้นฉบับครับ

ปล. ถ้าใช้ excel 2016 ไม่เปิดfile excel ค้างไว้ จะสามารถ run ตามกระบวนการข้างต้นได้ เพราะ excel เปิด book1 เเละ mraco จะจับ book1กับ .csv รวมกันครับ
เเต่ถ้าลองเปิด excel เเล้ว save เปิดค้างไว้ ( book1 ถูกเปิดไปแล้ว ) เมื่อ run file .bat marco จะติด debug ที่บรรทัด Windows("book1").activate เเละ new workbook จะเป็น book2 ( เเละ ถ้ามีการเปิดอีก มันจะ เป็น book 3...4...5... )


*********** อาจารย์ครับ ผมพิมพ์เเล้วเเต่จะเเนบ file มันเเนบได้เฉพาะ . xls เเต่ .csv , .bat ส่งไม่ได้ครับ **************

[snasui]

กรุณางดโพสต์ถามถึงผมหรือผู้ใดผู้หนึ่งโดยตรงเพราะหากผู้นั้นไม่ว่างจะไม่มีผู้ช่วยตอบครับ

ไฟล์ .bat ไม่จำเป็นต้องส่งมาก็ได้เพราะปัญหาไม่ได้เกิดจากไฟล์ .bat ส่วนไฟล์ CSV หรือไฟล์อื่นใดที่แนบโดยตรงไม่ได้ ให้ Zip มาก่อนแล้วลองแนบมาใหม่ครับ

[Pich]

file ข้อมูล .csv ครับ

[snasui]

ไฟล์ที่แนบมาไม่สามารถเปิดได้ครับ

[Pich]

ผมส่ง รูปเเบบของ file .csv ใช้ข้อมูลอะไรลงก็ได้ครับ เเล้ว save เป็นนามสกุล .csv ใน excel ครับ

[snasui]

ส่งไฟล์ csv มาที่ snasui@gmail.com ครับ

[snasui]

ผมแนบให้แล้วในโพสต์ #11 ครับ

สำหรับการปรับ Code ให้ปรับตามที่ผมแจ้งไปแล้วคือใช้ windows(workbooks.count).activate และ กรณีที่เป็น windows("book1").worksheets("Sheet1").activate ให้แยกเป็น 2 บรรทัดคือ

Code: Select all

windows(workbooks.count).activate
sheets(1).activate

[Pich]

ลองเเล้วคับ มันเป็นเหมือน #3 ครับ ข้อมูลบางส่วนไปที่ new workbook ( ไปไม่หมด ) เเละ บางส่วนไปอยู่กับ file ที่เราเปิดค้างไว้ครับ

[snasui]

ลักษณะแบบนั้นมันไม่เกี่ยวกับการไม่รู้จัก Workbook ล่าสุดแล้ว ถ้ามันไม่รู้จักมันจะให้ Debug ไม่ใช่ไปบ้างไม่ไปบ้างเช่นที่กล่าวมาครับ