Question

如何用excel vba批量命名文件

我有一个文件夹（全是excel文件），如何用vba批量用每个工作簿的sheet1中的a1单元格的内容作为文件名。
如：a1单元格中为：物品清单，那么该工作簿的文件名为：物品清单。
另有一个文件夹（全是doc文件）直接打开另存为，以当前另存为对话框中的名字为文件名，也是批量处理。

Answer 1

Sub gvntw()
Dim MyPath$, MyFile$
If Application.FileDialog(msoFileDialogFolderPicker).Show = True Then
MyPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
End If

MyFile = Dir(MyPath & "\*.*")

Do
If UCase(Right(MyFile, 4)) = ".XLS" Then
Workbooks.Open (MyPath & "\" & MyFile)
ActiveWorkbook.SaveAs (MyPath & "\" & ActiveWorkbook.Sheets(1).Cells(1, 1).Value)
ActiveWorkbook.Close
Kill (MyPath & "\" & MyFile)
End If
MyFile = Dir
Loop Until MyFile = ""
End Sub

Answer 2

Sub Macro1()
Dim i
For i = 1 To Sheets.Count
Sheets(i).Select
Sheets(i).Name = Cells(1, 1)
Next i
End Sub

Answer 3

呵呵，我不会用vba。。。不好意思