Sub mysub()
Dim ShApp As Object, mysheet As Object
Dim TF As Boolean, i As Integer
Dim aTable As Object, n As Integer
On Error Resume Next
n = 0
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "请选定要处理的excel文档"
.Filters.Add "excel文档", "*.xls" '暂定扩展名为xls的excel文档
.AllowMultiSelect = True
If .Show <> -1 Then Exit Sub
Set ShApp = GetObject(, "Excel.Application")
If Err <> 0 Then
TF = True
Set ShApp = CreateObject("Excel.Application")
End If
Application.ScreenUpdating = False
For i = 1 To .SelectedItems.Count
Set mysheet = ShApp.Workbooks.Open(.SelectedItems(i))
With mysheet.Sheets(1)
.[a8].copy [a65536].end(xlup).offset(1)
End With
n = n + 1
mysheet.Close True
Next i
End With
If TF = True Then ShApp.Quit
Set ShApp = Nothing
MsgBox "处理完毕，共处理了" & n & "个excel文档。"
Application.ScreenUpdating = True
End Sub追问
怎样不需要一个一个写文件名，直接把文件夹内的所有excel的信息都提取到。
另外这段代码哪里体现我需要的A1的单元格？
...excel表中的多个sheet表中提取同一个数据,该如何操作呢?
1. 使用公式：你可以在目标工作表中使用Excel的公式来提取数据。假设你要从不同的工作表中提取A列的数据，可以使用如下的=Sheet1!A1公式来提取Sheet1中的数据，然后拖动该公式到其他工作表中以获取相应的数据。2. 使用数据透视表：你可以在Excel中创建数据透视表，将不同工作表中的数据整合在一起并汇...
如何提取多个Excel工作表中同一位置的单元格数据?
提取多个Excel工作表中同一位置的单元格数据，可以通过以下几种方法实现：1. **使用INDIRECT函数**：INDIRECT函数可以根据文本字符串引用某个单元格。例如，假设要提取Sheet1至Sheet10的A1单元格数据，可以在新的工作表中使用类似`=INDIRECT("Sheet"&ROW(A1)&"!A1")`的公式，并将该公式向下拖动以引用...
VBA批量获得同文件夹夹内所有excel(同格式)相同位置的数据
Sub test()dim ws as worksheet '声明一个用于判断的临时变量'...省略原代码R = R + 1 '从这行的下一行开始修改for each ws in worksheets 'for语句遍历工作簿查找是否有sheet2表格if ws.name="sheet2" then exit for '如果找到，退出fornext forif not ws is nothing then '如果w...
如何对同一文件夹下多个excel文件进行相同的宏操作
存放在同一文件夹下有点难，不如先放在另外一个文件夹 Dim r&, Filename$, wb As Workbook, sht As Worksheet, fn$ Application.ScreenUpdating = False Filename = Dir(ThisWorkbook.Path & "\\*.xlsx") Do While Filename <> "" If Filename <> ThisWorkbook.Name Then fn...
从多个excel中提取相同位置的数据与一个excel文件中
举例·：一个excel文件，里面有一百多个工作表，但工作表名称没有规则顺序，不是按照sheet1、sheet2这样的顺序排列，现在需要把每个工作表里的A3数据提取出来，组成新的一列。解决方法：用宏自定义函数 同时按Alt和F11进入宏界面，点菜单的插入，塻块，粘贴如下代码：Function AllSh(xStr As String, i...
excel中如何同一工作薄中多个工作表相同位置的数据用公式快速复制出来...
在新表某列做公式： =INDIRECT("sheet"&ROW(A1)&"!L5")，公式向下填充100行，就把SHEET1、SHEET2、...SHEET100中的L5数据，竖着排列在一列中了。
如何从多个Excel表中提取部分相同的数据生成单一的一个Excel文件
1、首先， sheet1的A列和sheet2的A列具有相同的数据。可以通过编写vba代码用相同的数据填充sheet3的A列，如下图所示，然后进入下一步。2、其次，单击菜单栏左上角的[文件]-[另存为]，如下图所示，然后进入下一步。3、接着，在弹出窗口中，将[保存类型]选择为[Excel宏工作簿]，再单击[确定]...
如何提取多个excel工作表中相同位置的单元格数据
=INDIRECT("sheet"&ROW(A1)&"!A1")也可通过类似单元格区域排列方式进行相关运算，例如如下公式对sheet1到sheet4的单元格A1求和。=sum('Sheet1:Sheet4'!A1)2、VBA方法 如果毫无规律，则可使用VBA进行操作，如下代码指代排列在第一个sheet A1单元格的数值。Worksheets(1).cells(1,1)如下代码将各...
excel汇总表如何自动获取同一文件夹下不同工作簿中(工作表内容完全相同...
只能用VBA来完成，提高悬赏分，在下面补全代码即可！Private Sub CommandButton1_Click() Dim strA As String, wb As Workbook, i As Long, n As Long strA = Dir(ThisWorkbook.Path & "\\*.xls") Do While strA <> "" For Each wb In Workbooks If wb.Name = strA Then ...
如何用宏找出EXCEL表格中完全相同的内容~
Sub Test1()Dim iSheet1 As Worksheet Dim iSheet2 As Worksheet Dim iRange1 As Range Dim iRange2 As Range Dim iRangeTemp As Range Set iSheet1 = Worksheets("Sheet1")Set iSheet2 = Worksheets("Sheet2")For Each iRange1 In iSheet1.Range("A:A")If Trim(iRange1) <> "" ...
