【excel怎么存为cvs】扶贫资金审计| EXCEL数据快速汇总方法

最近笔者在扶贫资金审计中进行大数据分析时，遇到了以下情况：需要对我市各地区进行扶贫化建设的贫困人口数据进行汇总，然后导入数据库进行相关比较分析。(威廉莎士比亚、温斯顿、穷人、穷人、穷人、穷人、穷人)数据量大，涉及的桌子数量多，所以总结一般的复制粘贴方法需要很多时间。如何快速概括？如果出现这种问题，EXCEL高手可以使用VBA进行快速汇总，笔者可以使用CMD命令快速汇总EXCEL多表数据，从而提高工作效率，并共享简单的方法，便于计算机水平不高的同志掌握。具体步骤如下：

步骤1:将要摘要的EXCEL表保存到一个文件夹中，并将所有EXCEL表保存到.转换为CSV格式。

(1)如果汇总的表数较少，请将EXCEL表显示为。直接用CSV打开即可。

(2)如果汇总的表单很多，则可以使用VBA代码执行批量自动转换，如下所示：

1.创建一个新的扶贫数据文件夹来存储要转换的EXCEL文件，并创建一个新的CSV存储目录文件夹来存储转换的CSV文件。

2。创建新的EXCEL表单后，单击菜单栏上的“开发工具”。在功能区下方插入-表单控件-单击按钮，添加按钮，然后命名为“excel文件批量转换为CSV文件”，如下图所示。

3。打开Visual Basic，在左侧项目浏览器中双击图纸1(图纸1)以打开“代码”窗口，输入以下代码，然后保存：然后选择“将批处理EXCEL文件转换为CSV文件”按钮。通过单击鼠标右键指定宏，选择刚才设置的宏名称，然后单击“运行”按钮，可以自动将一批excel文件转换为CSV文件。下图：

特定代码如下：

Sub SaveToCSVs

Dim fDir As String

Dim wB As Workbook

Dim ws as工作表

Dim fPath As String

Dim sPath As String

fpath=' c : \ users \ ljj \ desktop \扶贫数据\ ' '必须转换为CSV的Excel源文件目录

spath=' c : \ users \ ljj \ desktop \ CSV存储目录\ ' '转换后的CSV文件存储目录

FDir=Dir(fPath)

Do While (fDir ' ')

Ifright (fdir，4)='。xls' orright (fdir，5)='。xlsx' then

On Error Resume Next

Set wB=Workbooks。Open(fPath fDir)

MsgBox)

For Each wS In wB。Sheets

Ws.save as spath wb.name '。“CSV”、XL CSV

next ws

WB。Close False

Set wB=Nothing

End If

FDir=Dir

On Error GoTo 0

循环(音乐)

End Sub

在代码中，FPATH=' C : \ USERS \ LJJ \ DESKTOP \扶贫数据\ '是需要转换为CSV的Excel源文件目录，spath=' c:

步骤第2步：通过编写CMD命令，可以快速汇总EXCEL多表数据。

(1)创建CMD命令。打开Csv保存目录文件夹，按住SHIFT键并单击“打开命令窗口”，然后在命令窗口中单击copy * .csv摘要。运行CSV命令。也就是说，该路径下的所有CSV文件都将汇总。汇总为CSV文件。下图：

(2)汇总完成后处理数据。摘要。打开CSV文件，使用EXCEL过滤功能删除重复的列名，然后将其导入到数据库中。

摘要 CSV文件后，如果身份证号码、银行账户等数据较长的列显示为科学计算方法，请创建并打开新的EXCEL，单击菜单“数据”，单击“导入数据”，然后选择相应的CSV文件，显示正常。(作者单位：湖北省荆门市审计局)