亚洲欧美精品沙发,日韩在线精品视频,亚洲Av每日更新在线观看,亚洲国产另类一区在线5

<pre id="hdphd"></pre>

  • <div id="hdphd"><small id="hdphd"></small></div>
      學(xué)習(xí)啦>學(xué)習(xí)電腦>工具軟件>辦公軟件學(xué)習(xí)>Excel教程>Excel2013教程>

      Excel2013中進(jìn)行導(dǎo)出Csv格式的操作方法

      時間: 曉生931 分享

        有多個文件excel文件需要導(dǎo)出為CSV格式時,一個個導(dǎo)出非常麻煩。有些人想到批量轉(zhuǎn)換工具,然而工具沒找到,倒是下了一堆病毒。其他excel本身就可以實現(xiàn),只要編輯一段VBS代碼就可以輕松實現(xiàn)自動批量轉(zhuǎn)換。今天,學(xué)習(xí)啦小編就教大家在Excel2013中進(jìn)行導(dǎo)出Csv格式的操作方法。

        Excel2013中進(jìn)行導(dǎo)出Csv格式的操作步驟如下:

        首選我們把需要導(dǎo)出為CVS的Excel文件整理集中到一個文件夾中。然后新建一個文件夾用來保存CSV文件的。支持Xlsx、xls格式。

        新建一個EXCEL表格,打開后,點擊菜單欄上的“開發(fā)工具”;功能區(qū)下點擊打開Visual Basic。

        如果菜單欄上沒有開發(fā)工具,則在選項中添加。點擊文件,彈出菜單選擇選項。在EXCEL選項中,點擊自定義功能區(qū),右邊勾選開發(fā)工具,然后點擊確定。這樣開發(fā)工具就會顯示在菜單欄上。

        在左側(cè)工程資源管理器中雙擊Sheet1 (Sheet1)打開代碼窗口。工程資源管理器如果沒有顯示,則按ctrl+R就可以顯示了。

        在代碼窗口中輸入下面代碼,其中有兩行(圖片紅框位置)需要自己修改為實際文件來源路徑和保存路徑。就是開頭說到的那兩個文件夾位置。后面再解釋。

        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\qiany\Desktop\文件\"

        sPath = "C:\Users\qiany\Desktop\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\qiany\Desktop\文件\" -定義為需要轉(zhuǎn)換成CSV的Excel源文件。

        sPath = "C:\Users\qiany\Desktop\csv保存位置\" -定義為轉(zhuǎn)換后的CSV文件保存位置。

        這兩個位置需要自己按實際修改。特別注意:路徑需要以\結(jié)尾。

        寫好代碼后開始運(yùn)行。點擊菜單欄上的運(yùn)行,選擇運(yùn)行子過程/用戶窗體。

        彈出一個對話框,點擊運(yùn)行。

        接下來就開始進(jìn)入轉(zhuǎn)換過程,在這過程中會多個EXCEL窗體自動顯示再自動關(guān)閉,取決于多少個Excel文件。

        完成后我們打開剛才設(shè)定的保存文件夾,就可以看到轉(zhuǎn)換后的CSV文件。

        在步驟9的圖片中CSV的文件明顯多于剛才步驟1中的文件,為什么會這樣呢?

        因為原來的Excel的單個工作簿中有多個工作表,所以才會出現(xiàn)這么多的CSV文件。

        簡單的說,就是所有工作簿中的每個工作表都保存為一個CSV文件。


      Excel2013中進(jìn)行導(dǎo)出Csv格式的操作相關(guān)文章:

      1.怎么在excel2013中導(dǎo)出圖片

      2.word或csv文件如何轉(zhuǎn)換成excel

      3.怎么利用c語言創(chuàng)建excel文件

      4.怎么將excel轉(zhuǎn)換成csv

      5.excel表格導(dǎo)出到word中的方法

      6.如何導(dǎo)入excel通訊錄的教程

      7.如何將word導(dǎo)入excel

      Excel2013中進(jìn)行導(dǎo)出Csv格式的操作方法

      有多個文件excel文件需要導(dǎo)出為CSV格式時,一個個導(dǎo)出非常麻煩。有些人想到批量轉(zhuǎn)換工具,然而工具沒找到,倒是下了一堆病毒。其他excel本身就可以實現(xiàn),只要編輯一段VBS代碼就可以輕松實現(xiàn)自動批量轉(zhuǎn)換。今天,學(xué)習(xí)啦小編就教大家在Exc
      推薦度:
      點擊下載文檔文檔為doc格式

      精選文章

      • Excel2013中導(dǎo)出xml格式的操作方法
        Excel2013中導(dǎo)出xml格式的操作方法

        通過設(shè)定數(shù)據(jù)XML源,可以方便的將Excel的數(shù)據(jù)導(dǎo)出為XML格式。具體該怎么去進(jìn)行操作的呢?今天,學(xué)習(xí)啦小編就教大家在Excel2013中導(dǎo)出xml格式的操作方法。

      • Excel2013中打開表格自動運(yùn)行宏的操作方法
        Excel2013中打開表格自動運(yùn)行宏的操作方法

        excel中打開表格自動運(yùn)行宏的方法,具體該怎么去進(jìn)行操作的呢?今天,學(xué)習(xí)啦小編就教大家在Excel2013中打開表格自動運(yùn)行宏的操作技巧。 Excel2013中打開表格

      • Excel2013中進(jìn)行添加按鈕控件的操作方法
        Excel2013中進(jìn)行添加按鈕控件的操作方法

        在excel中已經(jīng)編輯好的宏,可以綁定到表格區(qū)域中的控件按鈕上。綁定后,用鼠標(biāo)左鍵單擊該按鈕,宏即生效。今天,學(xué)習(xí)啦小編就教大家在Excel2013中進(jìn)行

      • Excel2013中進(jìn)行快速移動單元格的操作方法
        Excel2013中進(jìn)行快速移動單元格的操作方法

        怎么在excel中快速將一個單元格或一個單元格區(qū)域移動到另外一個位置。今天,學(xué)習(xí)啦小編就教大家在Excel2013中進(jìn)行快速移動單元格的操作方法。 Excel2013中

      2210966