办公软件excel怎样用vb做保存并判断路径
1. vb保存文件到指定路径
上面回复用的FileDialog，还有可以试一下GetOpenFilename。效果是这样的，选单个或者多个都可以。VBA代码在下面Sub get_filename() Dim file_arr file_arr = Application.GetOpenFilename(MultiSelect:=True) Range("B3").Resize(UBound(file_arr), 1) = Application.WorksheetFunction.Transpose(file_arr) End Sub
2. vb中怎样引用文件路径
private sub cmd_click（）commondialog1.showopen '提示你选择保存文件的路径open "commondialog1.filename " for output as#1write#1,text1.textclose#1end subCOMMONDIALOG是通用对话框，这很常用，可以用来选择保存路径或者打开文件路径，这个控件得在vb的“工程”---“引用”里添加。
3. vb 获取文件路径
VB中有一个App对象代表当前应用程序，App.Path属性是当前应用程序所在的路径 例如： String strDatabaseName = "mydb.mdb" String strFullPathName = App.Path & "\" & strDatabaseName 则strFullPathName就代表当前路径下的mydb.mdb文件
4. vb打开文件路径
app.path是VB6中的用法.vb2010属于VB.Net，VB.Net中使用如下方法:Application.StartupPath '获取当前程序路径,如果你的程序在C:\App\,结果为 C:\AppAppDomain.CurrentDomain.SetupInformation.ApplicationBase '获取当前程序路径,如果你的程序在C:\App\,结果为 C:\App\'后者比前者的结果会多一个"\"
5. vb获取文件夹路径
VB获得当前目录：App.Path 用这个就可以了'具体打开参考我下面所写的Dim strstr = App.Path '将当前路径赋给字符串Shell str & "\VB6.EXE" '打开当前目录下的VB6.EXE``````记住，程序名前面要加个"\"
6. vbs获取文件所在路径
%AppData%路径的获取，可以通过两种方式，1)环境变量Set oShell = CreateObject("WScript.Shell"
)strHomeFolder = oShell.ExpandEnvironmentStrings("%APPDATA%"
)wscript.echo strHomeFolder2)shell的Namespace空间Const ssfAPPDATA = &H1ASet oShell = CreateObject("Shell.Application"
)strHomeFolder = oShell.NameSpace(ssfAPPDATA).Self.Pathwscript.echo strHomeFolder都可以“动态”的得到用户的AppData路径，后面自己添加Local字符串即可。（Win7下面AppData环境变量是要输出AppData\Roaming目录的，而Local和Roaming是平级，同样都是AppData下的子目录）
7. 保存vb工程文件的默认路径是
CommonDialog1.Filter="Text(*.txt)|*.txt"
CommonDialog1.FileName="ceshi"
CommonDialog1.ShowSave
8. vb打开当前路径文件
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Const SW_SHOWNORMAL = 1打开：ShellExecute 0, "open", "c:\1.txt", "", vbNullString, SW_SHOWNORMAL"c:\1.txt", ""分别为文件路径和执行参数(一般是exe)
9. vb默认保存路径
测试成功，原码： Dim xlapp As Excel.Application 'Excel对象Dim xlbook As Excel.Workbook '工作簿Dim xlsheet As Excel.Worksheet '工作表Dim xlrange As Excel.rangePrivate Sub Command1_Click()Set xlapp = CreateObject("excel.application") '第一层Set xlbook = xlapp.Workbooks.Addxlapp.Visible = Truexlbook.sheets(1).range("a1") = "新建成功"xlbook.SaveAs App.Path & "/测试.xls"xlbook.CloseEnd Sub
10. vb指定文件路径怎么写
直接采用shell语句就可以了，采用相对路径方法，如下Shell App.Path & "\2.exe"