<optgroup id="orbpw"><listing id="orbpw"><progress id="orbpw"></progress></listing></optgroup>
    <label id="orbpw"><button id="orbpw"></button></label>
  1. <cite id="orbpw"><sup id="orbpw"><option id="orbpw"></option></sup></cite>
    1. <label id="orbpw"><ruby id="orbpw"><span id="orbpw"></span></ruby></label>

          FJQ5108 / 知識 / 怎樣將幾百個單獨的excel表匯總到一個exce...

          分享

             

          怎樣將幾百個單獨的excel表匯總到一個excel表中呢?

          2018-05-20  FJQ5108

          想要將幾百個單獨的excel表匯總到一個excel表中,首先需要將所有excel表格的后綴名全部改為.xls。通常的excel表格的后綴名有.xls和.xlsx兩種。最后再把所有的sheet中需要打印的區域批量設置成一樣的格式。最后打印即可。

          一、更改excel表格后綴名

          1、將.xlsx后綴名的表格全部放到一個新建文件夾中,在文件夾中新建一個.txt文件。

          2、打開txt文件,并輸入【ren*.bat*.xls】,保存,關閉。將txt文件的后綴名改為bat,然后運行即可將excel的文件名改為xls了。

          二、匯總excel表

          1、在文件夾中新建一個excel表格,打開,以此按下【Atl】+【F11】,依次點擊【插入】,【模塊】。

          2、在彈出的框中,將以下代碼粘貼進去,點擊【運行】,【運行子過程/用戶窗體】

          Sub CombineWorkbooks()

          Dim FilesToOpen, ft

          Dim x As Integer

          Application.ScreenUpdating = False

          On Error GoTo errhandler

          FilesToOpen = Application.GetOpenFilename _

          (FileFilter:='Micrsofe Excel文件(*.xls), *.xls', _

          MultiSelect:=True, Title:='要合并的文件')

          If TypeName(FilesToOpen) = 'boolean' Then

          MsgBox '沒有選定文件'

          'GoTo errhandler

          End If

          x = 1

          While x <= ubound(filestoopen)="">

          Set wk = Workbooks.Open(Filename:=FilesToOpen(x))

          wk.Sheets().Move after:=ThisWorkbook.Sheets _ (ThisWorkbook.Sheets.Count)

          x = x + 1

          Wend

          MsgBox '合并成功完成!'

          errhandler:

          'MsgBox Err.Description

          'Resume errhandler

          End Sub

          3、選中想要合并的所有excel表格,點擊【打開】,提示【合并成功完成】。

          4、這樣所有的excel表格就都匯總到一個excel中了。

          三、將所有sheet設置成一樣的格式

          1、隨便選擇一個sheet,例如sheet1,選中想要打印的數據/表格,【打印預覽】調整好打印的區域。

          2、在sheet1上單擊鼠標右鍵,【選定全部工作表】,然后找到【填充】按鈕,選擇【組成工作表】

          3、在彈出的框中選擇【格式】,【確定】。這樣就設置完成了,打印時選擇【整個工作簿】


          喜歡的朋友請轉發,讓更多的朋友共同學習~

            本站是提供個人知識管理的網絡存儲空間,所有內容均由用戶發布,不代表本站觀點。如發現有害或侵權內容,請點擊這里 或 撥打24小時舉報電話:4000070609 與我們聯系。

            0條評論

            發表

            請遵守用戶 評論公約

            類似文章 更多
            喜歡該文的人也喜歡 更多

            ×
            ×

            .00

            微信或支付寶掃碼支付:

            開通即同意《個圖VIP服務協議》

            全部>>
            快三平台下载