使用VBA复制和粘贴公式

Question

我是VBA的新手。我有一个具有公式的文件，并希望在不同的工作簿上复制相同的文件。包含公式的文件具有固定名称，而其他文件将具有不同的文件名。复制公式后，我还想将其移动到另一个文件夹。

我有超过300个excel文件来执行此任务，我想知道VBA是否可以帮助我。

请帮忙!! 事先感谢你。

Answer 1

试试这段代码。

Sub LoopThroughFiles()

'DECLARE AND SET VARIABLES
Dim wbk As Workbook
Dim Filename As String
Dim Path As String
Path = "C:\..." 'Enter path of XLS direcroty
Filename = Dir(Path & "*.xlsm")
'--------------------------------------------
'OPEN EXCEL FILES
 Do While Len(Filename) > 0  'IF NEXT FILE EXISTS THEN
Set wbk = Workbooks.Open(Path & Filename)
'
' CODE GOES HERE
'
 wbk.Close True
Filename = Dir
Loop
End Sub