在csv文件中执行宏命令或创建将文件转换为csv的宏

Question

我有一个文件，其中包含信息表和有关条目的信息。在表中，我有列，表中的一列是社会安全号码，我所在国家的ID号是9位数字。 ID编号通常以0位数开头。 Excel总是忽略数字0，我编写了一个加0的宏代码。但是在将文件再次转换为数字0之后，我最终将文件转换为CSV。我想知道如何在CSV中执行宏代码（消失了0-我很乐意在csv文件上设置宏，或者至少执行一个将文件转换为.csv文件并保存消失的0的宏。这是我在xslm上运行的命令：

Sub Add_Zeros()
    Selection.NumberFormat = "@"
    For Each CL In Selection.Cells
        If CL <> "" Then CL.Value = Application.Rept("0", (9 - Len(CL))) & CL
    Next
End Sub

Answer 1

Csv将具有0。您可以通过在记事本中打开进行检查。如果双击CSV并在Excel中打开，则0s将消失。

要保留0s，您将必须直接在Excel中导入数据。请按照以下步骤操作。

1. 单击“数据”选项卡|来自文字
2. 从文件选择对话框中选择Csv
3. 在文本导入向导（步骤1）中，选择“定界”，然后单击下一步。
4. 在文本导入向导（步骤2）中，选择“逗号”，然后单击下一步。
5. 在文本导入向导（STEP 3）中，选择所有列，然后单击“列数据格式”中的“文本”
6. 点击完成
7. 选择要在其中导入数据的单元格，然后单击“确定”