⑴ 请问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
⑵ 通过VBA将一个EXCEL单元格的内容读取到另一个单元格
通过VBA将一个EXCEL单元格的内容读取到另一个单元格的操作步骤如下：
1，在vba中创建一个录制界面，设置输入按钮，设置输入按钮代码实现输入功能，双击输入按钮，输入代码进入代码窗口。
⑶ 请教高手如何用VBA编程读取其它excel文件中某个单元格中的内容
sub test()set wb=workbooks.open("D:\其它excel文档.xls")tmp=wb.worksheets(1).[c2]wb.close 0msgbox tmpend sub
⑷ vba读取另一个excel的信息
PrivateSubWorksheet_Change(ByValTargetAsRange)DimwbAsWorkbook,sh,a,m,rIfTarget.Column=7ThenSetwb=GetObject(ThisWorkbook.Path&"B.xlsx")Setsh=wb.Worksheets(1)a=Target.ValueSetm=sh.Range("D:D").Find(What:=a,LookAt:=xlWhole)IfmIsNothingThenTarget.Font.ColorIndex=3ElseTarget.Font.ColorIndex=xlAutomaticwb.CloseEndIfEndIfEndSub
⑸ EXCEL中用VBA读取另一个EXCEL文件中的数据
Application.ScreenUpdating=FalseWorkbooks.Open"测试.xls"'读取或写入数据的代码Workbooks("测试.xls").CloseSaveChanges:=TrueApplication.ScreenUpdating=True
⑹ vba怎样打开指定路径的excel文件
打开文件如下：Workbooks.Open ("C:\对账单\对帐单.xlsx")这里你可以把“C:\对账单\”换成你的绝对路径，你可以用：a = ThisWorkbook.Patha = ThisWorkbook.PathWorkbooks.Open ("" & a & "&" \ "&对帐单.xlsx")来获取你当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我 如果当前文件夹下还有A文件夹可以用代码：Workbooks.Open ("" & a & "&" \ A\"&b.xlsx")Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。在1993年，作为Microsoft Office的组件发布了5.0版之后，Excel就开始成为所适用操作平台上的电子制表软件的霸主。
⑺ 如何用vba读取多个excel文档的数据
通过VBA中的函数sheets(!workbook.worksheet).select，就可以将当前的文件指针指向所选的工作薄中的指定工作表。参数说明:workbook为工作簿名即文件名worksheet为工作表名当文件指针设定好后，就可以对指定文件的指定工作表进行操作了。
⑻ 在VBA中，怎样打开或者调用另一个EXCEL文件
ThisWorkbook属性可以返回一个 Workbook 对象，该对象代表当前宏代码运行的工作簿，而Path属性可以返回文件的路径这样就可以用在Workbook_Open事件中加入下面的代码打开“报表.xls”了。 Private Sub Workbook_Open() Dim FN As String FN = ThisWorkbook.Path & "\报表.xls" If Len(Dir(FN)) = 0 Then MsgBox "找不到文件：" & vbCrLf & FN, vbExclamation, "错误" Else Workbooks.Open Filename:=ThisWorkbook.Path & "\报表.xls" End If End Sub而要打开一个文件夹里所有的文件，就需要用到FileSystemObject 对象，下面这个例子是在一个新工作表中列出指定文件夹内所有xls文件的实例： Sub ShowAllXlsFile() Dim GetFile As String, GetPFN As String, GetExt As String Dim Fso, PF, AF, FN, i, j GetFile = Application.GetOpenFilename("Excel 文件 (*.xls), *.xls", , "请选择文件夹所在的任意一文件") If CStr(GetFile) <> "False" ThenSheets.Addi = 0j = 0Set Fso = CreateObject("Scripting.FileSystemObject")GetPF = Fso.GetParentFolderName(GetFile) & "\"Set PF = Fso.GetFolder(GetPF)Set AF = PF.FilesFor Each FN In AFj = j + 1GetExt = Fso.GetExtensionName(FN)If GetExt = "xls" Theni = i + 1Cells(i, 1) = FN.NameEnd IfNextMsgBox "总计所有类型文件" & j & "个！" & vbCrLf & "总计Excel文件" & i & "个！" ElseMsgBox "没有选择文件夹！" End If End Sub
未经允许不得转载：山九号 » vba快速读取其他excel文件|在VBA中怎样打开或者调用另一个EXCEL文件
