[kapetang]

Καλημέρα

Δημήτρη, μάλλον δεν έγινα κατανοητός με τις προϋποθέσεις.

Για να γίνει σωστά και εύκολα η συγχώνευση των δεδομένων θα πρέπει να είναι οργανωμένα όπως στους πίνακες της access και η πρώτη γραμμή του φύλλου να περιέχει τις ετικέτες (ονόματα πεδίων) των στηλών.

Ο εντοπισμός του φύλλου μπορεί να γίνει από τον κώδικα και μάλιστα μπορεί να εμφανίζει μόνο αυτό το φύλλο.

Στη ρουτίνα του Σπύρου, άλλαξε τον κώδικα που εντοπίζει τα φύλλα με τον ακόλουθο.

                   For Each AD_Table In AD_Catalog.Tables
                        If InStr(AD_Table.Columns(0), "Delivery") Then
                            TableName = AD_Table.Name
                            If Right(TableName, 1) = "$" Or Right(TableName, 2) = "$'" Then
                                If Left(TableName, 1) = "'" Then TableName = Mid(TableName, 2)
                                If Right(TableName, 1) = "'" Then
                                    TableName = Left(TableName, Len(TableName) - 2)
                                Else
                                    TableName = Left(TableName, Len(TableName) - 1)
                                End If
                                sh.Cells(LRow, i) = TableName
                                i = i + 1
                            End If
                        End If
                    Next

Φιικά/Γιώργος