知道DOS命令吗？可以列出文件夹下所有文件名
操作方法
1、请在D盘建一个文件夹 名字=1
2、把所有要列出的文件拷贝到该文件夹
3、开始菜单>运行>cmd 回车(会弹出DOS窗口)
输入命令
d: 回车
cd 1 回车
dir /b >>1.txt 回车
4、你会发现多了个1.txt文件 打开 复制 粘贴到excel表
功能：将每个文件的A1单元格，用自身的文件名填充。如果不想填到A1，请改
Workbooks(fi.Name).ActiveSheet.Cells(1, 1) = fi.Left(fi.Name, Len(fi.Name) - 4)
中的Cells(1, 1) 参数。如A2为：Cells(2, 1)；B1为Cells(1, 2)
程序如下：
Sub 向其它工作簿的表里写数据()
MyName = ActiveWorkbook.Name '获得本文件名
Dim fs, f, fc, fi
Set fs = CreateObject("Scripting.FileSystemObject") '文件对象
Set f = fs.GetFolder(ActiveWorkbook.Path) '获得路径
Set fc = f.Files
For Each fi In fc '遍历本文件夹的所有文件
If fi.Name <> MyName And Right(fi.Name, 4) = ".xls" Then
Workbooks.Open (ActiveWorkbook.Path & "\" & fi.Name) '打开文件
Workbooks(fi.Name).ActiveSheet.Cells(1, 1) =Left(fi.Name, Len(fi.Name) - 4) '要保留扩展名直接=fi.Name
Workbooks(fi.Name).Close SaveChanges:=True '关闭文件并保存
End If
Next
End Sub本回答被提问者和网友采纳
http://hi.baidu.com/ygjnfsgasybbguq/item/2ddb83632f094f19a1cf0fd0
如何批量把excel的文件名导入到该文件的工作簿的开头 我这有几千...
1、请在D盘建一个文件夹 名字=1 2、把所有要列出的文件拷贝到该文件夹 3、开始菜单>运行>cmd 回车(会弹出DOS窗口)输入命令 d: 回车 cd 1 回车 dir \/b >>1.txt 回车 4、你会发现多了个1.txt文件 打开 复制 粘贴到excel表
vb如何批量处理excel,我有1000个excel文件,要求在每个excel中提取某...
Sub test()Dim xls_Folder As String xls_Folder = ThisWorkbook.Path & "\\textxls"Dim xlsFiles() As String Dim fso, f, fc, s Set fso = CreateObject("Scripting.FileSystemObject")Set f = fso.GetFolder(xls_Folder)Set fc = f.Files s = ""For Each f1 In fc If Not StrComp(Ri...
怎么把excel中的名字批量导入到word文件中的同一位置?
1、打开文字文档以后，先做好表格，接着找到文档中工具栏的“工具”按钮。2、点击之后，就会弹出一个命令菜单，在其中找到“邮件合并工具栏”，点击“邮件合并工具栏”以后就会出现如下图2的一个工具栏了。3、在这个工具栏中找到如下图的图标，点击打开数据源。4、接着就会出现一个选择框，选择好需要...
用VBA如何将多个excel文件中数据自动导入另外一个excel文档vba如何批 ...
打开excel文件，点击数据选项卡，选择现有连接命令，在弹出来的对话框中选择浏览更多，找到你要导入的excel文件的地址，如果你的excel文件中存在多个表，需要选择你要导入的数据区域，然后点击导入。在弹出来的导入数据对话框中，显示方式选择表，然后指定存放位置，导入即可。导入数据的优点是，如果源数据发生...
求助EXCEL使用VBA批量打开一系列表格文件并复制里面的数据到另一个表 ...
这样的代码一般可以DIR扫描文件夹，或者指定文件名，例如：'Dir 循环set st=activesheetp = "c:\\数据\\"n = Dir(p & "*.xls?")while n<>"" with workbooks.open(p & n) activesheet.usedrange.copy st.rows(rows.count,1).end(xlup).offset(1,0) .close end with n=Di...
如何将文件夹内多个excel文件的文件名对应批量添加到每个excel的...
万能的vba可以完成。大致思路：1、遍历文件夹下的excel文件；2、逐个打开excel文件；3、修改指定位置的数据，存盘退出。需要的话可私信加我q。
求助EXCEL使用VBA批量打开一系列表格文件并复制里面的数据到另一个表 ...
Sheet1" '假设所有报表文件中的数据都在 Sheet1Set sht = ActiveSheet '保存当前工作表对象fn = Dir(ThisWorkbook.Path & "\\报表-*.xls", vbReadOnly) '打开第一个报表文件Do While fn <> "" '开始循环 Set wb = Workbooks.Open(fn) '以只读模式打开报表文件 '取得报表文件中的日期字...
EXCEL怎样把文件夹所有的EXCEL表提取到另外一个表中
.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 ...
如何用vba批量将一个excel文件中的多个工作表另存为指定路径的新工作薄...
打开这个excel ,另存为副本, (最好放到某个文件夹内)按alt+F11, 视图---代码窗口 --把如下复制进去--按F5 运行即可 Sub fencun()Application.ScreenUpdating = False b = Sheets.Count For i = b To 1 step -1 sheets(i).select sheets(i).Cells.Select Selection.Copy Selection....
用VBA如何将多个excel文件中数据自动导入另外一个excel文档?_百度知 ...
2)汇总多个Excel文件的工作表 有时你需要处理的工作表在多个不同的Excel文件中，不方便处理，而且Excel文件较多，逐一手工拷贝费时费力。本项功能可以将多个Excel文件的工作表快速拷贝到一个Excel文件中，如果有同名的工作表，自动重命名。这样就便于处理了.3)汇总工作表行数据 本项功能可以把多个Excel文件...
