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
How to Full Snippet: VBA Convert Excel to Pipe Delimited File (github.com) Next Blog will convert this VBA Code to OfficeJS or Python
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…
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 ที่มาของข้อมูล
พอดีช่วงนี้มีงานที่ให้ดึงไฟล์จากเว็บมา และเรามาจัดแต่งรูปแบบไฟล์ Excel นั้น เพื่อ Import เข้าระบบครับ โดยผมได้ทดลองศึกษามา และขอเปรียบเทียบข้อดีข้อเสียไว้ เผื่อมีคนอื่นมาใช้งานครับ แนวทางที่ 1: การใช้ OLEDB จุดเด่น ทำงานได้รวดเร็ว ไม่จำเป็นต้องติดตั้ง Microsoft Office ลงที่เครื่อง Data Type ของแต่ละ Column ระบบจะมองเป็นจากแนวแรกที่อ่าน (อารมณ์เดียวกับการใช้ตารางครับ) จุดด้อย การอ่านข้อมูลเฉพาะตามเงื่อนไข หรือ Pattern ที่กำหนดนั้นทำได้ยาก การแก้ไขไฟล์ Excel นั้นทำได้ยาก แนวทางที่ 2: การใช้ Excel Interop Object…
[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]
พอดีมีเพื่อนตอนมํธยมทักมา เพื่อให้ช่วยรวมข้อมูลไฟล์ Excel หลายๆไฟล์ แต่ตอนนั้นผมเตรียมสอบ Toeic อยู่เลยปัดไป แต่จริงๆแอบเขียน VBA เพื่อรวมไฟล์ Excel หลายๆไฟล์ มารวมใน Sheet เดียว โดยมี Code คร่าวๆ ดังนี้ ถ้าว่างๆ เดี๋ยวมาอธิบาย Code นะ [vb] Option Explicit Public strPath As String Public Type SELECTINFO hOwner As Long pidlRoot As Long pszDisplayName…