run ข้อมูลแล้วติด debug ซึ่งก็กำหนด ชื่อไฟล์ ชื่อชีท ตรงทุกอย่างแล้ว ทำไมรันไม่ได้

[March201711]

ต้องการ copy ข้อมูลจากไฟล์งาน Data_main ชื่อชีท Data_RRx มาวางไว้ที่ ชื่อไฟล์ SummData_all ที่ชื่อชีท "Data" แต่รันแล้วมันติด debug ค่ะ ต้องปรับแก้โค้ดมาร์โคยังไงคะ

Code: Select all

Sub DailyImport()
'
' DailyImport Macro
'

'
    
    Dim sb As Workbook, rs As Range
    Dim tb As Workbook
    Dim sh As Worksheet

    Set sb = Workbooks("Datan_main.xlsx")
    Set sh = Sheets("Daily_RRx")
    Set tb = Workbooks("SummData_all.xlsm")
    
    
    For Each sh In sb.Worksheets
        Set rs = sh.Range("B7", sh.Range("B" & sh.Rows.Count).End(xlUp))
    tb.Activate
        With tb.Worksheets("Data")
            With .Range("B" & .Rows.Count).End(xlUp).Offset(1, 0)
                .Resize(rs.Rows.Count, 12).Value = rs.Resize(, 12).Value
            End With
        End With
    Next sh


    
    
End Sub

[puriwutpokin]

ชื่อไฟล์ ในโค้ดไม่ตรงครับ มี n Datan_

[March201711]

แก้โค้ดแล้วค่ะ แต่ก็ยังรันไม่ได้ค่ะ

[puriwutpokin]

แก้ไขตรงนี้ครับ

Code: Select all

Set sh = sb.Sheets("Daily_RRx")

[March201711]

ได้แล้วค่ะ ขอบคุณมากค่ะ