importuje kilka plikow z jednego katalogu ale wszystkie maja taka strukture jak ten: (oczywiscie liczba linii jest zmienna)
2006-08-25 13:33:20 82,8 g
2006-08-25 13:34:10 58,5 g
uzywam do tego cos takiego:
Sub Import()
Dim mnthNum As Integer
Dim myBook As Workbook
Dim myRows As Long
With Application
.DisplayAlerts = False
.EnableEvents = False
.ScreenUpdating = False
End With
With Application.FileSearch
.NewSearch
mnthNum = Application.InputBox("What month Number?", Type:=1)
On Error GoTo ErrHandler:
.LookIn = "C:\backup\2006\" & mnthNum
.SearchSubFolders = False
.Filename = "*.txt"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Set myBook = Workbooks.Open(.FoundFiles(i))
myRows = ThisWorkbook.Worksheets(1).UsedRange.Rows.Count
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Worksheets(1).Cells(myRows + 1, 1) myBook.Close
Next i
End If
ErrHandler:
End With
With Application
.DisplayAlerts = True
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
i niestety problem jest taki ze:
ladnie wszystko sie robi ale importujac drugi plik nadpisuje ostatnia linie poprzedniego.. jak importuje trzeci to nadpisuje ostatnia linie drugiego.. itd..
Moze ktos ma jakis pomysl jak to rozwiazac??
pozdr
wstecz 1 dalej
otwarty rozpoczął: bratek
postów: 2
