Excel Forum

ขอบคุณครับ ทำได้แล้วครับ
ปรับตั้งค่าแบบที่คุณ menem แนะนำครับ

ขอบคุณครับ

ผมเคยทำไฟล์ก่อนหน้านี้ มันใช้ได้โดยการผมใส่ IF ทับ ว่าหากช่องที่จะลงเวลามีข้อมูลอยู่แล้วให้ลงตามเวลาเดิม
ตามโค้ดข้างต้น
แต่พอกลับมาใช้อีกครั้งกลับไม่ได้ ผมเลยงงครับ

สวัสดีครับ มีคำถามว่า ผมใช้โค้ดเกี่ยวกับ Now() ตามนี้ครับ =IF(E3>1,IF(B3="",NOW(),B3),"") เพื่อเช็คว่าถ้าช่อง E3 มีค่าใส่เข้าไป จะให้ขึ้นเวลา ณ ตอนนั้น ที่ช่อง B3 ครับ แต่ประเด็นอยู่ที่ว่า พอเราใช้สูตรนี้กับบรรทัดล่างๆ ต่อไปเมื่อไปไหร่ที่มีการคีย์ค่าที่ E4,E5,E6 .... เวลา B3 จะมี...

ขอบคุณมากๆครับ

ผมลองเอา Concept ที่ให้ไปประยุกค์ ใช้งานกับ Code จริงผม (ปรับจาก Code เดิมทั้งหมด)
ตอนนี้ได้ตามเป้าหมายที่วางไว้แล้วครับ
แล้วไฟล์ที่นานก็เร็วขึ้นมากครับ จาก ชม.กว่าๆ เหลือแค่ไม่กี่นาทีครับ

ขอบคุณสำหรับคำแนะนำครับพี่

ได้ลองแล้วครับ วนลูป แล้วให้ออก แต่ตอนนี้ที่ผมเข้าใจ คือ Line Input #myFile1, buf <---- มันหมายถึงการ Copy ทุกบรรทัดลงไปในตัวแปร Buf แล้วนะครับ Open strFile_Path_In For Input As myFile1 L = 1 MsgBox (buf) iCount = 0 Do Until EOF(myFile1) MsgBox (iCount) Line Input #myFile1, buf MsgBox (buf) iCount =...

เพิ่มเติมครับ ผมจะส่งไฟล์ที่ผมทำได้ แต่เป็นแบบ Copy ทั้งไฟล์ ซึ่งปัญหาคือ ถ้าเจอไฟล์ที่มันมีขนาดใหญ่ (หลายบรรทัดมากๆ) จังหวะที่มัน Copy file ลงในตัวแปร buf ที่ผมตั้งไว้มันจะนานมากๆๆๆๆ ผมจึงตั้งกรทู้เพื่อถามว่า จะมีการ copy Line แค่ประมาณ 20 บรรทัดแรกได้ไหม ครับ หลักการของโปรแกรมคือ 1.วางไฟล์ไว้ให้ตร...

ขอโทษที่ให้ข้อมูลไม่ครบครับ ผลลัพธ์ที่ผมต้องการคือ ให้ ข้อมูล POPEN; DPRNT[SR05*CLEAR]; DPRNT[SR01*01200]; <---- เอาค่า 01200 มาจากบรรทัดที่ 5 DPRNT[SR02*61]; <---- เอาค่า 61 มาจากบรรทัดที่ 6 DPRNT[SR03*KGS2]; <--- เอาค่า KGS2 มาจากบรรทัดที่ 7 DPRNT[SR04*START]; PCLOS; ไปเพิ่มหลังบรรทัดที่ 13 -->(OR...

เพิ่มเติม อันนี้คือไฟล์ไว้สำหรับ Input ครับ

ขอบคุณมากครับ ไฟล์ตามแนบครับ

ล่าสุดใช้ Code ตามนี้ครับ แต่เจอ Error Compile error : Cannot define a Public user-defined type within an object module รบกวยช่วยดูให้ทีครับ Type Record ID As Integer Name As String * 20 End Type Sub Collect_data_from_NC_code() Dim myFile1 As Integer Dim text As String Dim buf As String Dim buftext ...

เพิ่มเติมครับ
ผมลองศึกษาเพิ่มตาม

http://codevba.com/office/read_text_fil ... HUFVdIzbIU
Credit : codevba website

แต่ผมติดตรง Type พอปรกาศใช้แล้ว Compile error พอมีคำแนะนำ เพิ่มเติมไหมครับ
ลองใส่ Public แล้วก็ไม่ได้ครับ

ขอบคุณครับ

ขอบคุณมากครับ ได้ไปลองแล้วอ่ะครับ แต่ผลทีได้ Cells(i,2) ก็ยังเป็นครบทุกบรรทัดอยู่ดีอ่ะครับ เข้าใจมาก Line Input #myFile, buf ก็หมายถึงทำให้ buf รับข้อความทุกบรรทัดไม่ใช่เหรอครับพี่ ลองๆ เล่นหาไปเรื่อย ยังแยกไม่ได้ซักทีครับ TT มาเต็มไฟล์ ตลอด หากผมเข้าใจอะไรผิด รบกวนช่วยเพิ่มเติมให้ด้วยครับ ขอบคุณครับ

สวัสดีครับ ขอสอบถามครับ จุดประสงค์ของผมคือ ต้องการโยน file ที่ open เข้ามาไปยังตัวแปรที่กำหนด โดยผมไม่ต้องการโยนทุกบรรทัดในไฟล์ เพราะเจอไฟล์ใหญ่ มันจะนาน ตัวอย่าง Code ที่โอนทุกบรรทัดเข้าตัวแปรชื่อ buf Dim buf As String strFile_Path_In = Cells(x,1) Open strFile_Path_In For input As #1 Line input #1,...

ขอบคุณครับ จะลองๆดูครับ

ขอบคุณครับ

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

ขอบคุณครับ

ขอบคุณสำหรับคำแนะนำครับ ผมทดลองเปลี่ยนตัวแปร i เป็น long หรือ Double แล้วครับ ผลคือ ไม่เจอ Overflow error แล้วครับ แต่พอเจอไฟล์ใหญ่ (หลายบรรรทัด) มันจะประมวลผล output ให้ผมนานมากๆๆๆ ผมทดลอง 8ไฟล์ (มีไฟล์ใหญ่ 2ไฟล์) ผมปล่อยให้เครื่องประมวล ใช้เวลาประมาณ 1ชม เลยครับ (ตอนทดลองกลั้นใจไม่กดปิดซะก่อน ผลเล...

สวัสดีครับ พอผมมีคำุถามเกี่ยวกับ Over flow error ครับ คือ ผมเขียนโปรแกรม vba ให้เข้าไปดึงไฟล์ใน Path ที่ตั้งไว้ และ นำไฟล์ใน Path นั้นทั้งหมดมาเพิ่มข้อความที่กำหนด จากนั้น ก็ให้ output ออกไปยัง path ที่กำหนดครับ ถ้าผมใช้กับไฟล์ที่ขนาดไม่ใหญ่ มีไม่กี่ร้อยบรรทัด สัก 7-8 file จะไม่มีปัญหาครับ แต่ปัญหาค...