選工作表→點打印→選PDF打印機，搞定！
-
-
1、新建一個文件夾、將要合并的表格放到里面、新建一個表格、用excel打開、右擊Sheet1
2、選擇查看代碼（PS：excel有著一項，WPS沒有）
3、將下列代碼復制到文本框中：
Sub 合并當前目錄下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "個工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
4、點擊運行、一段時間（取決于表格的大小和多少）后，合并完成了。 -
自用神器:'功能：把多個工作簿的第一個工作表合并到一個工作簿的多個工作表，新工作表長營完鮮基的名稱等于原工作簿的名稱
識誤把極導Sub 匯總多個工作表()
'定義對話框變量
Dim fd As FileDialo臺距g
Set fd = Application.FileDialog(msoFileDialogFilePicker)
'新建一個工作簿
Dim newwb As Workbook
Set newwb = Workbooks.Add
With fd
If .Show = -1 Then
'定義單個文件變量
Dim vrtSelectedIt北鎮調沿廠銷圓em As Variant
'定義循環變量
Dim i As Integer
i = 1
'開始文件檢索
For Each vrtSelectedItem In .SelectedItems
'打開被合并工作簿
Dim tempwb As Workbook
Set tempwb = ***.Open(vrtSelectedItem)
'復制工作表
tempwb.Worksheets(1族熱寫).Copy Before:=newwb.Worksheets(i)
'把新工作簿的工作表名字改成被復制工作簿文件名，這兒應用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xls是依搞引德細x
'newwb.Worksheets(i).Name = VBA.Replace(***.Name, ".xls", "")
'關閉被合并工作簿
tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Sub -
在這個sheet上右鍵選擇“移動或復制工作表”，選擇復制，新工作簿
-
自用神器:'功能：把多個工作簿的第一個工作表合并到一個工作簿的多個工作表，新工作表的名稱等于原工作簿的名稱
Sub 匯總多個工作表()
'定義對話框變量
Dim fd As FileDialog
Set fd = ***.filedialog(msoFileDialogFilePicker)
'新建一個工作簿
Dim newwb As Workbook
Set newwb = ***.add
With fd
If .Show = -1 Then
'定義單個文件變量
Dim vrtSelectedItem As Variant
'定義循環變量
Dim i As Integer
i = 1
'開始文件檢索
For Each vrtSelectedItem In .SelectedItems
'打開被合并工作簿
Dim tempwb As Workbook
Set tempwb = ***.open(vrtSelectedItem)
'復制工作表
***.worksheets(1).Copy Before:=***.worksheets(i)
'把新工作簿的工作表名字改成被復制工作簿文件名，這兒應用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx
'***.worksheets(i).Name = ***.replace(***.name, ".xls", "")
'關閉被合并工作簿
***.close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Sub
最新回答 更多>
相關問答
- [求助]PDF文件怎么加上書簽
- 華為手順朝視想機很機無線充電器使用方法？
- foxit pdf編輯器怎么插入漢字
- 用ppt演示文稿能打開pdf格式文件嗎？
- 推薦方便使用的pdf轉換為word的軟件
- PDF里怎么添加左右頁碼，怎樣設置？
- 哪個PDF轉換WORD的軟件方便使用啊？最好是免費的，急需，謝謝
- PDF格式如何轉化為PPT
- pdf轉換成word，可是轉換后只是轉換第一頁，后面的根本沒轉換，怎么辦
- cad打印樣式怎么設置成pdf固定格式
- 腫么把百度文庫里下載的pdf文件轉換成word
- pdf轉換器轉換成word文檔破解版百度云
- 華為可以用無線充電器的機型
- 我有stp格式的 能幫我轉換成PDF圖片格式的嗎
- 為何我用轉換器轉pdf成word文檔后還是圖片格式的求解？