vba打开一个excel文件路径(vba选择路径打开文件)

1. vba选择路径打开文件

如果你是直接在VBA中输入CMD命令打开“C:\a a.txt”，可以这样：Set wshShell = CreateObject("WScript.Shell")wshShell.Run "%Comspec% /c " & """" & "C:\a a.txt" & """"如果是在VBA中打开一个BAT文件，BAT文件中是打开“C:\a a.txt”，那么VBA中命令为：Set wshShell = CreateObject("WScript.Shell")wshShell.Run "C:\open.bat",0而“C:\open.bat”中的内容为：start "c:\a a.txt"（或直接写："c:\a a.txt"，注意加引号）

2. vba选择文件路径控件

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选择文件路径后获取文件名称

“当前路径”指的是什么的当前路径？

在Office应用程序（如Word或Excel等）中当前打开的文档所在的路径？还是Office这个应用程序所在的路径。 如果传入一个“”，好象默认是返回“我的文档”中的第一个文档。所以那个.classPath可能就是你机器上“我的文档”中的第一个文件的文件名。 下面这个函数用MsgBox显示给定目录下的所有文件名：

Function EnumAllFiles(strPathName As String) Dim strFileName As String strFileName = Dir(strPathName & "*.*") While strFileName <> "" If MsgBox("文件名是 " & strFileName & ". 是否继续枚举？", vbDefaultButton1 Or vbYesNoCancel Or vbQuestion) <> vbYes Then Exit Function strFileName = Dir Wend End Function

4. vba路径选择窗口

设置好按键 按选项-模拟器-去掉窗口非活动时暂停 (如果没有就不用去掉) 几人通信就设置几人的。

打开一个模拟器选择游戏，按SHIFT+F1保存存档。

再打开一个模拟器，选择游戏，按F1导入存档。(这时的导入存档会变成联机) (选择的游戏必须在同一目录下)开始通信了！通信时，不要用鼠标按模拟器的5个按钮，或按Alt键

5. vba 选择文件路径

答：VB复制指定文件到指定文件夹方法：

1、首先，打开或者新建一个Excel表格。

2、按下Alt+F11打开VBA编辑界面，并点击左侧任意工作表，出现右侧代码编辑

3、VBA中利用Filecopy函数实现文件的复制，被复制的文件路径作为函数第一个参数，而复制到的文件路径作为第二个参数，输入代码：

Sub 鱼木混猪()

FileCopy "D:\鱼木混猪.txt", "D:\ymhz.txt"

End Sub

4、点击代码中任意位置，然后点击“运行子程序”按钮

5、这样，到文件复制的文件夹中就可以看到，利用VBA将指定的文件复制了一份。

6. vba按路径打开excel文件

注意 c:\a 目录下的文件不要太多,免得死机 Sub 打开excel表格() Dim myPath$, myFile$, AK As WorkbookApplication.ScreenUpdating = False '冻结屏幕，以防屏幕抖动 myPath = "c:\a\" '把文件路径定义给变量 myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件 Do While myFile <> "" '当指定路径中有文件时进行循环 If myFile <> ThisWorkbook.Name Then Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件 End If myFile = Dir '找寻下一个*.xls文件 Loop Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用 End Sub