1. 如何批量读取csv格式的文件名及文件内容到新的Excel中
首先肯定要用宏来实现。可以把要打开的文件放到一个统一目录里，使用宏依次打开并读取数据，然后根据你的逻辑写入新文件中。下面是个简单例子，测试通过。读取宏文件和csv文件在一个目录里，宏通过当前程序得到当前目录，从当前目录里依次打开每个文件（当前宏文件跳过)，读取每个csv文件第2行，贴到当前宏文件里。注意运行前只打开宏文件，另外，若需要，手工删除sheet1里存在内容，不了解你具体详细的需求，就做个例子提供一下参考。Sub zzh_abc()On Error GoTo out1 Dim Fso As Object Set Fso = CreateObject("Scripting.FileSystemObject") Set folder = Fso.GetFolder(ThisWorkbook.Path) i = 1 For Each f In folder.Files If InStr(f.Name, ThisWorkbook.Name) = False Then Filename = ThisWorkbook.Path & "\" & f.Name Workbooks.Open Filename:=Filename Rows("2:2").Select 'select row to Selection.Copy Application.DisplayAlerts = False Workbooks(2).Close savechanges:=False 'Worksheets("sheet1").Select Cells(i, 1).Select ' by increasing one new line ActiveSheet.Paste i = i + 1 End If Next Exit Subout1:End Sub
2. excel批量获得文件路径和文件名称并超链接（动态）—详细请看问题补充
1. 新建文件，Ait+F11 进入Visual Basic编辑器2. 工具—引用，找到Microsoft Scripting Runtime，打勾3. 输入以下代码，运行后保存文件, 每有更改，只需重新运行宏即可。Sub GetHyperLinks() Dim MyPath As String, FileCnt As Long Dim MyFSO As New FileSystemObject, MyFolder As Folder, MyFiles As Files, MyFile As File MyPath = "E:\电影" Set MyFolder = MyFSO.GetFolder(MyPath) Set MyFiles = MyFolder.Files FileCnt = 0 ActiveSheet.Cells(1, 1) = "文件名" For Each MyFile In MyFiles FileCnt = FileCnt + 1 ActiveSheet.Cells(FileCnt + 1, 1) = MyPath & "\" & Trim(MyFile.Name) ActiveSheet.Cells(FileCnt + 1, 1).Hyperlinks.Add Anchor:=ActiveSheet.Cells(FileCnt + 1, 1), Address:=ActiveSheet.Cells(FileCnt + 1, 1) NextEnd Sub
3. VBA怎样实现 批量选择word文档读取其文件名并填表 的功能
SubTest()Dimf,n,x,wb,fNameOnErrorResumeNextCells.Clear'打开文件(可多选)f=Application.GetOpenFilename("Word文件,*.docm,",1,"选择文件",MultiSelect:=True)'遍历每个选择的文件Forx=1ToUBound(f)sFile=f(x)'取文件名,并赋值给单元格n=Len(sFile)-InStrRev(sFile,"")fName=Right(sFile,n)Cells(x,1)=Left(fName,InStr(fName,"")-1)'取1到空格前的字符'Cells(x,1)=Left(fname,9)'取文件名的前9个字符Cells(x,2)=Mid(fName,InStr(fName,"")+1,Len(fName)-InStr(fName,".")+1)'取空格后到点之前的字符'Cells(x,2)=Mid(fName,10,Len(fName)-InStr(fName,".")+1)'从10开始取到点之前的字符NextxEndSub
4. 怎样用宏将excel文件名提取出来
thisworkbook.name
5. 请教excel vbs宏高手,批处理问题,指定批量读取文件名的范围(循环) ,读不到某一个文件名就跳过操作并继续
'将循环修改为：ForiCol=201001To201412IfDir("D:银行"&iCol&".csv")<>""ThenWorkbooks.OpenFilename:="D:银行"&iCol&".csv"……EndIfNextiCol
6. 如何用excel宏提取文件名生成目录
写了一小部分，可以获取文件夹下所有文件名称，路径，大小，创建日期，不知道能否对你有帮助。1.添加VBA代码，选择新插入的模块后，插入以下代码Sub getpath() Range("A2:C1000").ClearContents '清空A2：C1000列 On Error Resume Next Dim shell As Variant Set shell = CreateObject("Shell.Application") Set filePath = shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "") '获取文件夹路径地址 Set shell = Nothing If filePath Is Nothing Then '检测是否获得有效路径，如取消直接跳出程序 Exit Sub Else gg = filePath.Items.Item.Path End If Set obj = CreateObject("Scripting.FileSystemObject") '定义变量 Set fld = obj.getfolder(gg) '获取路径 For Each ff In fld.Files '遍历文件夹里文件 m = m + 1 Cells(m + 1, 1) = ff.Name Cells(m + 1, 2) = ff.Path Cells(m + 1, 3) = ff.Size Cells(m + 1, 4) = ff.DateCreated NextEnd Sub2.运行宏（alt+F8），宏的名称为getpath
7. excel怎样用vba自动提取文件夹内的文件名
excel中用vba实现自动提取文件夹内的文件名的方法如下：
1、新建一个vba宏脚本
