SharePoint 列表/Excel 到 Ms Access 在分隔符处拆分

Posted 2023-05-07

【中文标题】SharePoint 列表/Excel 到 Ms Access 在分隔符处拆分

【英文标题】：SharePoint List/Excel to Ms Access splitting at delimiter

【发布时间】：2017-04-06 13:13:44

【问题描述】：

我有一个 SharePoint 列表，员工进去填写信息，然后我将列表导出到 Excel（在我的公司，Access 和 SharePoint 不能很好地相互配合）并将其导入到 Access 中以运行报告。很棒，除了一栏。员工可以在多个县工作，所以在 SharePoint 上我有一个查找列，他们可以在其中选择多个县...问题是，当我将其导出到 Excel 时，它看起来像这样：

[县] Outagamie;#1

[县] 阿什兰;#35;#Bayfield;#66;#Douglas;#67;#Iron;#68

我只想要县名：

[县] Outagamie

[县] 阿什兰、贝菲尔德、道格拉斯、艾恩

同样，有些员工可能有一个县，有些可能有 5 或 6 个。我知道我可以在 excel 中做一个公式，但我试图让其他将运行此报告的人更容易做到这一点，所以我想只需导入 Excel 文件并根据查询运行报告。

看在上帝的份上，您会认为这在 Access 查询中是一件容易的事，但是当我研究这个时，我只找到了在 Excel 中执行此操作的方法。必须有一种方法可以在 Access 中执行此操作。请帮忙...

【参考方案1】：

嗯，看起来查找/替换可以解决问题。

【讨论】：

感谢您的帮助。当我尝试查找/替换时，它说找不到任何项目，复制并粘贴了文本，但仍然没有得到任何结果。我在 Google 上搜索了替换功能，但没有找到任何符合多个条件的好信息。至少在 Access 中...我正在尝试跳过使用 Excel，但似乎这可能是我唯一的选择。

【参考方案2】：

你可以像这样创建一个小辅助函数：

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