excel讀取同文件下的excel表

❶ excel引用同一文件夾下其他表格的數據

下面是典型的引用公式：
='C:\Documents
and
Settings\Administrator\My
Documents\[工作簿1.xlsx]Sheet1'!A1
可分四部分，
C:\Documents
and
Settings\Administrator\My
Documents\
這部分是完整的路徑，
[工作簿1.xlsx]這是工作簿名稱，即文件名，用方括弧括起來，
Sheet1這是工作表名稱，
前面三部分用半形單引號括起來
最後再加一個!被引用單元格名稱即可。

❷ 如何提取多個excel工作薄中相同的sheet表

假若你的工作簿有100個，建立引用以便公式下拉成功顯示被引用的數值，有幾個先決條件.
1、這100個工作簿要在同一個文件夾里，例如在下面的文件夾里
C:\Documents and Settings\ZHSHAN\My Documents\
這里的ZHSHAN，是我的電腦用戶名，如果你的電腦用戶名稱是LISI，則ZHSHAN 改為LISI
2、這100個工作簿的名稱要有規律的相同，如果Book1、Book2.....Book100，例如你的100個工作簿是：工資1、工資2、....工資100 就把引用中的Book改成工資
3、這100個工作簿中都有相同的工作表，如：Sheet1
4、同時建立引用時建立引用以便公式下拉成功顯示被引用的數值，這100個工作簿先都要打開，否則建立引用的時候顯示的出錯信息，不過，只要你打開了被引用的工作簿，該出錯信息就馬上變數字信息。因為引用被關閉的文件之初是會顯示出錯信息的，但是引用路徑和公式沒有錯。
5、被引用的數據在100個工作表的Sheet1A1，當然，如果在其他格子里，就改一下，比如在Sheet1H2里，就想公式中最後一個A1改成H2，但是ROW（A1）裡面的A1就不要輕易該，ROW（A1）表示行號，Book"&ROW(A1)一起表示工作簿的名稱（符合上述第2條的約定）

下面在顯示表中的A2輸入下面的公式
=INDIRECT("'C:\Documents and Settings\"&"ZHSHAN"&"\My Documents\[Book"&ROW(A1)&".xls]Sheet1'!A1",1)

公式往下拉。

❸ 請問excel大神，如何批量獲取指定路徑下其他excel文件中數據

如果只有兩三個文件，可以使用公式實現：打開三個文件，在【總.xls】裡面的需要的單元格輸入等號=，然後點擊別的工作簿、工作表、單元格，最後回車即可。

如果文件數量很多，或者需要獲取數據的范圍很多，或者需要獲取不確定的數據，那麼就必須使用VBA編程，例如下面的代碼：

Option Explicit

Sub 宏1()

Dim st As Worksheet

Dim fn, n

Set st = ActiveSheet

For Each fn In Array("a.xls", "b.xls")

n = st.UsedRange.Rows.Count + 1

With Workbooks.Open(fn)

.Sheets(1).UsedRange.Copy st.Cells(n, 1)

.Close False

End With

Next fn

End Sub

❹ EXCEL怎樣把文件夾所有的EXCEL表提取到另外一個表中

我這兒有代碼，合並當前目錄下所有工作簿的全部工作表；復制運行試試；
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

❺ 如何讀取excel文件

1.
新建一個excel文件,在裡面寫入兩行數據,如下所示:

2.
打開visual studio新建一個web窗體應用程序,如下所示:

3.
在default.aspx中,添加一個按鈕控制項,添加一個gridview控制項,按鈕用於點擊的時候連接excel獲取數據,gridview用於展示數據。

❻ excel讀取指定文件夾下的全部xls文件數據

測試通過的。試試
Sub 按鈕1_單擊()

Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%
Application.ScreenUpdating = False '凍結屏幕，以防屏幕抖動
myPath = ThisWorkbook.Path & "\分表\" '把文件路徑定義給變數

myFile = Dir(myPath & "*.xls") '依次找尋指定路徑中的*.xls文件
Do While myFile <> "" '當指定路徑中有文件時進行循環
If myFile <> ThisWorkbook.Name Then
Set AK = Workbooks.Open(myPath & myFile) '打開符合要求的文件
aRow = AK.Sheets(1).Range("a65536").End(xlUp).Row
tRow = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row + 1
AK.Sheets(1).Range("a3:k" & aRow).Copy ThisWorkbook.Sheets(1).Range("a" & tRow)
Workbooks(myFile).Close False '關閉源工作簿,並不作修改
End If
myFile = Dir '找尋下一個*.xls文件
Loop

Application.ScreenUpdating = True '凍結屏幕,此類語句一般成對使用
MsgBox "匯總完成，請查看！", 64, "提示"

End Sub

❼ 批量提取同一文件夾下其他EXCEL表裡同一位置的數據

如圖，提取工作表SHEET1-SHEET8中的A1值。步驟是：
第一步，定義名稱。
在SHEET9工作表中，點擊「公式」、「定義名稱」。在「新建名稱」對話框中，「名稱」設置為如X，「引用位置」輸入
=INDEX(GET.WORKBOOK(1),ROW(D1))
然後在A1中輸入
=X
向下拖公式，就會顯示各工作表名稱。
第二步，提取數據
在B1中輸入
=INDIRECT(A1&"!A1")
就提取出SHEET1-SHEET8工作表A1單元格的值。

❽ 如何實現，在同一路徑下一個Excel表中讀取另一個Excel表裡的內容謝謝

這個要看你想怎麼樣讀取了，最簡單的一種讀取，就是兩個表的單元格一對一的讀取。
你只需打開兩個文件，在目標單元格輸入等號，不要按回車，直接點擊另一個表，點擊你要讀取的單元格，按回車就OK了。

❾ 怎樣讓EXCEL 自動讀取相同文件夾下某一EXCEL表格的某一單元格的數值

要保證在同1個文件夾下 而且表格文件名不能隨意變

比如A文件中A1單元格要選B文件第Sheet3的C1單元格那就在A1輸入

=[B.xlsx]Sheet3!$C$1

[B.xlsx] 文件名

或者同事打開幾個文件選就可以了

❿ EXCEL 獲取文件夾中其他EXCEL表中的數據

可以VBA,新建一個EXCEL,在sheet2的A1單元格輸入要你存了N個文件的文件夾路徑:例如 h:明細表, 然後在sheet2建一個CommandButton按鈕,把以下代碼復制到按鈕裡面,點按鈕後,程序會先把路徑下文件夾的文件名寫到sheet2的的A列,再把這些所有的文件的C2-G200的內容匯總到sheet1中.

PrivateSubCommandButton1_Click()
OnErrorResumeNext
Application.ScreenUpdating=False
DimshAsWorksheet
Range("a2:b65536").ClearContents
mypath=Trim(Range("a1"))
IfRight(mypath,1)<>""Then
mypath=mypath&""
n=2
myfile=Dir(mypath&"*.*")
DoWhilemyfile<>""
Cells(n,2)=myfile
Cells(n,1)=mypath&myfile
myfile=Dir
n=n+1
Loop
Ifn=2ThenExitSub'如果N=2,則表示路徑下沒有提取到xls文件
Forj=2Ton-1
Workbooks.OpenTrim(Range("a"&j))
WithThisWorkbook.Worksheets("sheet1")
row1=.Range("b65536").End(xlUp).Row
Workbooks(Trim(Range("b"&j))).Worksheets("sheet1").Range("b2:g100").Copy.Range("b"&row1+1)
EndWith

Workbooks(Trim(Range("b"&j))).Close
Nextj
Application.ScreenUpdating=True
EndSub