Snasui Excel Forum

Code: Select all

Sub Im_Stu()
    If MsgBox("กรุณาเปิดไฟล์ Name2559.xls เพื่อนำเข้าข้อมูล", 1, "ยืนยันการนำเข้าข้อมูล") = 1 Then
            Windows("Name2559.xls").Activate
            Range("B2:G1500").Select
            Selection.Copy
            Windows("PP5-Edit.xlsm").Activate
            Range("B3").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
           MsgBox "นำเข้าข้อมูลเรียบร้อยแล้ว"
            Range("B3").Select
        End If
End Sub

Code: Select all

Sub Im_Stu()
Dim WB As Workbook
On Error Resume Next
Set WB = Workbooks("Name2559.xls")
If WB Is Nothing Then
    MsgBox "ไฟล์ Name2559.xls ยังไม่ได้เปิด กรุณาเปิดไฟล์ก่อน", vbCritical, "กรุณาเปิดไฟล์"
    Set WB = Nothing
    On Error GoTo 0
Else
    MsgBox ("ยืนยันการนำเข้าข้อมูล")
    Windows("Name2559.xls").Activate
    Range("B2:G1500").Select
    Selection.Copy
    Windows("PP5-Edit.xlsm").Activate
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    MsgBox "นำเข้าเรียบร้อยแล้ว"
    Range("B3").Select
    Set WB = Nothing
    On Error GoTo 0
End If
End Sub