⑴ 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/，看看有沒有更適合你的。