Ⅰ 在excel中如何通过宏实现修改当前excel文件所在文件夹的名称
修改不了，因为当前文件已经打开，说明当前文件所在的路径正在使用。
看了你的问题补充，当文件另存后原文件自行退出当前文件，再删除原文件是可行的。你的问题是修改当前被占用的文件夹，这个不行。如果你也将文件通过宏转移或另存到别的路径，再改原来的文件夹名，可以。然后在转移或另存回原来的以更改名称的路径。
Ⅱ 在当前excel文件中运行宏，使它打开另一个excel文件并且指定文件名和位置，且直接打印它。
有这么几个问题：1 MkDir语句中的括号里应为 ("E:\" & fname) '创建文件夹。——注意引号和&的配合。2 打开文件夹语句不对。那个open是打开指定文件的语句3 对象创建后注意关闭（清理后再离场）测试后的完整代码为：Sub 创建文件夹()Dim fname '定义变量fname = ActiveSheet.Range("a1") '指定表格内容MkDir ("E:\" & fname) ' '创建文件夹'Workbooks.Open ("E:\" & fname) '打开文件夹Set Fs = CreateObject("Scripting.FileSystemObject") '复制指定文件到指定文件夹Fs.file "d:\scan\aa.xlsx", "e:\" & fname & "\aa.xlsx", True 'Set Fs = NothingEnd Sub
Ⅲ excel如何用宏取打开的excel文件名
如果先打开A，再打开B那就可以用msgboxworkbooks(2).name来取得B的文件名。
Ⅳ 请教如果在word的宏中获取当前打开的文件名
n = ThisDocument.Name或者n = ActiveDocument.Name这里是赋给了一个变量 关键语句是等号后边的 随你使用……
Ⅳ Excel 怎样用宏修改文件名
Sub rname()Dim fso As ObjectDim f As ObjectDim ph As StringSet fso = CreateObject("Scripting.FileSystemObject") For i = 1 To 500 ph = Cells(i, 1).Value If ph = "" Then MsgBox "已经改完了" Exit For Else Set f = fso.GetFile(ph) f.Name = Cells(i, 2) End IfNextEnd Sub有一种情况，就是你A1中的文件在路径中不存在，我没有考虑
Ⅵ 如何用宏录制打开文件,保存文件名字是当前文件名称，位置为当前文件夹位置
DimshtAsWorksheetApplication.ScreenUpdating=Falseipath=ThisWorkbook.Path&"\"ForEachshtInSheetssht.CopyActiveWorkbook.SaveAsipath&sht.Name&".csv"'(工作表名称为文件名）ActiveWorkbook.CloseNextApplication.ScreenUpdating=TrueEndSub
Ⅶ Excel这个宏怎么改成存到当前文件夹，文件名也是原来的，不要存到D盘去改成01文件名
//如果你只是想保存原文件到原路径替代源文件 直接用save保存啊把Wb.SaveAs 换成 Wb.Save//如果你想保存原文件到原路径 保留原文件 可以调用我下面的函数 随意修改文件名就行Function savewb(wb As Workbook){Dim savePath As StringDim wbName As StringwbName=wb.Name //这是文件名你可以在它前面添加字符串，这样就和原文件不同名，比如wbName="ABC" &wb.NamesavePath =wb.Path & "\" & wbNameWb.SaveAs savePath , 51}调用方法savewb(wb) 替代源代码 Wb.SaveAs "D:\01", 51如果要修改后缀名wbName=wb.Name 改成wbName=MID(wbName,1,Instr(wbName,"."))&"xlsx"
Ⅷ 如何用宏录制打开文件，保存文件名字是当前日期
打开EXCEL，点“工具”——“宏”——“VB编辑器”，在VB编辑器里面点击“插入”——“模块”，然后将下面这段代码复制进去：Sub DateSave() Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ ThisWorkbook.Path & "\" & Date & ".xls", _ FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, _ CreateBackup:=False Application.DisplayAlerts = TrueEnd Sub 复制完后关闭VB编辑器回到EXCEL。然后点击“工具”——“宏”——“宏”，在弹出来的“宏”对话框中点“选项”，在宏选项里设置快捷键，CTRL+S，就可以了。以后你只需要按CTRL+S即可以当前日期保存文档了。忘了提醒你，要使用此功能必须要将“宏安全性”设为“中”或“低”，方法是点“工具”——“宏”——“安全性”进行设置。希望我的回答对你有所帮助。
Ⅸ 如何用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
未经允许不得转载：山九号 » 宏当前文件名|如何用excel宏提取文件名生成目录
