① excel 中，怎么利用vba把文件另存为另一个文件名
1、桌面上第一章中的每个工作簿名称放置到工作表中。
② 怎么用excel vba提取当前文件名放在sheet1的第一列
sub test()worksheets("Sheet1").[a1]=thisworkbook.nameend sub
③ excel vba如何获取所有打开的excel文件名
针对ThisWorkbook对象的BeforeClose事件添加如下代码
PrivateSubWorkbook_BeforeClose(CancelAsBoolean)DimfileStrAsStringfileStr="$111.xls$333.xls$“‘头尾都用$分隔，循环判断文件名ForI=Workbooks.countTo1Step-1IfInStr(fileStr,Workbooks(I).Name)<>0ThenWorkbooks(I).CloseFalse‘False是不保存关闭true是保存并关闭EndIfNextEndSub
关闭时就会遍历所有打开的excel文件，执行不保存操作，并关闭
④ 用EXCEL VBA获取指定目录下的文件名(包括文件夹名)
1、首先利用快捷键“Windows键+R”打开“运行”窗口
⑤ Excel VBA列出某文件夹下子文件夹及文件名
遍历文件夹 并列出文件 & 文件夹 名 代码如下：
在文件夹内 新建 个 Excel文件
Excel文件内 按 Alt+F11 视图–代码窗口， 把如下代码复制进去， F5运行
Sub遍历文件夹()'OnErrorResumeNextDimfn(1To10000)AsStringDimf,i,k,f2,f3,xDimarr1(1To100000,1To1)AsString,qAsIntegerDimtt=Timerfn(1)=ThisWorkbook.path&""i=1:k=1DoWhilei<UBound(fn)Iffn(i)=""ThenExitDof=Dir(fn(i),vbDirectory)DoIfInStr(f,".")=0Andf<>""Thenk=k+1fn(k)=fn(i)&f&""EndIff=DirLoopUntilf=""i=i+1Loop'*******下面是提取各个文件夹的文件***Forx=1ToUBound(fn)Iffn(x)=""ThenExitForf3=Dir(fn(x)&"*.*")DoWhilef3<>""q=q+1arr1(q,1)=fn(x)&f3f3=DirLoopNextxActiveSheet.UsedRange=""Range("a1").Resize(q)=arr1MsgBoxFormat(Timer-t,"0.00000")EndSub
效果如图：
⑥ EXCEL怎样用VBA自动提取文件夹内的文件名
按Alt+F11，打开VBA编辑器，插入一个模块，把下面的代码贴进去，按F5执行Sub t() Dim s As FileSearch '定义一个文件搜索对专象 Set s = Application.FileSearch s.LookIn = "c:\" '注意路径，属换成你实际的路径 s.Filename = "*.*" '搜索所有文件 s.Execute '执行搜索 Cells.Delete '表格清空 For i = 1 To s.FoundFiles.Count Cells(i, 1) = s.FoundFiles(i) '每一行第一列填写一个文件名 NextEnd Sub
⑦ excel中如何使用vba实现将另一个文件以某单元格内容为文件名保存
saveas 是复制，还会保留原先的格式另存为一下xlsx就好了，FileFormat:=xlOpenXMLWorkbookThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & Range("Q3").Value & ".xlsx", FileFormat:=xlOpenXMLWorkbook
⑧ Excel 请问怎样用VBA重命名文件
1、首先我们打开一个工作样表作为例子。
⑨ EXCEL中用VBA重命名文件名的问题：
有一个批处理的:@echo offecho 正在替换文件名，请稍等…… ren AA.xls BB.xls #说明：把AA文件名替换成BB文件名 echo 替换文件名完成!echo. & pause另存为.bat，执行替换即可。ren语句可以增加，在excel中做好，另存为txt，再存为bat即可，注意空格。在当前目录下，dos命令：dir/b>1.txt 可以获得文件名
未经允许不得转载：山九号 » excelvba文件名|EXCEL怎样用VBA自动提取文件夹内的文件名
