:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser
🪷 คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ

Code VB ตรวจสอบชื่อไฟล์ก่อนนำเข้าข้อมูล

ฟอรัมถาม-ตอบปัญหาการใช้งาน Macro และ VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Post Reply
User avatar
tigerwit
Silver
Silver
Posts: 555
Joined: Wed Mar 31, 2010 10:51 pm
Location: สกลนคร
Excel Ver: 2019
Contact:
Contact tigerwit

Code VB ตรวจสอบชื่อไฟล์ก่อนนำเข้าข้อมูล

#1

Post by tigerwit »

จากไฟล์ที่แนบมา

Code: Select all

Sub ImportScoreFormCSV()
  Dim fileToOpen As Variant
  Dim fileFilterPattern As String
  Dim wsMaster As Worksheet
  Dim wbTextImport As Workbook
  '
    If MsgBox("คุณต้องการนำเข้าผลการเรียน ใช่หรือไม่?", 36, "ยืนยันการนำเข้าผลการเรียน") = 6 Then
        Application.ScreenUpdating = False
        fileToOpen = Application.GetOpenFilename(Title:="เปิดไฟล์ .csv เพื่อนำเข้าข้อมูล", FileFilter:="Text Files (*.txt; *.csv),*.txt;*.csv")
        If fileToOpen = False Then
                MsgBox "คุณไม่ได้เลือกไฟล์ที่จะนำเข้า", vbOKOnly + vbInformation, "ยกเลิกการนำเข้าข้อมูล"
        Else
            Workbooks.Open Filename:=fileToOpen, UpdateLinks:=0, local:=True
                Set wbTextImport = ActiveWorkbook
                Set wsMaster = ThisWorkbook.ActiveSheet
'                wsMaster.Unprotect Password:="ultraman711"
                wsMaster.Range("F6:S50,U6:V50,Z6:AM50,AO6:AP50").ClearContents
                       wbTextImport.Worksheets(1).Range("A1:N50").Copy
                        wsMaster.Range("F6").PasteSpecial xlPasteValues
                    wbTextImport.Worksheets(1).Range("O1:P50").Copy
                        wsMaster.Range("U6").PasteSpecial xlPasteValues
                    wbTextImport.Worksheets(1).Range("Q1:AD50").Copy
                        wsMaster.Range("Z6").PasteSpecial xlPasteValues
                    wbTextImport.Worksheets(1).Range("AE1:AF50").Copy
                        wsMaster.Range("AO6").PasteSpecial xlPasteValues
                        Application.CutCopyMode = False
                    wbTextImport.Close False
        Range("F6").Select
'                wsMaster.Protect Password:="ultraman711"
    End If
        End If
Exit Sub
        Application.ScreenUpdating = True
                wsMaster.Protect Password:="11651165"
End Sub
ต้องการตรวจสอบว่าไฟล์ที่นำเข้านั้น มีชื่อไฟล์ตรงกับวิชาที่แสดงใน เซลล์ A18 หรือ ถ้าตรงให้นำเข้า ถ้าไม่ตรงให้แสดงการแจ้งเตือนว่าไม่ใช่ไฟล์ที่จะนำเข้า แล้ว ยกเลิกการนำเข้า
จะต้องปรับ Code อย่างไรครับ

(ชื่อไฟล์จะมีคำว่าคะแนนนำหน้า และจะเว้นวรรคแล้วต่อด้วยห้อง ทุกไฟล์ เช่น คะแนนสังคมศึกษา ห้อง1 คะแนนพละ ห้อง1 คะแนนภาษาไทย ห้อง1)
Attachments
ExpScore.xlsb
(24.03 KiB) Downloaded 2 times
คะแนนภาษาไทย ห้อง1.csv
(1.35 KiB) Downloaded 1 time
คะแนนศิลปะ ห้อง1.csv
(1.35 KiB) Downloaded 1 time
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31190
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: Code VB ตรวจสอบชื่อไฟล์ก่อนนำเข้าข้อมูล

#2

Post by snasui »

:D ตัวอย่างการตรวจสอบชื่อไฟล์กับเซลล์ A18 หากไม่ตรงให้ยกเลิกการทำงานครับ

Code: Select all

'Other code
If fileToOpen = False Then
        MsgBox "คุณไม่ได้เลือกไฟล์ที่จะนำเข้า", vbOKOnly + vbInformation, "ยกเลิกการนำเข้าข้อมูล"
Else
    If Not VBA.InStr(fileToOpen, Range("a18").Value) Then
        'Your message
        Exit Sub
    End If
    Workbooks.Open Filename:=fileToOpen, UpdateLinks:=0, local:=True
        Set wbTextImport = ActiveWorkbook
        Set wsMaster = ThisWorkbook.ActiveSheet
'Other code
Top
User avatar
tigerwit
Silver
Silver
Posts: 555
Joined: Wed Mar 31, 2010 10:51 pm
Location: สกลนคร
Excel Ver: 2019
Contact:
Contact tigerwit

Re: Code VB ตรวจสอบชื่อไฟล์ก่อนนำเข้าข้อมูล

#3

Post by tigerwit »

ขอบคุณครับ
ทดสอบแล้วยังมีปัญหา ไม่สามารถนำเข้าได้ทั้งที่ชื่อไฟล์ กับ ชื่อใน A18 ตรงกัน
ไม่ทราบว่าเกิดจากสาเหตุใดครับ

Code: Select all

Sub ImportScoreFormCSV()
  Dim fileToOpen As Variant
  Dim fileFilterPattern As String
  Dim wsMaster As Worksheet
  Dim wbTextImport As Workbook
    If MsgBox("คุณต้องการนำเข้าผลการเรียน ใช่หรือไม่?", 36, "ยืนยันการนำเข้าผลการเรียน") = 6 Then
        Application.ScreenUpdating = False
        fileToOpen = Application.GetOpenFilename(Title:="เปิดไฟล์ .csv เพื่อนำเข้าข้อมูล", FileFilter:="Text Files (*.txt; *.csv),*.txt;*.csv")
        
        If fileToOpen = False Then
                MsgBox "คุณไม่ได้เลือกไฟล์ที่จะนำเข้า", vbOKOnly + vbInformation, "ยกเลิกการนำเข้าข้อมูล"
        Else
        If Not VBA.InStr(fileToOpen, Range("a18").Value) Then
            MsgBox "ชื่อไฟล์นำเข้าไม่ถูกต้อง", vbOKOnly + vbInformation, "ยกเลิกการนำเข้าข้อมูล"
        Exit Sub
        End If
   
    Workbooks.Open Filename:=fileToOpen, UpdateLinks:=0, local:=True
        Set wbTextImport = ActiveWorkbook
        Set wsMaster = ThisWorkbook.ActiveSheet
    Workbooks.Open Filename:=fileToOpen, UpdateLinks:=0, local:=True
        Set wbTextImport = ActiveWorkbook
        Set wsMaster = ThisWorkbook.ActiveSheet
        
            Workbooks.Open Filename:=fileToOpen, UpdateLinks:=0, local:=True
                Set wbTextImport = ActiveWorkbook
                Set wsMaster = ThisWorkbook.ActiveSheet
'                wsMaster.Unprotect Password:="ultraman711"
                wsMaster.Range("F6:S50,U6:V50,Z6:AM50,AO6:AP50").ClearContents
                       wbTextImport.Worksheets(1).Range("A1:N50").Copy
                        wsMaster.Range("F6").PasteSpecial xlPasteValues
                    wbTextImport.Worksheets(1).Range("O1:P50").Copy
                        wsMaster.Range("U6").PasteSpecial xlPasteValues
                    wbTextImport.Worksheets(1).Range("Q1:AD50").Copy
                        wsMaster.Range("Z6").PasteSpecial xlPasteValues
                    wbTextImport.Worksheets(1).Range("AE1:AF50").Copy
                        wsMaster.Range("AO6").PasteSpecial xlPasteValues
                        Application.CutCopyMode = False
                    wbTextImport.Close False
        Range("F6").Select
'                wsMaster.Protect Password:="ultraman711"
    End If
        End If
Exit Sub
        Application.ScreenUpdating = True
                wsMaster.Protect Password:="11651165"
End Sub
Attachments
คะแนนภาษาไทย.csv
(1.35 KiB) Downloaded 2 times
ExpScore.xlsb
(28.15 KiB) Downloaded 2 times
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31190
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: Code VB ตรวจสอบชื่อไฟล์ก่อนนำเข้าข้อมูล

#4

Post by snasui »

:D ปรับ Statement ในการตรวจสอบเป็นด้านล่างครับ

If VBA.InStr(fileToOpen, Range("a18").Value) = 0 Then
Top
User avatar
tigerwit
Silver
Silver
Posts: 555
Joined: Wed Mar 31, 2010 10:51 pm
Location: สกลนคร
Excel Ver: 2019
Contact:
Contact tigerwit

Re: Code VB ตรวจสอบชื่อไฟล์ก่อนนำเข้าข้อมูล

#5

Post by tigerwit »

ได้แล้วครับ
ขอบคุณครับ
Top
User avatar
tigerwit
Silver
Silver
Posts: 555
Joined: Wed Mar 31, 2010 10:51 pm
Location: สกลนคร
Excel Ver: 2019
Contact:
Contact tigerwit

Re: Code VB ตรวจสอบชื่อไฟล์ก่อนนำเข้าข้อมูล

#6

Post by tigerwit »

อาจารย์ครับ
อยากทราบความหมายของบรรทัดนี้

Code: Select all

If VBA.InStr(fileToOpen, Range("a18").Value) = 0 Then
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31190
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: Code VB ตรวจสอบชื่อไฟล์ก่อนนำเข้าข้อมูล

#7

Post by snasui »

:D แปลว่าให้หาว่า Range("a18").Value มีอยู่ใน fileToOpen หรือไม่

หากมีจะแสดงค่าตำแหน่งที่พบ หากไม่มีจะแสดงค่าเป็น 0 ครับ
Top
Post Reply

Return to “Excel Macro & VBA”