如何用vba实现导入一个excel文件(excel如何添加VBA代码)

一、如何用vba实现导入一个excel文件

Sub 导入文件()
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代码

1、在excel中可以添加VBA代码，通过打开“开发工具”，点击打开VB编辑器，进入VBA编写代码。

• 1开发工具

• 2VB编辑器

• 3选择工作，双击

• 4在代码窗中输入代码

2、VBA，Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA)，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即具备了VBA的宏功能。