急！！！求指导

Question

EXCEL中的VB
Sub test()
    Application.ScreenUpdating = False
    p = "F:\360data\重要数据\桌面\过磅单打印\韩未\3\" 
    f = Dir(p & "*.xls")
    m = ThisWorkbook.Name
    Do While f <> ""
        If f <> m Then
            Set w = Workbooks.Open(p & f)
            w.Sheets(1).Range("R9") = "天美建材" 
            w.Close True
        End If
        f = Dir
    Loop
    Application.ScreenUpdating = True
End Sub
w.Sheets(1).Range("R9") = "天美建材"  我想把EXCEL中R9的数值改成原数值+10000 
这个怎么操作  求指导 万分感激

Answer 1

If f <> m Then
            Set w = Workbooks.Open(p & f)
            'w.Sheets(1).Range("R9") = "ÌìÃÀ½¨²Ä"
              If (Application.WorksheetFunction.IsNumber(w.Sheets(1).Range("R9"))) Then
              w.Sheets(1).Range("R9") = w.Sheets(1).Range("R9") + 10000
              End If
            w.Close True
            
        End If