ç¡®ä¿è¿ä¸ªæ件夹åªæè¿äºExcelæ件ï¼ä¸è¥æå¼æä¸æ件ï¼æ°æ®å°±è½çè§ââå³ä¸ç¨ç¹å
¶ä»sheetã
建ä¸æ°Excelï¼ä¹åå°è¯¥æ件夹ãä»
æå¼è¯¥æ°Excelï¼åæ¶æAltåF11ï¼ç¹èåçæå
¥ï¼æ¨¡åï¼ç²è´´å¦ä¸ä»£ç ï¼
Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match
cells(3,5) = "xxxx"
activeworkbook.save
Activeworkbook.Close
End If
Match = Dir$
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub
ç²ä½é¨åç
§ç«ç»èï¼ç¶åå¨æ¤çé¢ç´æ¥æF5è¿è¡æ¤å®ï¼å®ææä½ã
温馨提示:内容为网友见解,仅供参考