Snasui Excel Forum

Code: Select all

        	Set fso = CreateObject("Scripting.FileSystemObject")
                Workbooks.Open nameSvFile ' Or ThisWorkbook.Path & "\" & fName
                ' <-- ต้องการปรับตรงส่วนนี้ให้กระชับสั้นลงหน่อยครับ -->
                Workbooks(fso.GetFileName(nameSvFile)).Worksheets("sheets1").Range("C12,C13,C18").Value = mn_d
                Workbooks(fso.GetFileName(nameSvFile)).Worksheets("sheets1").Range("D12,D13,D18").Value = vlu_m
                Workbooks(fso.GetFileName(nameSvFile)).Worksheets("sheets1").Range("F12,F13,F18").Value = mn_y
                ' <-------------------------------------->                
                Workbooks(fso.GetFileName(nameSvFile)).Save

Code: Select all

With Workbooks(fso.GetFileName(nameSvFile)).Worksheets("sheets1").Range("C12,C13,C18")
    .Value = mn_d
    .Offset(0, 1).Value = vlu_m
    .Offset(0, 3).Value = mn_y
End With