Rivitiedon siirtäminen toiseen tiedostoon joka päivä

Riippuu ihan paikasta X. Ei ole mitään yleisratkaisua, jos ei tiedetä mihin tieto halutaan.

Jos pysytään Excel-maailmassa, niin ajatus olisi että tämä päivittäinen rivitieto olisi vietävissä siihen isompaan exceliin päivämäärä riveittäin.

Sub LisääRaportti()

Dim app As New Excel.Application
Dim rapo As Excel.Workbook

Set fd = Application.FileDialog(msoFileDialogFilePicker)
solut = Split("B3;C4;D5;D6;E4;G4", ";")
With fd
.Filters.Clear
.Title = "Haettava Raportti"
.Filters.Add "Picture Files", "*.xls,*.xlsx,*.xlsm", 1
.AllowMultiSelect = False
r = Cells(Rows.Count, "A").End(xlUp).Row 1
If .Show = -1 Then
f = .SelectedItems(1)
Set book = app.Workbooks.Add(f)
app.Visible = False
Else
Exit Sub
End If
End With
c = 1 ' jos päivämäärä on raportissa, tähän tulee 0 ja päivämäärän sisältävä solu lisätään listaan
Cells(r, c) = Now()
For i = 0 To UBound(solut)
c = c 1
Cells(r, c) = rapo.ActiveSheet.Range(solut(i))
Next

rapo.Close SaveChanges:=False
app.Quit
Set app = Nothing
End Sub