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
- 相关评论
- 我要评论
-