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