如何用VB對多個EXCEL表格中的數值進行修改操作

確保這個文件夾只有這些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運行此宏，完成操作。

上一篇:人們為什麽學英語？

下一篇:Qt未能設置鼠標形狀。