乙個資料夾中有 400 多個 excel 檔案，我想讀取每個檔案的 Sheet1 和 A1 的資料

只需開啟和關閉背景即可。

按 Alt+f11 插入。

複製模組並輸入以下內容**。 攻擊。

sub copyall()

fname = "c:\" '需要複製的 excel 檔案位址和文件名稱是自給自足的。

它已經修好了。

set d = getobject(fname) '開啟檔案。

sheet1"). 1) '將 sheet1 完全複製到當前表 DAO 中

關閉檔案。 set d = nothing

end sub

呵呵，就錄個巨集吧。 這是我在 book1 中對 f： patrol 的稱呼。 xls 表 1：A。

filename:="f：檢查。 xls", editable:= _

truesheets("sheet1").selectsheets("sheet1").copy after:=workbooks("book1").sheets(1)

windows("檢查。 csv").activate

檔案 bai 被資料夾回同乙個 duyiwen dao。

下乙個答案 &"\"

sheets("sheet1"). workbooks("book1").sheets("sheet1").cells

true

我不明白你的意思，但我可以告訴你乙個簡單的方法，我不知道它是否能達到你的效果，插入乙個新的工作表，將工作表的名稱輸入到任何單元格中，右鍵單擊建立乙個超連結，在這個檔案中選擇**，看看它是否是你想要的效果。

您可以放置 sheet1、sheet2、sheet3......更名為一月、二月、三月。 然後放一月、二月、三月。

將內容貼上到 sheet1、sheet2、sheet3...我認為這很簡單，我不知道你是否在問這是否仍然是......

使用同一目錄中的工作簿合併到工作簿中。

不知道房東想表達什麼，路徑值是**中的字元值，路徑是字串。例如，讀取 excel 檔案的路徑：

sub test()

a=end sub

其中 a 是乙個字串，它是 Excel 檔案的路徑。

例如，如果要開啟 d： 123（D 驅動器的 123 資料夾中的檔案）sub test1（）。

set book="d:\123\")

end sub

其中 d： 123 是乙個字串。

dim mypath as string

mypath=sheet1.[a1].value '這是讀取工作路徑的方法。 然後，您可以引用 mypath。

在這種情況下，必須同時開啟兩個工作簿，否則資料將不會同步更新。

怎麼做：（比方說）在檔案 B 的 Sheet1 A1 單元格中鍵入“=”，然後在檔案 A 的 Sheet1 A1 單元格中單擊 Enter！ 然後用下拉選單填寫檔案 B 的 Sheet1。

請嘗試一下，希望對您有所幫助！

如果檔案 A 儲存在 D： 中，並且平均值位於檔案 A 工作表 25 的單元格 A1 中，則 B 希望在單元格 A1 中引用它，並在 A1 的檔案 B 中輸入 ='d:\'!A25 就可以了！

複製 sheet1 的結果。

右鍵單擊 sheet2 - Selective Paste - Numeric。

以問題為內容（郵件主題必須包含“excel”，我以此為依據識別非垃圾郵件，以免誤刪）， excel示例檔案（請特別注意：以03版本為（如果是03之後，“儲存檔案”為，型別框可以選擇03）， 並表達當前情況和目標效果）作為附件來檢視它。

應刪除表 1 中的合併單元格以處理它，並且在儲存資料時應盡可能避免使用合併的單元格。

要刪除合併的單元格：

1.使用格式畫家刷洗表 1 中“人員數量”和“時間”列中的所有單元格，使其未合併。

2.從左上角開始選擇這2列的資料區域 - 按F5 - 選擇定位條件的空值 - 輸入=，然後用滑鼠點選當前活動單元格上方的單元格 - 按Ctrl + Enter完成。

經過這個處理，應該很容易製作你的表格2的樣式，你可以把附件發給我（，你發來的圖沒有行和行標記，寫公式不方便。

在 sheet2 中，輸入 =sheet1！a1 =sheet1!a2 =sheet1!B1等 一些可拖動物件是自動填充的。

您也可以單擊 sheet2 中的單元格，輸入 = 符號，然後單擊 sheet1 中的相應單元格。

按 alt+f11，選擇左側的 thisworkbook 並雙擊，然後輸入：

private sub workbook_beforeclose(cancel as boolean)

xlsheethidden

end sub

但這樣一來，以後開啟**就看不到sheet1了，必須手動取消隱藏。