使用 VBA 在同一路徑中開啟兩個工作簿

""您可以按 f1 尋求幫助並檢視如何使用它的詳細資訊。

是點選按鈕進行同步嗎？ 還是您必須同步每一步？

1.將需要合併的excel檔案和目標excel檔案放在乙個資料夾中。

2. 開啟並載入 excel 選單下的“開發工具”選單。

4. 製作匯入金鑰。 單擊“開發工具”選單，然後選擇“插入”--activex 控制項下的命令按鈕。 在工作表中繪製乙個命令按鈕。

5. 點選“開發工具”下的“設計模式”，然後雙擊剛剛建立的命令按鈕“CommandButton1”，進入**框。

6. 將以下所有內容複製到框中。

7. 將 HB 檔案另存為啟用巨集的工作簿。 關閉當前**框並返回到excel介面。 選擇“檔案”--另存為--另存為“儲存型別”，然後在“確定”下選擇“啟用巨集的工作簿”。

8. 開啟並單擊按鈕。 Excel 檔案中需要合併的工作表 A、B 和 C 將合併到此檔案中。

VBA** 如下所示：

sub s()

pth = "d:\my documents\" '在此處輸入檔案所在資料夾的完整路徑。

fn = dir(pth & "*.xls")

set newbk =

set sht =

k = 1do while fn <>""

set wb = & fn)

for i = 1 to

1) = fn & ":" &

k = k + 1

1).pastespecial xlpastevaluesandnumberformats

k = + 1

nextfalse

fn = dir

looppth & "" '在此處設定合併檔案的檔名。

falseend sub

有幾個問題需要確認：資料夾路徑是否固定？ 工作表的格式是否相同？ 複製是否包括標題行？

其中 A 和圓形桶 B 是兩個 Excel 的路徑。

function recompose_excel(a,b)set objexcel = createobject("")= false

set excelbook_s =

sheet1").select'選擇 sheet1'銷毀封面時複製 sheet1 的內容。

trueset excelbook_s = nothingset excelbook_t =

sheet1").select'選擇 sheet1excelbook"a1"橘子後磨）。pastespecialexcelbook_

excelbook_

set excelbook_t = nothingend function

看不到你要做什麼。 看來這做不到。

問題描述太簡單，應該是參考錯誤，請貼上完整的**或上傳**來幫助修改。

如果什麼都不寫，什麼都不變，那麼起始路徑可能是我的文件sub aa（）。

msgbox curdir

end sub

sub bb()

chdrive "d:\"

chdir "d:\backup"

''''' dir("*.xls", vbnormal)end sub

恐怕很難同時開啟，只能乙個接乙個地開啟。

你說有乙個相互的毛盾牌，你說你使用VBA，為什麼你必須手動做。

您錄製乙個複製工作表的巨集並自己嘗試一下！