ขอคำแนะนำ CodeVB ดัก error การนำเข้าข้อมูล

[tigerwit]

จากไฟล์ที่แนบ
สร้างปุ่มนำเข้าข้อมูลจากไฟล์ .CSV

Code: Select all

Sub ImportCSV()
  Dim fileToOpen As Variant
  Dim fileFilterPattern As String
  Dim wsMaster As Worksheet
  Dim wbTextImport As Workbook
  Dim Sum As Integer
  On Error Resume Next
  Application.ScreenUpdating = False
    fileFilterPattern = "Text Files (*.txt; *.csv),*.txt;*.csv"
  fileToOpen = Application.GetOpenFilename(fileFilterPattern)
  If fileToOpen = False Then
    MsgBox "คุณไม่ได้เลือกไฟล์ที่จะนำเข้า", vbOKOnly + vbInformation, "ยกเลิกการนำเข้าข้อมูล"
  Else
    Workbooks.Open Filename:=fileToOpen, UpdateLinks:=0, local:=True
    Set wbTextImport = ActiveWorkbook
    Set wsMaster = ThisWorkbook.Worksheets("DMC")
    wsMaster.Range("A1:G1500").ClearContents
    wbTextImport.Worksheets(1).Range("A1").CurrentRegion.Copy
    wsMaster.Range("A1").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    wbTextImport.Close False
  End If
  Application.ScreenUpdating = True
  Range("A2").Select
End Sub

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

[parakorn]

ตัวอย่างการปรับโค้ดครับ

Code: Select all

Sub ImportCSV()
  Dim fileToOpen As Variant
  Dim fileFilterPattern As String
  Dim wsMaster As Worksheet
  Dim wbTextImport As Workbook
  Dim Sum As Integer
  Dim cHead As Integer, tHead As String
  Dim rHead As Worksheet
'  On Error Resume Next
  Application.ScreenUpdating = False
    fileFilterPattern = "Text Files (*.txt; *.csv),*.txt;*.csv"
  fileToOpen = Application.GetOpenFilename(fileFilterPattern)
  If fileToOpen = False Then
    MsgBox "คุณไม่ได้เลือกไฟล์ที่จะนำเข้า", vbOKOnly + vbInformation, "ยกเลิกการนำเข้าข้อมูล"
  Else
    Workbooks.Open Filename:=fileToOpen, UpdateLinks:=0, local:=True
    Set wbTextImport = ActiveWorkbook
    Set wsMaster = ThisWorkbook.Worksheets("DMC")
    wsMaster.Range("A1:G1500").ClearContents
   Set rHead = wbTextImport.Worksheets(1)
    cHead = Application.WorksheetFunction.CountA(wbTextImport.Worksheets(1).Range("1:1"))
    tHead = rHead.Range("A1") & "_" & rHead.Range("B1") & "_" & rHead.Range("C1") & "_" & rHead.Range("D1") & "_" & rHead.Range("E1") & "_" & rHead.Range("F1") & "_" & rHead.Range("G1")
        If cHead > 7 And tHead <> "เลขประจำตัวนักเรียน_ชั้น_ห้อง_เลขประจำตัวนักเรียน_คำนำหน้าชื่อ_ชื่อ_นามสกุล" Then
        wbTextImport.Close False
        MsgBox ("ไฟล์ที่คุณเลือก มีจำนวน หรือ ตำแหน่ง คอลัมภ์ผิดพลาด")
        Else
        wbTextImport.Worksheets(1).Range("A1").CurrentRegion.Copy
        wsMaster.Range("A1").PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        wbTextImport.Close False
        End If
  End If
  Application.ScreenUpdating = True
  Range("A2").Select
End Sub

[tigerwit]

ขอบคุณครับ
ยังดีบัคอยู่ครับ

[parakorn]

ผมลอง Run ที่เครื่องผมดูไม่ติดปัญหานะครับ
ถ้าดูจากภาพ Code ผ่านในส่วนที่ผมเขียนเพิ่มเติมไปแล้ว
ลองกด Ctrl+G เพื่อเปิดหน้าต่าง Immediate แล้วลอง Debug ด้วยการพิมพ์ ? ตามด้วยสิ่งที่จะลองเช็คดูครับ
เช่น ?wsMaster.name แล้วลองเช็คดูครับว่าตัวแปรนั้นๆ ยังเป็นสิ่งที่ถูกต้องหรือไม่

[tigerwit]

รู้สาเหตุแล้วครับ
ไฟล์ทดสอบแล้วผ่านคือไฟล์ตัวอย่างที่แนบมาชื่อว่า รายชื่อนักเรียนที่เกิน 7 คลอลัมน์.csv
ส่วนไฟล์ที่ทดสอบแล้วไม่ผ่านคือไฟล์ .CSV (StudentinschoolList.csv)

[parakorn]

ปรับตามนี้ครับ

Code: Select all

If cHead <> 7

[tigerwit]

ขอบคุณครับ