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宏脚本
