⑴ Excel 怎样用宏修改文件名
Sub rname()
Dim fso As Object
Dim f As Object
Dim ph As String
Set 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 If
Next
End Sub
有一种情况，就是你A1中的文件在路径中不存在，我没有考虑
⑵ excel 如何用宏取打开的excel文件名
如果先打开A，再打开B那就可以用msgbox
workbooks(2).name来取得B的
文件名
。
⑶ 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 = Nothing
End Sub
⑷ excel 如何用宏取打开的excel文件名
如果你只是想链接引用其他工作簿中某工作表数据的数据，则不是必须把第二个文件打开才可以。只需要在要引用的单元格（当然也可以在你的宏程序中，根据需要改动）把引用地址写好就可以了，类似于
='C:\[Book2.xls]Sheet1'!$A2
⑸ EXCEL文件，以单元格内容命名文件名，宏怎么做
在指定单元格中输入“=mid(cell("filename"),find("[",cell("filename"))+一,find("]",cell("filename"))-find("[",cell("filename"))-一)”即可。如下图所示
⑹ 怎么样在vim中设置vim自动根据文件名，生成 宏定义的名字
假设你已经会自动命令，并且会根据文件类型设置插件（这保证，比如你只在编写C/C++时才触发功能）。
那么比较有用的语句是：
letf_ext=expand('%:s?.*?U&?:e')
letf_nam=expand('%:s?.*?U&?:t:r')这样，如果你在写的文件是 test.hpp，那么 f_ext 是 HPP，f_nam 是 TEST。
这时如果比如你想定义 _TEST_H_ 类似的宏名就很容易了。
当然你可能还需要一些在 vim 里拼接字符串的知识。另外判断一下 f_ext 是不是 H 或者 HPP 再执行插入比较合理。
如果你对 vim 还不太熟悉，建议先用一些现成的插件，而不是自己从头设置相关的功能，这非常耗费精力。
如果还有不懂可以追问。但估计很难面面俱到的都讲清楚。
⑺ 如何用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
Next
End Sub
2.运行宏（alt+F8），宏的名称为getpath
⑻ 将文件保存为以某一单元格中的值为文件名的宏怎么写
假设你要以如猜燃Sheet1的A1单元格中的值为文件名保存，则应用命令： ActiveWorkbook.SaveCopyAs Str(Range("Sheet1!A1")) + ".xls" A1是文本串的话渣虚，使用这条命令： ActiveWorkbook.SaveAs Range("A1") & ".xls" 。当然，如果你的A1是路径，F1是文兆团件名的话，可以这样写： ActiveWorkbook.SaveAs Range("A1") & Range("F1") & ".xls"
⑼ EXCEL文件，以单元格内容命名文件名，宏怎么做
Sub gwjm()
i = 2
j = 2
jmc = Range("a" & i)
xmc = Range("m15" & j)
Do While jmc <> "" Or xmc <> ""
jmc = Range("a" & i)
xmc = Range("b" & j)
Dim oldname, newnme
oldname = "E:\****\" & jmc & ".txt": NewName = "E:\*****\" & xmc & ".txt"
Name oldname As NewName
i = i + 1
j = j + 1
Loop
MsgBox "改名结束"
End Sub
注释：
jmc原文件名称， 我是把所有的旧名称都录进了表格中a列Range("a" & i)
xmc 改名后的文件位名称，名称就是你的那个表格中的Range("m15" & j)
我已经测试过了，完全可以 如果还不能解决，加我qq：406639986
望采纳！
⑽ 如何用excel宏提取文件名生成目录如何用excel宏提取文件名生成目录比如要从C盘提取其所有的文件名（
方法一：
1、在那个文件夹内新建一个.TXT文件（如wenjian.txt），用记事本单开输入
dir> 1.txt
保存退出
将刚才的.TXT（wenjian.txt）更名为.bat文件（wenjian.bat）
双击wenjian.bat文件运行一次，在文件夹内多出一个1.txt文件
打开1.txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！
方法二：
在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码：
Sub aaa()
f = Dir("c:\*.*")
han = 1
Do While f > ""
Cells(han, 1).Value = f
han = han + 1
f = Dir
Loop
End Sub
回到Excel表格中，工具——宏——宏——选择Sheet1.Test——执行
看看效果吧！
另外可以到http://www.excelhome.net/，看看有没有更适合你的。