การดึงข้อมูลจาก Woorkbook อื่นที่ไม่ได้เปิดใช้งาน มายัง Workbok ใช้งาน (VBA)

[AArisa]

ขอความช่วยเหลือด้วยคะ พอดีจะดึงข้อมูลจาก Workbook อื่นที่ไม่ได้เปิดใช้งาน มายัง Workbook ใช้งาน แต่ไม่สามารถดึงข้อมูลมาเป็น Number format (ข้อมูลที่ต้องการดึงเป็นตัวเลขที่มาจากคำนวณ)

Code: Select all

Sub Sample()
    Dim wb1 As Workbook, wb2 As Workbook
    Dim Ret1, Ret2


    Set wb1 = ActiveWorkbook

    
    Ret1 = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", _
    , "Please select first file")
    If Ret1 = False Then Exit Sub

    Set wb2 = Workbooks.Open(Ret1)
    wb2.Sheets("SheetSourceName").Range("B6:EJ6").Copy wb1.Sheets("SheetTargetName").Range("B" & Rows.Count).Offset(1, 0)
    wb2.Close savechanges:=False
    


    Set wb2 = Nothing
    Set wb1 = Nothing
    
End Sub

[puriwutpokin]

ควรแนบไฟล์ตัวอย่างของปัญหามาเพื่อทดสอบครับ