DB Csv 导出和 Excel 数字格式

Posted 2023-02-24

【中文标题】DB Csv 导出和 Excel 数字格式

【英文标题】：DB Csv export and Excel numbers formating

【发布时间】：2021-03-17 09:06:21

【问题描述】：

我正在从数据库中以 csv 格式导出表格。我有以 0 开头的数字，例如 04596 或 059438。 如果我在 LibreOffice 或 Excel 中打开这个 csv，0 将被丢弃，数字显示为 4596 和 59438。 我正在将数字导出为文本，如果我在 notepad++ 中打开 csv 文件，0 就在那里，所有这些。

是否有一种解决方法可以使数字在文件中时可见？

【问题讨论】：

这些数字在 CSV 文件中是否有引号？

不。只是一个纯文本。我做了 $temp['number'] = " ' " . $arr['number'] . " ' " 这样的技巧，它在 Excel 中将数字显示为 '04569' 但对这个文件的进一步操作并不容易

也许可以试试双引号？ $temp = '"' . $arr['number'] . '"';

不幸的是，这也没有成功。它们都在 Excel 或 LibreOffice 中显示为“04569”或“04569”，并带有引号。

不要打开文件。您必须将文件导入到 Excel 中，并在导入时将该列指定为文本。为此，您可以使用 Power Query（和转换）或旧版向导。

【参考方案1】：

当您在 Calc 中手动打开 CSV 文件时，您会看到文本导入过滤器设置窗口。花点时间点击确定，不要跳过这一步！

选择不应被识别为数字但应保留带有前导零的文本的列，并将其类型指定为文本。还要为其余列设置正确的类型。您可以为不需要的列指定隐藏。检查其余参数的状态 - 代码页、语言、文本字段的引号类型等。

现在单击“确定”。确保导入按预期进行。

现在运行这个简单的宏

Sub getMeCode
Dim oDoc As Variant
Dim aArgs As Variant
Dim sResult As String
Dim sTemp As String
    oDoc = ThisComponent
    aArgs = oDoc.getArgs()
    sTemp = getValArg(aArgs, "URL")
    sResult = "Dim sUrl As String, oDoc As Variant" + Chr(10) + "sUrl = convertToURL(""" + convertFromURL(sTemp) +""")" + Chr(10)
    sResult = sResult + "Dim OpenProp(1) as New com.sun.star.beans.PropertyValue" + Chr(10)
    sResult = sResult + "OpenProp(0).name=""FilterName""" + Chr(10)
    sResult = sResult + "OpenProp(1).name=""FilterOptions""" + Chr(10)
    sTemp = getValArg(aArgs, "FilterName")
    sResult = sResult + "OpenProp(0).value=""" + sTemp + """" + Chr(10)
    sTemp = getValArg(aArgs, "FilterOptions")
    sResult = sResult + "OpenProp(1).value=""" + sTemp + """" + Chr(10)
    sResult = sResult + "If Not FileExists(sUrl) Then Exit Sub" + Chr(10)
    sResult = sResult + "oDoc = stardesktop.LoadComponentFromURL(sUrl, ""_blank"",0, OpenProp())"
    MsgBox(sResult,0,"Select, Press Ctrl+C and Paste to macro")
End Sub

这个宏使用 getValArg 辅助函数，这里是它的文本

Function getValArg(aArg As Variant, sNameArg As String) As Variant
Dim i As Long
Dim tmp As Variant
    getValArg = ""
    For i = LBound(aArg) To UBound(aArg)
        tmp = aArg(i)
        If UCase(tmp.Name) = UCase(sNameArg) Then
            getValArg = tmp.Value
            Exit Function
        EndIf
    Next i
End Function

因此，您会收到这样的消息。

注意下划线。如果您只对文件使用这样的参数（无论您使用哪种编程语言在 Calc 中打开文件），那么结果在大多数情况下都是正确的。

【讨论】：

所以，您评论的第一部分成功了！现在我可以看到此列中的所有零，但每次打开文件时都必须更改列类型。我几乎无法理解的带有宏的第二部分。它必须在 LibreOffice 中运行吗？我必须向客户解释，例如，他必须在打开 csv 文件之前运行这个宏？

您可以教客户端在手动打开文件时使用设置窗口。如果客户不愿意学习，您可以使用我的宏输出的代码为那个顽固的客户创建自定义扩展。扩展将是一个宏，但客户不需要知道它——他只会在工具栏上有一个按钮，例如“打开您的价格”，它将始终以所需的形式打开您的文件。我不知道你的任务，我不知道你会训练你的客户多少，我不知道你要花多少努力

明白。那将是 B 计划，你是对的，客户对此非常固执。

【参考方案2】：

将其转换为字符串，例如： echo "'".$number."'";

【讨论】：

它已经作为字符串来自db，我不需要转换它