vb获取路径下excel的内容,电子表格vb保存文件到指定路径

1. vb保存文件到指定路径

 用VB写程序，要保存的时候按保存按钮，然后选择文件夹的时候选择桌面就可以了。这个时候保存的是编写的源程序，是没法直接运行的。

要想做一个能够直接运行的可执行文件，需要选择编译生成exe文件。然后你把生成的exe文件复制到桌面上去，就可以在桌面上双击这个程序的图标来运行程序了。

2. vb获取文件夹路径

app.path是VB6中的用法.vb2010属于VB.Net，VB.Net中使用如下方法:Application.StartupPath'获取当前程序路径,如果你的程序在C:\App\,结果为C:\AppAppDomain.CurrentDomain.SetupInformation.ApplicationBase'获取当前程序路径,如果你的程序在C:\App\,结果为C:\App\'后者比前者的结果会多一个"\"

3. vb指定文件路径怎么写

用 CommonDialog 控件的 ShowOpen 和 ShowSave 方法可显示“打开”和“另存为”对话框：

Private Sub Command1_Click()' 设置“CancelError”为 TrueCommonDialog1.CancelError = TrueOn Error GoTo ErrHandler' 设置标志CommonDialog1.Flags = cdlOFNHideReadOnly' 设置过滤器CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"' 指定缺省的过滤器CommonDialog1.FilterIndex = 2' 显示“打开”对话框CommonDialog1.ShowOpen' 显示选定文件的名字MsgBox CommonDialog1.FileName '显示路径Exit SubErrHandler:' 用户按了“取消”按钮Exit SubEnd Sub

4. 保存vb工程文件的默认路径是

可以，你试一下：

Dim exlApp As Excel.Application

Dim exlBook As Excel.Workbook

Set exlApp = New Excel.Application

exlApp.Visible = True '显示Excel窗口

Set exlBook = exlApp.Workbooks.Open(App.Path + "\test.xls") 'Excel文件路径及文件名

'向Excel表中写入数据，Sheets(1)为第1个工作表，Cells(行号,列号)是单元格

exlApp.Sheets(1).Cells(1, 1) = "11"

exlApp.Sheets(1).Cells(1, 2) = "12"

exlApp.Sheets(1).Cells(2, 1) = "21"

exlApp.DisplayAlerts = False '不显示警告信息

exlBook.Close True '先保存修改再关闭工作簿

exlApp.Quit '关闭Excel

5. vb中怎样引用文件路径

文本是可以的,在COMMAND1_CLICK事件中写入Open"D:\ttt.txt"ForOutputAs#1Print#1,"输入内容"Close#1就完成了文本输出但EXCEL需调用EXCEL的类,您看一下下面的介绍吧,要有耐心呀一、VB读写EXCEL表：VB本身提自动化功能可以读写EXCEL表，其方法如下：

1、在工程中引用MicrosoftExcel类型库：从"工程"菜单中选择"引用"栏；选择MicrosoftExcel9.0ObjectLibrary（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。

2、在通用对象的声明过程中定义EXCEL对象：DimxlAppAsExcel.ApplicationDimxlBookAsExcel.WorkBookDimxlSheetAsExcel.Worksheet3、在程序中操作EXCEL表常用命令：SetxlApp=CreateObject("Excel.Application")'创建EXCEL对象SetxlBook=xlApp.Workbooks.Open("文件名")'打开已经存在的EXCEL工件簿文件xlApp.Visible=True'设置EXCEL对象可见（或不可见）SetxlSheet=xlBook.Worksheets("表名")'设置活动工作表xlSheet.Cells(row,col)=值'给单元格（row,col）赋值xlSheet.PrintOut'打印工作表xlBook.Close(True)'关闭工作簿xlApp.Quit'结束EXCEL对象SetxlApp=Nothing'释放xlApp对象xlBook.RunAutoMacros(xlAutoOpen)'运行EXCEL启动宏xlBook.RunAutoMacros(xlAutoClose)'运行EXCEL关闭宏4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。

但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。二、EXCEL的宏功能：EXCEL提供一个VisualBasic编辑器，打开VisualBasic编辑器，其中有一工程属性窗口，点击右键菜单的"插入模块"，则增加一个"模块1"，在此模块中可以运用VisualBasic语言编写函数和过程并称之为宏。

其中，EXCEL有两个自动宏：一个是启动宏（SubAuto_Open()），另一个是关闭宏（SubAuto_Close()）。

它们的特性是：当用EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭宏的工作簿时就会自动运行关闭宏。

但是通过VB的自动化功能来调用EXCEL工作表时，启动宏和关闭宏不会自动运行，而需要在VB中通过命令xlBook.RunAutoMacros(xlAutoOpen)和xlBook.RunAutoMacros(xlAutoClose)来运行启动宏和关闭宏。三、VB与EXCEL的相互勾通：充分利用EXCEL的启动宏和关闭宏，可以实现VB与EXCEL的相互勾通，其方法如下：在EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删除此标志文件的程序。

VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开，如果此标志文件存在，表明EXCEL对象正在运行，应该禁止其它程序的运行。

如果此标志文件不存在，表明EXCEL对象已被用户关闭，此时如果要使用EXCEL对象运行，必须重新创建EXCEL对象。四、举例：

1、在VB中，建立一个FORM，在其上放置两个命令按钮，将Command1的Caption属性改为EXCEL，Command2的Caption属性改为End。

然后在其中输入如下程序：

DimxlAppAsExcel.Application'定义EXCEL类DimxlBookAsExcel.Workbook'定义工件簿类DimxlsheetAsExcel.Worksheet'定义工作表类PrivateSubCommand1_Click()'打开EXCEL过程IfDir("D:\temp\excel.bz")=""Then'判断EXCEL是否打开SetxlApp=CreateObject("Excel.Application")'创建EXCEL应用类xlApp.Visible=True'设置EXCEL可见SetxlBook=xlApp.Workbooks.Open("D:\temp\bb.xls")'打开EXCEL工作簿Setxlsheet=xlBook.Worksheets(1)'打开EXCEL工作表xlsheet.Activate'激活工作表xlsheet.Cells(1,1)="abc"'给单元格1行驶列赋值xlBook.RunAutoMacros(xlAutoOpen)运行EXCEL中的启动宏ElseMsgBox("EXCEL已打开")EndIfEndSubPrivateSubCommand2_Click()IfDir("D:\temp\excel.bz")<>""Then'由VB关闭EXCELxlBook.RunAutoMacros(xlAutoClose)'执行EXCEL关闭宏xlBook.Close(True)'关闭EXCEL工作簿xlApp.Quit'关闭EXCELEndIfSetxlApp=Nothing'释放EXCEL对象EndEndSub2、在D盘根目录上建立一个名为Temp的子目录，在Temp目录下建立一个名为"bb.xls"的EXCEL文件。3、在"bb.xls"中打开VisualBasic编辑器，在工程窗口中点鼠标键选择插入模块，在模块中输入入下程序存盘：Subauto_open()Open"d:\temp\excel.bz"ForOutputAs#1'写标志文件Close#1EndSubSubauto_close()Kill"d:\temp\excel.bz"'删除标志文件EndSub4、运行VB程序，点击EXCEL按钮可以打开EXCEL系统，打开EXCEL系统后，VB程序和EXCEL分别属两个不同的应用系统，均可同时进行操作，由于系统加了判断，因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮，则会重新打开EXCEL。而无论EXCEL打开与否，通过VB程序均可关闭EXCEL。这样就实现了VB与EXCEL的无缝连接。

6. vb打开当前路径文件

首先将文件显示做了区分：文件夹名称显示folderlist()，文件名称显示filelist():

Private Function folderlist(pathname As String, treeflag As Integer) 'treeflag:0列表 1树形 2树形展开

'文件夹数和名称

Dim sf As String

sf = Dir(pathname, vbDirectory) '获取第一个目录名

foldernum = 0

Do While sf <> ""

' 跳过当前的目录及上层目录

If sf <> "." And sf <> ".." Then

If (GetAttr(pathname + sf) And vbDirectory) = vbDirectory Then

If treeflag = 0 Then

Text2 = Text2 & sf & vbCrLf ' 如果它是一个目录，将其名称添加到列表

ElseIf treeflag = 1 Then

Text2 = Text2 & Treestr & sf & vbCrLf

ElseIf treeflag = 2 Then '树形展开的时候，需要了解子目录，所以还需进行递归调用

Text2 = Text2 & Treestr & sf & vbCrLf

folderlist pathname + sf, treeflag

filelist pathname + sf, treeflag

End If

foldernum = foldernum + 1 '统计文件夹数目

End If

End If

sf = Dir() ' 查找下一个目录

Loop

If treeflag = 0 Then

If foldernum <> 0 Then

Text2 = Text2 & vbCrLf & "======共有" & foldernum & "个文件夹======" & vbCrLf & vbCrLf

Else

Text2 = Text2 & "======无子目录======" & vbCrLf & vbCrLf

End If

ElseIf foldernum <> 0 Then

Text2 = Text2 & Nullstr & vbCrLf & Nullstr & vbCrLf

End If

End Function

Private Function filelist(pathname As String, treeflag As Integer) '0列表 1树形 2树形展开

'文件数和名称

Dim a As String

a = Dir(pathname & "/*.*")

filenum = 0

Do While a <> ""

If treeflag = 0 Then

Text2 = Text2 & a & vbCrLf

Else

Text2 = Text2 & Treestr & a & vbCrLf

End If

filenum = filenum + 1 '统计文件数目

a = Dir

Loop

If treeflag = 0 Then

If filenum <> 0 Then

Text2 = Text2 & "======共有" & filenum & "个文件======"

Else

Text2 = Text2 & "======无文件信息======"

End If

End If

End Function

7. vb 获取文件路径

Dim str As Stringstr = IIf(Len(App.Path) > 3, App.Path & "\" & App.EXEName & ".exe", App.Path & App.EXEName & ".exe") str 就是EXE文件的路径了。搞这么复杂是因为当EXE文件在根目录下的时候，app.path 是带有“\”，不在根目录下的时候没有。

8. vb打开文件路径

注意 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

9. vbs获取文件所在路径

vbs全称VBScript，是vb的脚本，不支持图片、音频、视频等媒体。

放二维码可以用vb，vb的话直接插入图片（image/picturebox都可以）到窗体就可以了。不直接插入手打代码也行。

vb image控件代码如下

Private Sub Form_Load()

Image1.Picture = LoadPicture("图片路径", vbLPLarge, vbLPColor)

End Sub

vb picturebox控件代码如下

Private Sub Form_Load()

Picture1.Picture = LoadPicture("路径")

End Sub

我们电脑上vbs运行的时候会调用C盘一些文件，这些是window操作系统的文件，手机通常是安卓或者ios系统，所以不能运行vbs。

10. vb默认保存路径

1、你可以用

msgbox textbox1.top

msgbox textbox1.left

来看一看是不是位移了

2、点“文件”——保存工程，弹出“文件另存为”窗口，选择窗体的路径，点“保存”，然后又弹出“工程另存为”对话框，选择工程的路径，点“保存”就行了。

如果要编译为EXE应用程序，点“文件”——生成工程，然后选择应用程序的路径，点“确定”就行了。

扩展资料：

VB参考函数

InputBox 函数： 在对话框中显示提示信息，等待用户输入文本或者单击按钮，并返回文本框的内容。

InStr 函数： 返回一个字符串在另一个字符串中第一次出现的位置。

InStrRev 函数： 返回一个字符串在另一个字符串中出现的位置，是从字符串的末尾算起。

Int 函数 ：返回数的整数部分