KlausW
Active Member
- Joined
- Sep 9, 2020
- Messages
- 386
- Office Version
- 2016
- Platform
- Windows
Hi, is it possible to get Excel to import the tabs only once, no matter how many times I run the code. That is if new tabs are added.
Any help will be much appreciated.
Many Thanks
Klaus W
Sub Rektangelafrundedehjørner1_Klik()
Dim SS As Integer
SS = Sheets.Count
Path = Range("h1")
Filename = Dir(Path & "*.xlsm")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(SS)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
Any help will be much appreciated.
Many Thanks
Klaus W
Sub Rektangelafrundedehjørner1_Klik()
Dim SS As Integer
SS = Sheets.Count
Path = Range("h1")
Filename = Dir(Path & "*.xlsm")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(SS)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub