Linie zaczynające się od Debug.Print możesz bez konsekwencji usunąć.
Pozdrawiam
napisał: tsQ postów: 1
umieszczony: 30 marca 2015 08:37
Witam,
mam w folderze kilka plików które chciałbym zapisać w nowym jednym pliku, ale każdy plik w oddzielnym arkuszu. Znalazłem jakikolwiek kod w internecie i chciałem go przerobić na swoje potrzeby, ale nie udaje mi się przebrnąć przez pierwszą fazę. Zwracaj sPath, ale potem nic się nie dzieje. Oto kod, który znalazłem:
Sub GetSheets()
Const sPath As String = "C:\folder"
Dim sFile As String
Dim oSht As Object
Debug.Print "The value of variable X is: " & sPath
sFile = Dir(sPath & "*.xls")
Debug.Print "The value of variable X is: " & sFile
Do While Len(sFile)
With Workbooks.Open(Filename:=sPath & sFile)
For Each oSht In .Sheets
oSht.Copy After:=ThisWorkbook.Sheets(1)
Next oSht
.Close SaveChanges:=False
End With
sFile = Dir()
Loop
End Sub