ขอช่วยเรื่องการจัดระบบฐานข้อมูลที่ถูกต้องค่ะ

[snasui]

ลองลำดับขั้นตอนการทำงานมาให้ดูหน่อยครับว่า ปัจจุบันเปิดไฟล์ใดไว้ก่อนที่จะ Run Code บ้าง

หากไม่เปิดไฟล์ไว้ Code น่าจะติดตั้งแต่ Set wdShare = Workbooks("PoBookShare.xlsx") แล้วครับ

[suka]

ค่ะอาจารย์ ตอน Run Code เปิดทั้ง 3 ไฟล์ค่ะ เปิดไฟล์ AR.Form ก่อนค่ะ

1.ไฟล์ AR.Form เพื่อกรอกข้อมูล

2.ไฟล์ ArBookShare รอรับข้อมูลจากไฟล์ AR.Form

3.ไฟล์ PoBookShare ร้บข้อมูลที่เข้าเงื่อนไขให้ใส่ Y ที่คอลัมน์ AD ค่ะ

[snasui]

หากเปิดไฟล์ทั้งหมดไว้ก่อนแล้ว จาก Error ที่แนบมา หมายถึง ตัวแปร wdShare ที่กำหนดเป็น Workbook ไม่มีชีทที่ชื่อว่า Sheet1 ครับ

[suka]

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

Code: Select all

Sub BeenArL()                               
    Dim wbShare As Workbook
    Dim wdShare As Workbook
    Dim formBook As Workbook
    'Dim wdShareOpen As Boolean
    Dim rSource As Range
    Dim rTarget As Range
    Dim rs As Range
    Dim rt As Range
    Dim i As Double
    Set formBook = ThisWorkbook
    Set wbShare = Workbooks("ArBookShare.xlsx")
    Set wdShare = Workbooks("PoBookShare.xlsx")
    'For Each wdShare In Workbooks
    'If wdShare.Name = "PoBookShare.xlsx" Then
       ' wdShareOpen = True
    'End If
    'Next wdShare
    'If Not wdShareOpen Then
    'Workbooks.Open Filename:="\\Server\DATA (E)\My P S  Project.xls\PS.BookShare\PO.ãºÊè§ÊÔ¹¤éÒ\PoBookShare.xlsx"
   ' End If

    With formBook.Sheets("Form")
        Set rSource = .Range("B3:B50")
    End With
    With wdShare.Sheets("Sheet1")
        Set rTarget = .Range("E2", .Range("E" & Rows.Count).End(xlUp))
    End With

[snasui]

ลองเปิดทั้ง 3 ไฟล์ เอา Comment ออก กดแป้น F8 ซ้ำ ๆ แล้วดูว่าติดที่บรรทัดใดครับ

[suka]

อาจารย์คะ ติดที่บรรทัดนี้ค่ะ

Code: Select all

With wdShare.Sheets("Sheet1")

[suka]

เรียนอาจารย์ค่ะ ขอแนบไฟล์มี 3 ไฟล์ค่ะ ให้อาจารย์ช่วยดูว่ามีติดปัญหาตรงจุดใดค่ะ

[suka]

อาจารย์คะ ขอนุญาตส่งทาง Email นะคะ
แนบไฟล์ ArBookShar​e และ ไฟล์ PoBookShar​e ทางฟอรัมไม่ผ่านค่ะ

[snasui]

ดูตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Sub BeenArL()
    Dim wbShare As Workbook
    Dim wb As Workbook ' declare wb as workbook
    Dim wdShare As Workbook
    Dim formBook As Workbook
    Dim wdShareOpen As Boolean
    Dim rSource As Range
    Dim rTarget As Range
    Dim rs As Range
    Dim rt As Range
    Dim i As Double
    Set formBook = ThisWorkbook
    Set wbShare = Workbooks("ArBookShare.xlsx")
    For Each wb In Workbooks ' loop wb not loop wdShare
        If wb.Name = "PoBookShare.xlsx" Then
            wdShareOpen = True
        End If
    Next wb
    If Not wdShareOpen Then
        Workbooks.Open Filename:="\\Server\DATA (E)\My P S  Project.xls\PS.BookShare\PO.ãºÊè§ÊÔ¹¤éÒ\PoBookShare.xlsx"
    End If
    Set wdShare = Workbooks("PoBookShare.xlsx") 'set wdShare after open not before open
    With formBook.Sheets("Form")
        Set rSource = .Range("B3:B50")
    End With
    'Other code
End Sub

[suka]

ขอบพระคุณค่ะอาจารย์ โปรแกรมสามารถทำงานได้ดีตรงตามต้องการแล้วค่ะ