啟用宏怎麼顯示合並了0個文件夾

① 使用VBA宏合並當前文件夾下工作薄結果空白

把ActiveWorkbook修改為ThisWorkbook試試。
MyPath = ThisWorkbook.Path

AWbName = ThisWorkbook.Name

② 使用VBA宏合並當前文件夾下的所有工作薄，提示數據收集完成，但是當前工作表空白

可能是宏代碼有問題，貼出你的代碼，大家幫你出注意修改。
或者【網路雲盤】（一個使用網路帳號登錄的可以對話和傳文件的應用軟體）私下傳文件，為你修正後回復。

③ 如何將兩個文件夾的文件合並一個文件夾里顯示

1、滑鼠右鍵點擊桌面，然後點擊新建文件夾。

④ 怎麼我用了之後不是顯示合並0個工作簿中的0個工作表就是出現1004錯誤的呢

在網上下載合並的代碼一般是合並後綴名為*.xls的工作簿文件
由於EXCEL和WPS各個版本的不同導致生成的表格文件不同；有*.xls的還有*.xlsx的；某些網站導出來的表格文件也有*.csv的。
想要合並成功：
1、確定自己要合並的表格文件後綴名

2、修改代碼中*.xls為自己要合並的文件
如*.xlsx或者*.csv；

3、宏模式下直接Ctrl+H 替換

4、最後按照網上說的步驟運行即可。

5、祝你合並成功！

四月余溫

⑤ 大神你好，用你編寫的多個工作簿合並代碼，發現若原始工作簿內存在公式，合並後會變成0，怎麼處理盼回復

您好，你的問題，我之前好像也遇到過，以下是我原來的解決思路和方法，希望能幫助到你，若有錯誤，還望見諒！展開全部
1、在原始數據同目錄下新建一個工作簿，建立兩個工作表，名稱分別為「首頁」和「合並匯總表」。
2、按Alt+F11進入VBA代碼編輯和調試界面。
3、點擊插入，選擇模塊。
4、將下述代碼粘貼到模塊空白處：
Sub CombineSheetsCells()

Dim wsNewWorksheet As Worksheet
Dim cel As Range
Dim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Variant
Dim TitleRow, TitleColumn As Range
Dim Num As Integer
Dim DataRows As Long
DataRows = 1
Dim TitleArr()
Dim Choice
Dim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$
Dim n, i
n = 1
i = 1
Application.DisplayAlerts = False
Worksheets("合並匯總表").Delete
Set wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))
wsNewWorksheet.Name = "合並匯總表"

MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*")

If MyFileName = "False" Then
MsgBox "沒有選擇文件！請重新選擇一個被合並文件！", vbInformation, "取消"

Else

Workbooks.Open Filename:=MyFileName

Num = ActiveWorkbook.Sheets.Count
MyName = ActiveWorkbook.Name
Set DataSource = Application.InputBox(prompt:="請選擇要合並的數據區域：", Type:=8)
AddressAll = DataSource.Address
ActiveWorkbook.ActiveSheet.Range(AddressAll).Select

SourceDataRows = Selection.Rows.Count
SourceDataColumns = Selection.Columns.Count
Application.ScreenUpdating = False
Application.EnableEvents = False

For i = 1 To Num
ActiveWorkbook.Sheets(i).Activate
ActiveWorkbook.Sheets(i).Range(AddressAll).Select
Selection.Copy

ActiveSheetName = ActiveWorkbook.ActiveSheet.Name
Workbooks(ThisWorkbook.Name).Activate
ActiveWorkbook.Sheets("合並匯總表").Select

ActiveWorkbook.Sheets("合並匯總表").Range("A" & DataRows).Value = ActiveSheetName
ActiveWorkbook.Sheets("合並匯總表").Range(Cells(DataRows, 2), Cells(DataRows, 2)).Select

Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

DataRows = DataRows + SourceDataRows

Workbooks(MyName).Activate

Next i

Application.ScreenUpdating = True

Application.EnableEvents = True

End If

Workbooks(MyName).Close
End Sub
5、在「首頁」工作表中插入一個窗體控制項並指定宏為插入的代碼名稱。
6、點擊「首頁」工作表中插入的按鈕，根據提示，瀏覽到原始數據工作簿。
7、用滑鼠選擇要合並的數據范圍。
8、點擊確定按鈕，待代碼運行完畢後，所有的數據就都合並到了「合並匯總表」中。
9、選中全部數據區域，執行自動篩選。然後選擇其中一個欄位，選擇「空白」和標題內容。
10、然後將篩選出來的無用行滑鼠右鍵刪除，再刪除A列整列即可。非常感謝您的耐心觀看，如有幫助請採納，祝生活愉快！謝謝！

⑥ Excel 宏如何合並

1.首先把需要合並的excel工作薄整理到一個文件夾中，如圖，用來合並到一起的工作薄的名字要注意，這里取名叫「合並工作薄」。

2.打開這個excel表，直接按鍵ALT+F11，進入下圖界面。雙擊如圖所示位置的sheet1。

3.如圖，打開准備好的VBA代碼，復制到這個空白的代碼編譯處，代碼如下：
Sub 工作薄間工作表合並()

Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合並工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:

MsgBox Err.Description
End Sub

4.注意事項，如圖，注意工作薄的名字，同時，注意代碼中設定的excel版本。如果出現無法編譯的情況，可以用這個共享的txt。

5.回到「合並工作薄」的excel表格中，如圖，點擊工具（沒有的到excel的選項中添加），選擇宏。

6.選擇宏以後會出現下圖界面，直接雙擊圖中選項。

7.雙擊後彈出選擇待合並的文件夾中工作薄，直接全選要合並的工作薄即可。

8.如圖，這就是合並後的效果，這兩個工作薄是下載的2014年的高考錄取分數線的內容，效果不錯，而且合並工作薄本身的工作表是不會被佔用的，是新建的工作表。

⑦ 電腦上弄了啟用宏的工作簿後，每打開或新建文檔都會出現兩個空文檔怎麼辦，c盤沒有許可權

都變成啟用宏的工作簿，不太明白你這句話的意思，、
是你上傳的圖片上的圖標不一樣了嗎（打開方式改變了）
你可以參照樓上的說的「右鍵點文件-打開方式-選擇程序-選擇excel-勾選始終應用-ok了」如果沒有EXCEL可選擇，可以瀏覽在以下文件夾能打到C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE（是2003的路徑，2010的應該是C:\Program Files\Microsoft Office\OFFICE14\EXCEL.EXE.
如果是打開會提示工作簿裡面有宏的窗口
你可以開啟一個空的EXCEL表格，保存一下再重新打開，如果也有提示，請檢查你的電腦已經中毒了。

⑧ excel文件夾三個三個窗口剩下一個窗口怎樣找其他兩個

大家在使用excel2007的時候打開兩個excel2007窗口發現合並在了一起，使用起來很麻煩，那麼怎麼才能打開excel2007兩個獨立窗口呢?只需要去高級設置里設置一下就可以了。下面我馬上就告訴大傢具體的操作 方法 。
Excel 2007同時打開兩個獨立窗口方法
首先，我們打開任意一個Excel 表格!點擊左上角按鈕!再點擊「Excel 選項」菜單!
在打開「Excel 選項」菜單中選擇高級選項!
然後找到「顯示」菜單下的「在任務欄中顯示所有窗口」，把前面的框框打上鉤!
按「確定」退出!
好了，到此，2003的感覺回來了……
Excel表格 使用小技巧
1、快速啟動Excel
若您日常工作中要經常使用Excel，可以在啟動Windows時啟動它，設置方法：
(1)啟動「我的電腦」進入Windows目錄，依照路徑「Start Menu\Programs\啟動」來打開「啟動」文件夾。
(2)打開Excel 所在的文件夾，用滑鼠將Excel圖標拖到「啟動」文件夾，這時Excel的快捷方式就被復制到「啟動」文件夾中，下次啟動Windows就可快速啟動Excel了。
若Windows已啟動，您可用以下方法快速啟動Excel。
方法一：雙擊「開始」菜單中的「文檔」命令里的任一Excel工作簿即可。
方法二：用滑鼠從「我的電腦」中將Excel應用程序拖到桌面上，然後從快捷菜單中選擇「在當前位置創建快捷方式」以創建它的快捷方式，啟動時只需雙擊其快捷方式即可。
2、快速獲取幫助
對於工具欄或屏幕區，您只需按組合鍵Shift F1，然後用滑鼠單擊工具欄按鈕或屏幕區，它就會彈出一個幫助窗口，上面會告訴該元素的詳細幫助信息。
3、快速移動或復制單元格
先選定單元格，然後移動滑鼠指針到單元格邊框上，按下滑鼠左鍵並拖動到新位置，然後釋放按鍵即可移動。若要復制單元格，則在釋放滑鼠之前按下Ctrl即可。
4、快速查找工作簿
您可以利用在工作表中的任何文字進行搜尋，方法為：
(1)單擊工具欄中的「打開」按鈕，在「打開」對話框里，輸入文件的全名或部分名，可以用通配符代替;
(2)在「文本屬性」編輯框中，輸入想要搜尋的文字，最好是您認為是唯一的單詞或 短語 ，以便搜尋更容易成功;
(3)選擇「開始查找」即可。在找到滿足條件的文件前，「打開」對話框的狀態欄都會顯示「找到了0個文件」的信息，您應該耐心等待，只有當「打開」按鈕由灰化狀態變成可用狀態時，才表明搜尋結束。
5、快速列印工作表
若選擇「文件」菜單中「列印」命令來列印，會出現「列印」對話框讓您選擇，程序繁瑣。若要跳過該對話框，您可以單擊「常用」工具欄上的「列印」按鈕或者按下Shift鍵並單擊「列印預覽」按鈕，Excel將使用「選定工作表」選項列印。
6、快速切換工作表
按Ctrl PageUp組合鍵可激活前一個工作表，按Ctrl PageDown組合鍵可激活後一個工作表。您還可用滑鼠去控制工作表底部的標簽滾動按鈕快速地移動工作表的名字，然後單擊工作表進行切換。
7、快速切換工作簿
對於較少工作簿切換，可單擊工作簿所在窗口。要對多個窗口下的多個工作進行切換，用「窗口」菜單最方便。「窗口」菜單的底部列出了已打開了工作簿的名字，要直接切換到一個工作簿，從「窗口」菜單選擇它的名字即可。
「窗口」菜單最多能列出9個工作簿，若多於9個，「窗口」菜單則包含一個名為「多窗口」的命令，選用該命令，則出現一個按字母順序列出所有已打開的工作簿名字的對話框，只需單擊其中需要的名字即可。
8、快速插入Word表格
Excel可以處理Word表格中列出的數據，您可用以下方法快速插入Word表格：
(1)打開Word表格所在的文件;
(2)打開要處理Word表格的Excel文件，並調整好兩窗口的位置，以便能看見表格和要插入表格的區域;
(3)選中Word中的表格;
(4)按住滑鼠左鍵，將表格拖到Excel窗口中，松開滑鼠左鍵將表格放在需要的位置即可。
9、快速鏈接網上的數據
您可以用以下方法快速建立與網上工作簿中數據的鏈接：
(1)打開Internet上含有需要鏈接數據的工作簿，並在工作簿選定數據，然後單擊「編輯」菜單的「復制」命令;
(2)打開需要創建鏈接的Excel工作簿，在需要顯示鏈接數據的區域中，單擊左上角單元格;

⑨ EXCEL 合並同一個文件夾多個工作表，求助合並不成功的原因

建議改成這樣（可以找到xls和xlsx文件）：
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("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "共合並了" & Num & "個工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub

⑩ Excel-2016如何用宏合並多個Excel文件

我用的2016版，代碼沒問題。那麼1004錯誤，主要是宏安全設置高了。改一下設置，宏設置--信任中心--信任和啟用所有宏。