VBA Convert Excel to Pipe Delimited File
How to Full Snippet: VBA Convert Excel to Pipe Delimited File (github.com) Next Blog will convert this VBA Code to OfficeJS or Python
Category Visual Basic 6, VBA
Visual Basic 6, VBA
[VB6] Debug RecordSet
Code Snippet แปะไว้ เพราะ Search หา Google แล้วไม่เจอ เวลาไปแงะ Legacy Code จะได้ง่ายๆ Public Sub DebugRecordSet(ByRef padrInput As ADODB.RecorDset) Dim x As Integer Dim lstrTmp As String Dim ladrTmp As ADODB.RecorDset On Error GoTo LineFail Set ladrTmp = DupRSS(padrInput) Call ladrTmp.MoveFirst…
[VB6] Command Line Options
หลังจากทำตัว Auto Build VB6 มา เจอประเด็นที่่าจะมีปัญหาทำให้ระบบที่ทำใหม่ มันมีโอกาสไม่ได้ไปต่อ คือ ระบบใหม่เวลา Build แล้ว Error มันแจ้งแค่ Error แต่ไม่บอกว่า Error ตรงไหน ซึ่งจะต่างกับ Build เองโดยใช้เปิด GUI ของ VB6 มาทำ ที่แสดง Error ช้ดเจน หลังจากเรียนเสร็จ วันนี้ตื่นมาตี 4 เลยลองค้นข้อมูลดูจาก CD MSDN ของ Microsoft ว่ามันทำได้ไหม ปรากฏว่าได้มี /out filename -…
AT Service Protocol Error Code 8 (Interactive Process)
บางครั้งเราอาจจะมีระบบงานเก่าที่ใช้ “AT Service Protocol” พอย้ายมาระบบใหม้เวลาทำงานเจอ Error Message แนวนี้ Error Code 8 (Interactive Process) ครับ สาเหตุ เกิดจาก Windows 8 และ Windows Server 2012. ได้ยกเลิกการใช้งาน AT Service Protocol แล้ว และอาจจะตัด Feature นี้ออกไปใน Windows รุ่นถัดๆไปในอนาคตครับ การแก้ไข ใช้ได้สำหรับ Windows 8 และ Windows Server 2012. เท่านั้น…
[VB6] Object Library Not Registered When Adding Windows Common Controls 6.0
win 32 [shell] cd C:\Windows\System32 regsvr32 mscomctl.ocx3 regtlib msdatsrc.tlb [/shell] win 64 [shell] cd C:\Windows\SysWOW64 regsvr32 mscomctl.ocx regtlib msdatsrc.tlb [/shell] หมายเหตุ regsvr32 mscomctl.ocx (ระวังตัวใหญ่ตัวเล็ก) เวลาเรียกใช้ cmd ให้ Run as Admin ที่มาของข้อมูล
[Visual Basic] Run time error 28- Out of stack space
หลายครีั้งที่เราเขียนโปรแกรม อาจจะเจอ Error มาบ้าง แต่ Error วันนี้ผมว่าเป็นกรณีศึกษาที่ดีสำหรับคนที่เขียน VBA กับ VB6 นะครับ โดยเฉพาะคนที่ชอบเขียนโปรแกรม โดยอาศัย Event ต่างๆนะครับ ระวังจะทำให้เกิด Recursive ของ Event ทำให้เกิด Run time error 28- Out of stack space ดังตัวอย่างต่อไปนี้ ถ้ามีโจทย์ หรือ Business ที่ว่า ถ้า Check Box A ถูกติ๊กแล้ว Check Box…
Code snippet เอาดูชื่อ Field + Type ใน Recordset
[vb]Dim x As Integer For x = 0 To madrMainData.Fields.Count – 1 Debug.Print madrMainData.Fields(x).Name & vbTab & madrMainData.Fields(x).Type Next [/vb]
[VBA] Merge ไฟล์ Excel หลายไฟล์
พอดีมีเพื่อนตอนมํธยมทักมา เพื่อให้ช่วยรวมข้อมูลไฟล์ Excel หลายๆไฟล์ แต่ตอนนั้นผมเตรียมสอบ Toeic อยู่เลยปัดไป แต่จริงๆแอบเขียน VBA เพื่อรวมไฟล์ Excel หลายๆไฟล์ มารวมใน Sheet เดียว โดยมี Code คร่าวๆ ดังนี้ ถ้าว่างๆ เดี๋ยวมาอธิบาย Code นะ [vb] Option Explicit Public strPath As String Public Type SELECTINFO hOwner As Long pidlRoot As Long pszDisplayName…
การตรวจสอบ Regional Setting ว่าเป็น พ.ศ. หรือ ค.ศ. ใน VB6 และ VB.NET
สามารถใช้ CODE ตามนี้ได้เลยครับ
[VB6] Regular Expression
ถึง VB6 เป็นเทคโนโลยีที่เก่า ล้าสมัยไปแล้ว แต่อย่าลืมว่าระบบงานบางระบบยังคงใช้ภาษานี้อยู่ ซึ่งการปรับเปลี่ยน หรือ Port ไปทั้งระบบ อาจจะมีค่าใช้จ่ายที่สูง ทางที่ดีที่สุด คือ พัฒนาส่วนเสริมให้มันต่อไปเรื่อยๆ วันนี้ผมจะมาแนะนำการ Validate ข้อมูลโดยใช้ Regular Expression (ตกใจหละซิ เพราะหลายคนคิดว่ามันน่าจะมีใน Java / C# กัน) โดยผมจะแนะนำขั้นตอนการทำ โดยใช้ตัวอย่างของการนำ Regular Expression มาหา IP Address ที่อยู่ในช้อความ ตามขั้นตอน ดังนี้ เริ่มวางหน้าจอโปรแกรม ดังรูป จัดการ Add Reference สิ่งที่ควรู้รู้ก่อนดูตัวอย่าง…