如何用vba实现导入一个excel文件，并复制该文件名到单元格内?

Dim Activefile, Path, Openfile, sheet As String

Activefile = ActiveWorkbook.Name

With Application.FileDialog(msoFileDialogFilePicker)

.AllowMultiSelect = False

.Show

If (.SelectedItems.Count = 0) Then Exit Sub

Path = .SelectedItems(1)

End With

Workbooks.Open Filename:=Path

Openfile = ActiveWorkbook.Name

ActiveWindow.Close

Windows(Activefile).Activate

Range("A1") = Openfile

End Sub

这升孝信个代码是我目前在用的慎歼一套VBA中的吵轮，拿去用吧！

模块上右键菜单——导出文枣带袜件

新Excel文件中，打开VBA编辑器，导入文件，找到刚导出的文件导入即可。

如果需要执行这样检查的文件不是特别多的话，还是逐一导入模块比较合适；如果特别多的凳激话，可以考虑专门制作一个模板文件（.xlt），在其中加上你的宏，然后你的这些文件就使用这个专行山门的模板，其他文件不会受影响的。

Excel的强大优势还在于它提供的宏语言Visual Basic for Application(VBA).Visual Basic是windows环境下开发应用软件的一种通用程序设计语言，功能强大，简便易用。VBA是它的一个子集，可以广泛地应用于Microsoft公司开发的各种软件中，例如Word、Excel、Access等。