荊門市審計(jì)局 劉津津

近期，筆者在扶貧資金審計(jì)中進(jìn)行大數(shù)據(jù)分析時(shí)，遇到需將我市各地區(qū)扶貧辦建檔立卡貧困人口數(shù)據(jù)匯總后再導(dǎo)入數(shù)據(jù)庫(kù)中進(jìn)行關(guān)聯(lián)比對(duì)分析的情況。由于數(shù)據(jù)量較大、涉及的表格數(shù)量較多，常規(guī)的復(fù)制粘貼方法匯總起來(lái)需耗費(fèi)大量的時(shí)間。如何進(jìn)行快匯總呢？遇到此類問(wèn)題，EXCEL高手們可能會(huì)使用VBA實(shí)現(xiàn)快速匯總，筆者給大家分享一個(gè)更加簡(jiǎn)單的方法：巧用CMD命令實(shí)現(xiàn)EXCEL多表數(shù)據(jù)快速匯總，可提高大家的工作效率，計(jì)算機(jī)水平不高的同志也能輕易掌握。具體步驟如下：

第一步：將需匯總的EXCEL表格存放在一個(gè)文件夾下，并將所有EXCEL表格轉(zhuǎn)換為.csv格式。

（1）如匯總的表格數(shù)量較少則直接打開(kāi)EXCEL表格另存為.csv即可，如下圖：

（2）如匯總的表格較多則可使用VBA代碼實(shí)現(xiàn)批量自動(dòng)轉(zhuǎn)換，方法如下：

1.新建“扶貧數(shù)據(jù)”文件夾用來(lái)保存需轉(zhuǎn)換的EXCEL文件,新建“CSV保存目錄”文件夾用來(lái)保存轉(zhuǎn)換后的CSV文件。

2.新建一個(gè)EXCEL表格，打開(kāi)后，點(diǎn)擊菜單欄上的“開(kāi)發(fā)工具”；功能區(qū)下點(diǎn)擊插入-表單控件-按鈕，添加按鈕并命名為“excel文件批量轉(zhuǎn)換成csv文件”，如下圖：

3.打開(kāi)Visual Basic，在左側(cè)工程資源管理器中雙擊Sheet1 (Sheet1)打開(kāi)代碼窗口輸入下列代碼后保存；然后選中“excel文件批量轉(zhuǎn)換成csv文件”按鈕-右鍵-指定宏，選擇剛建立的宏名稱后，單擊運(yùn)行按鈕即可實(shí)現(xiàn)EXCEL文件批量自動(dòng)轉(zhuǎn)換為CSV文件。如下圖：

具體代碼如下：

Sub SaveToCSVs

Dim fDir As String

Dim wB As Workbook

Dim wS As Worksheet

Dim fPath As String

Dim sPath As String

fPath = 'C:\Users\LJJ\Desktop\扶貧數(shù)據(jù)\' '需要轉(zhuǎn)換成CSV的Excel源文件目錄

sPath = 'C:\Users\LJJ\Desktop\csv保存目錄\' '轉(zhuǎn)換后的CSV文件保存目錄

fDir = Dir(fPath)

Do While (fDir <> '')

If Right(fDir, 4) = '.xls' Or Right(fDir, 5) = '.xlsx' Then

On Error Resume Next

Set wB = Workbooks.Open(fPath & fDir)

'MsgBox (wB.Name)

For Each wS In wB.Sheets

wS.SaveAs sPath & wB.Name & '.csv', xlCSV

Next wS

wB.Close False

Set wB = Nothing

End If

fDir = Dir

On Error GoTo 0

Loop

End Sub

需要注意的是代碼中的fPath = 'C:\Users\LJJ\Desktop\扶貧數(shù)據(jù)\'為需要轉(zhuǎn)換成CSV的Excel源文件目錄，sPath = 'C:\Users\LJJ\Desktop\csv保存目錄\'為轉(zhuǎn)換后的CSV文件保存目錄，這兩個(gè)目錄需要根據(jù)實(shí)際進(jìn)行修改。運(yùn)行完成后打開(kāi)“csv保存目錄”文件夾即可看到轉(zhuǎn)換好的csv文件，如下圖：

第二步：編寫CMD命令實(shí)現(xiàn)EXCEL多表數(shù)據(jù)快速匯總。

（1）編寫CMD命令。打開(kāi)“csv保存目錄”文件夾，按SHIFT+右鍵，點(diǎn)擊“在此處打開(kāi)命令窗口”，在命令窗口中運(yùn)行命令copy *.csv 匯總.csv，即把該路徑下所有的csv文件匯總到“匯總.csv”文件中。如下圖：

（2）匯總完成后數(shù)據(jù)處理。打開(kāi)匯總.csv文件，通過(guò)EXCEL篩選功能刪除多余列名保存后導(dǎo)入數(shù)據(jù)庫(kù)中。

注意匯總csv文件后如遇到身份證號(hào)、銀行賬號(hào)等數(shù)據(jù)比較長(zhǎng)的列顯示為科學(xué)計(jì)數(shù)法，可新建EXCEL后打開(kāi)，點(diǎn)擊菜單“數(shù)據(jù)”，點(diǎn)擊“獲取數(shù)據(jù)”，然后選擇相應(yīng)的csv文件打開(kāi)則顯示正常。