1. 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"
2. 魔兽世界 键位设置 宏命令,保存在哪个文件夹里
键位设置和宏都保存在魔兽安装文件包的WTF文件夹中，具体找到的方法如下：
1、首先找到魔兽在电脑中的安装位置。
3. 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
4. EXCEL文件，以单元格内容命名文件名，宏怎么做
在指定单元格中输入“=mid(cell("filename"),find("[",cell("filename"))+一,find("]",cell("filename"))-find("[",cell("filename"))-一)”即可。如下图所示
5. 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中的文件在路径中不存在，我没有考虑
6. Excel 如何用宏直接在改文件名
没有试过，理论上讲不大可能。给文件改名是个操作系统的事件，不可能通知到Excel。Excel就更不可能改它录制的代码了。如果你的文件确实需要改名，可以在代码里定义一些fso对象，然后使这个文件具有一些特定的属性，如最新修改的文件，或者所在文件夹中的惟一文件，或者名字中有些特殊的前缀后缀等，再在代码里利用这些属性找到这个文件，以提高代码的适应性。补充：用消息给你发了一点代码，但严格地说那个不是fso：）你随便找一些VB的帮助文档，里面都有很详细的说明。
7. excel如何用宏取打开的excel文件名
如果先打开A，再打开B那就可以用msgboxworkbooks(2).name来取得B的文件名。
8. 如何在word宏中实现文档使用默认文件名自动保存后关闭
Word提供了“自动保存”功能，可以帮助用户在发生断电、死机等故障时恢复尚未保存的工作成果。但是，有时在实际工作中你会遇到这样的尴尬：在尚未保存编辑工作的情况下，你关闭了Word，此时Word会弹出一个对话框，询问是否保存更改，本应单击“是”按钮，然而你却鬼使神差地单击了“否”按钮，结果你辛辛苦苦几个小时的工作成果顷刻间化为乌有，因为这时Word自动保存的工作成果也将不会被保存。痛心疾首吧！其实，你可以创建一个能够在关闭Word时对文档进行保存操作的自动宏，即可防止这种意外的发生。我们就以Word2007为例，谈一谈这一思路的具体实现过程。认识Word宏和自动宏 在Word中，宏是一系列命令和指令的组合，可以作为单个命令执行来自动完成某项任务。 在创建宏时，通过为一个宏赋予某个特殊的名称，就可在执行某项操作（例如启动Word或打开文档）时自动运行宏。Word将上图所示名称识别为自动宏，或称“auto”宏。 为使宏自动运行，它必须位于活动文档的Normal模板中，或活动文档选用的模板中。唯一例外的是AutoExec宏，它只有存储于以下位置时才可自动运行：Normal模板、通过“模板和加载项”对话框全局加载的模板或由“Startup”文件夹指定的文件夹中的全局模板。在命名冲突的情况下（多个自动宏名相同），Word将运行最近的上下文中的自动宏。例如，如果同时在文档及其附加的模板中创建了AutoClose宏，则仅执行文档中的自动宏。如果在Normal模板中创建了AutoNew宏，只有当文档或其附加的模板中没有名为AutoNew的宏时，该自动宏才能运行。请“开发工具”出山 与以前Word版本不同，在Word2007中要编写宏、运行以前录制的宏或创建与Word程序一起使用的应用程序，应该显示“开发工具”选项卡。以下操作可请“开发工具”选项卡出山：第一步：单击“Microsoft Office按钮”，然后单击“Word选项”。第二步：单击“常用”，在“使用Word时采用的首选项”之下，选中“在功能区显示‘开发工具’选项卡”复选框。第三步：单击“确定”按钮即可看到效果。录制自动保存宏 由前面的自动宏名称可知AutoClose宏会在关闭文档时自动运行，以下我们宏录一个AutoClose宏，并赋予该宏保存文档的功能：第一步：在“开发工具”选项卡上的“代码”组中，单击“录制宏”。第二步：在“宏名”框中，键入宏名称“AutoClose”。如果键入的新宏的名称与Word中的内置宏名称相同，则新宏操作将替换内置宏。若要查看内置宏列表，请在“开发工具”选项卡的“代码”组中单击“宏”。然后，在“宏的位置”列表中，单击“Word命令”。第三步：在“将宏保存在”框中，单击要将宏保存在其中的模板或文档，为使该宏对全部文档有效，请选择“所有文档（Normal.dotm）”。第四步：在“说明”框中，键入对该宏的描述，比如“关闭时对文档进行保存”。第五步：单击“确定”按钮，开始录制宏。第六步：单击快速访问工具栏中的“保存”按钮。在“开发工具”选项卡上的“代码”组中，单击“停止录制”。之后，当使用Word编辑文档时，每次关闭文档或退出Word，AutoClose宏会自动运行对文档进行保存操作。如果是尚未命名的新文档，将弹出“另存为”对话框，以便用户为文档命名。编辑AutoClose宏 以上录制宏的操作是假设Word2007的Normal.dotm模板中尚不存在AutoClose宏，如果该宏已经存在，那么你可以对该宏进行编辑，在其中加上保存文档的代码即可，具体操作如下：第一步：在“开发工具”选项卡上的“代码”组中，单击“宏”。第二步：在“宏名”列表中，选择要编辑的宏的名称“AutoClose”。如果该宏没有出现在列表中，请在“宏的位置”列表中选择“所有的活动文档和模板”。然后，单击“编辑”第三步：在代码窗口加上以下代码：ActiveDocument.Save第四步：：单击工具栏中的“保存”按钮，然后单击“文件”菜单中的“关闭并返回到Microsoft Word”。删除AutoClose宏或许一段时间之后，你又不再需要这个AutoClose宏了，以下的操作可将该宏删除：在“开发工具”选项卡上的“代码”组中，单击“宏”，在“宏名”列表中，选择要删除的宏的名称“AutoClose”，然后单击“删除”即可。启用文档中的宏 或许，你虽然已经按上述进行了操作，但在关闭Word时，AutoClose宏却并没有运行，这是因为你的Word设置为禁用宏的缘故，以下的操作可以启用宏：第一步：单击“Microsoft Office按钮”，然后单击“Word选项”。第二步：依次单击“信任中心”、“信任中心设置”和“宏设置”。第三步：单击以选中“启用所有宏(不推荐，可能会运行有潜在危险的代码)”复选钮，该选项可允许所有宏运行，这可能会使计算机容易受到潜在恶意代码的攻击，因此不推荐使用。第四步：依次单击“确定”按钮关闭各对话框。 至此，相信你对Word自动宏有所了解了，愿它们能够在工作中帮助你完成你所需要的特殊服务，以减轻工作强度，提高工作效率，防止操作差错。
9. 求帮忙改个excel的宏代码，实现excel文件合并后sheet名称为原来excel的文件名
右键左下角的工作表查看代码，复制以下代码：Sub 多表多文件合并为多表一文件()Dim FileArrayDim X As IntegerDim strFilePath As StringDim strFileName As StringDim intNum As IntegerApplication.ScreenUpdating = FalseFileArray = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBound(FileArray) Workbooks.Open Filename:=FileArray(X) 'MsgBox (FileArray(X)) 'ThisWorkbook.Sheets. strFilePath = FileArray(X) intNum = InStrRev(strFilePath, "\") '使用instrrev函数获取最后文件夹名截至的位置 strFileName = Mid(strFilePath, intNum + 1) '文件名ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = strFileName Sheets().Move after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler: MsgBox Err.DescriptionEnd Sub保存后，回到excel，选 视图 =》 宏=》 查看宏=》找到 多表多文件合并为多表一文件，执行这个宏
未经允许不得转载：山九号 » 宏设置文件名|excel 如何用宏取打开的excel文件名
