Is it possible to copy data to files that are not open

[dpaton05]

I have code to copy rows of data from a table in a spreadsheet to one of multiple other spreadsheets containing a table depending on the year in a date field of the row. Is it possible to copy it to spreadsheets that are not open? If it is possible, would you just need to store the extra spreadsheets in folder that is in the branch of the folder that contains the original spreadsheet?

The document file names are stored in folders that are within the folder that contains the file running this code.

This is the code to do this.

Sub cmdCopy()
        Dim wsDst As Worksheet
        Dim wsSrc As Worksheet
        Dim tblrow As ListRow
        Dim Combo As String
        Dim sht As Worksheet
        Dim tbl As ListObject
        Dim lastrow As Long
        Dim DocYearName As String
        
        Application.ScreenUpdating = False
        'assign values to variables
        
        Set tbl = ThisWorkbook.Worksheets("Costing_tool").ListObjects("tblCosting")
        For Each tblrow In tbl.ListRows
            If tblrow.Range.Cells(1, 1).Value = "" Or tblrow.Range.Cells(1, 5).Value = "" Or tblrow.Range.Cells(1, 6).Value = "" Then
                MsgBox "The Date, Service or Requesting Organisation has not been entered for every record in the table"
                Exit Sub
            End If
        Next tblrow
            
        For Each tblrow In tbl.ListRows
            Combo = tblrow.Range.Cells(1, 26).Value
            'lastrow = Worksheets(Combo).Cells(Rows.Count, "A").End(xlUp).Row + 1                                    'number of first empty row in column A of Combo
                
            If tblrow.Range.Cells(1, 6).Value = "Ang Wes" Then
                DocYearName = tblrow.Range.Cells(1, 37).Value
            Else
                DocYearName = tblrow.Range.Cells(1, 36).Value
            End If
            Set wsDst = Workbooks(DocYearName).Worksheets(Combo)
                With wsDst
                    'This copies the first 10 columns, i.e. A:J, of the current row of the table to column A in the destination sheet.
                    tblrow.Range.Resize(, 15).Copy
                    .Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValuesAndNumberFormats
                    'This should go to the 15th column in the current row, i.e. column O, and copy that column and the next 2 columns, i.e. O:Q, to column K on the destination sheet.
                        'tblrow.Range.Offset(, 14).Resize(, 3).copy
                        '.Range("K" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValuesAndNumberFormats
                    'Similarly this should copy columns AD:AF from the table to column N on the destination sheet.
                        'tblrow.Range.Offset(, 29).Resize(, 3).copy
                        '.Range("N" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValuesAndNumberFormats
                    'Sort rows based on date
                        Rows("3:1000").Select
                        Workbooks(DocYearName).Worksheets(Combo).Sort.SortFields.Clear
                        Workbooks(DocYearName).Worksheets(Combo).Sort.SortFields.Add Key:=Range("A4:A1000"), _
                            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
                                With Workbooks(DocYearName).Worksheets(Combo).Sort
                                    .SetRange Range("A3:AJ1000")
                                    .header = xlYes
                                    .MatchCase = False
                                    .Orientation = xlTopToBottom
                                    .SortMethod = xlPinYin
                                    .Apply
                                End With
                End With
        Next tblrow
        
        Application.CutCopyMode = False
        Application.ScreenUpdating = True
End Sub

 

[NdNoviceHlp]

I'm pretty sure that if U want to enter anything into a wb it has to be open. What's wrong with opening another wb, pasting your data then saving and closing your wb? HTH. Dave

 

[dpaton05]

I'm pretty sure that if U want to enter anything into a wb it has to be open. What's wrong with opening another wb, pasting your data then saving and closing your wb? HTH. Dave

The problem is that my supervisor might enter costings for the next 10 years and they want them to be copied to the relevant yearly documents and he doesn't want to need to have all those documents open.

 

[mumps]

It would make things easier if the files were all stored in the same folder. Secondly, you wouldn't need to leave all the documents open. As NdNoviceHlp suggested, you can have the macro open the file, copy/paste the data into that file and then close and save the file. This would all happen without the actions being visible. It would help if you could upload a copy of your file and include the full path to the folder where the files are saved.

 

[dpaton05]

I'm pretty sure that if U want to enter anything into a wb it has to be open. What's wrong with opening another wb, pasting your data then saving and closing your wb? HTH. Dave

Sorry, I didn't quite understand what you were saying.

 

[dpaton05]

It would make things easier if the files were all stored in the same folder. Secondly, you wouldn't need to leave all the documents open. As NdNoviceHlp suggested, you can have the macro open the file, copy/paste the data into that file and then close and save the file. This would all happen without the actions being visible. It would help if you could upload a copy of your file and include the full path to the folder where the files are saved.

That sounds like a good idea Mumps, I will try that and get back to you if I need some help.