vba打开一个excel文件(vba打开excel文件并操作)

1. vba打开excel文件并操作

不知道这样符不符合你的要求(一个打开，一个恢复显示)：Sub 后台打开() Application.ScreenUpdating = False Workbooks.Open Filename:="D:\excel.xls" ActiveWindow.Visible = False Application.ScreenUpdating = TrueEnd SubSub 取消隐藏() Windows("excel.xls").Visible = TrueEnd Sub

2. vba选择excel文件并打开

1.用Shell函数打开指定的文件夹

代码如下：

Sub exceloffice()

'*****************

'上面一连串代码

'最后打开文件夹看下效果

Dim sPath As String

sPath = "c:\test"

Shell "explorer.exe " & sPath, vbMaximizedFocus

End Sub

Shell函数是vba内置的函数，使用起来非常方便。它可以直接运行各种exe程序，同时附带参数运行。

使用Shell函数还可以直接运行Python打包后的exe程序，从而借助Python的强大功能助推VBA。

在本例中，Shell函数通过调用文件资源管理器explorer.exe直接打开指定的文件夹，其中 vbMaximizedFocus表示打开的时候最大化显示。

方法二：用Shell对象打开指定的文件夹

代码如下：

Sub exceloffice()

'*****************

'上面一连串代码

'最后打开文件夹看下效果

Dim sPath As String

sPath = "c:\test"

Dim oShell As Object

Set oShell = VBA.CreateObject("shell.application")

With oShell

.Open (sPath)

End With

End Sub

其实这个原理和Shell是一样的，但是Shell对象提供了自动化接口，功能更全，不仅可以打开文件夹，还可以做很多操作电脑的事情。

比如切换到桌面、打开运行对话框、关闭电脑等等，如下所示

Sub exceloffice()

Set oShell = CreateObject("shell.application")

With oShell

'切换到桌面

.ToggleDesktop

'打开运行对话框

.FileRun

'关闭电脑，记得保存文件

.ShutdownWindows

End With

End Sub

3. vba创建excel文件并打开

有关FileSearch对象更多的信息,请参考VBA自身的帮助,很详细的. 以下代码供参考. Sub aRef()Dim i As Long Dim fs As Object Set fs = Application.FileSearchWith fs'设置要查找的起始目录 .LookIn = C:\Tmep '要查找的文件类型 .FileType = msoFileTypeExcelWorkbooks '是否查找子目录 .SearchSubFolders = True '根据上面的设置执行查找 .ExecuteFor i = 1 To .FoundFiles.Count '遍历打开找到的EXCEL文件

4. vba 打开一个excel文件

1.首先需要打开VBA编辑器，有三种方法：

第一种：快捷键，Alt+F11

第二种：右键工作簿标签，选择“查看代码”

第三种：点击菜单栏的开发工具，选择Visual Basic选项卡

2.编辑代码，我只写了一个简单的功能：弹出“HelloWorld”对话框

3.将该Excel保存为加载宏xlam格式，千万不能选错了格式，否则无法加载excel中的宏代码

4.加载刚才保存的HelloWrold.xlam。点击文件-选项-加载项，然后点击转到。

5.把宏文件嵌入excel菜单。点击文件-选项-自定义功能区，在自定义功能区新建选项卡，再新建组，将左侧显示的宏命令添加至新建组内，新建的选项卡和组可以重命名，宏命令可以设置自己的图标

6.点击命令

5. vba中打开一个excel文件

方法/步骤如下

1

我们在D盘下的test文件夹新建了一个test.xlsx文件，并在文件中的工作表中A1单元格输入一些信息。

2

保存并关闭上面新建的文件，在另外一个Excel文件中打开Visual Basic，添加模块和过程。

3

在过程中输入打开文件的代码：

Workbooks.Open：在Workbooks表示文件，Open是打开的动作。

如果仅执行以上代码，会报错。

4

因此，打开文件夹的动作后面需要加上必要的参数：

Filename:="D:\test\test.xlsx"：找到D盘test文件夹下的文件。

5

执行以上代码后，就可以打开文件test.xlsx。

6

打开文件后，我们对文件做一些数据操作，如在A2单元格输入Hi World!

代码ActiveWorkbook.Sheets(1).Range("A2") = "Hi World!"：当前活跃的文件下的第一张工作表下的A2单元格输入信息。

7

再次执行以上代码后，可以看到文件内容已更新