2017-04-06 2 views
0

J'ai une liste SharePoint, les employés entrent et remplissent des informations, puis j'exporte la liste vers Excel (dans mon entreprise, Access et SharePoint ne jouent pas bien les uns avec les autres) et l'importer dans Access pour exécuter des rapports. C'est génial, sauf pour une colonne. Les employés peuvent travailler dans plusieurs comtés, donc sur SharePoint, j'ai une colonne de recherche où ils peuvent sélectionner plusieurs comtés ... le problème est, quand je l'exporte vers Excel, il ressemble à ceci:SharePoint List/Excel vers Ms scission d'accès au délimiteur

[County] Outagamie; 1

[Comté] Ashland; # 35; #Bayfield; # 66; #Douglas; # 67; #Iron; # 68

Je veux que les noms de comté:

[Comté] Outagamie

[Comté] Ashland, Bayfield, Douglas, Fer

Encore quelques employés peuvent avoir un comté, certains pourraient avoir 5 ou 6. Je sais que je peux faire une formule dans Excel, mais j'essaye de rendre ceci facile sur d'autres personnes qui exécuteront ce rapport, ainsi je voudrais juste importer le fichier Excel et exécuter les rapports en fonction des requêtes. Pour l'amour de Dieu, vous penseriez que ce serait une chose facile dans une requête Access, mais quand je recherche cela, je trouve seulement des façons de le faire dans Excel. Il doit y avoir un moyen de le faire dans Access. S'il vous plaît aider ...

Répondre

0

Hummm, semble que Find/Replace ferait l'affaire.

+0

Merci pour l'aide. Lorsque j'essaie la fonction Rechercher/Remplacer, elle indique qu'aucun élément ne peut être trouvé, a fait une copie et un collage du texte, mais ne donne toujours aucun résultat. J'ai cherché Google pour la fonction de remplacement, mais je n'ai trouvé aucune bonne information pour plusieurs critères. Au moins dans Access ... J'essaie d'ignorer Excel, mais il semble que ce soit mon seul choix. – Jordy

0

Vous pouvez créer une petite fonction d'aide comme ceci:

Public Function CleanString(ByVal Value As String) As String 

    Dim Parts As Variant 
    Dim Part As Integer 
    Dim Result As String 

    Parts = Split(Value, ";#") 
    For Part = LBound(Parts) To UBound(Parts) 
     If Part Mod 2 = 0 Then 
      If Result <> "" Then 
       Result = Result & ", " 
      End If 
      Result = Result & Parts(Part) 
     End If 
    Next 

    CleanString = Result 

End Function