-
VBA 弹框选择文件路径
2017-10-30 20:17:34弹框选择文件路径Sub chooseDocumentPath() 'Auther 云浮清秋 '弹框选择文件路径 '---------------------------------------------- Dim dataExcel, Workbook, dataSheet, filePath Dim totalRow As Integer Set dataExcel = CreateObject("Excel.Application") filePath = Application.GetOpenFilename(Title:="弹框显示的标题文本内容", MultiSelect:=False) '可以选择各种格式的文件 ' filePath = Application.GetOpenFilename("Excel Files (*.xls*), *.Excel") '必须选择excel格式的文件 If filePath <> False Then Set Workbook = dataExcel.Workbooks.Open(filePath) Set dataSheet = Workbook.Worksheets(1) On Error GoTo noData totalRow = dataSheet.UsedRange.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row For i = 2 To totalRow Sheets("sheet1").Cells(i, 1) = dataSheet.Cells(i, 1) Sheets("sheet1").Cells(i, 2) = dataSheet.Cells(i, 2) Next i Workbook.Close MsgBox "读取成功!", vbSystemModal '读取完后弹框提醒 Else Exit Sub End If noData: MsgBox "你选择的文件无数据,请确认后再试!", vbSystemModal '读取不到数据 '---------------------------------------------- End Sub
-
VB/VBA通用路径选择对话框
2011-11-03 00:11:20MsgBox "你选择的路径是: " & strMyPath End Sub 摘自:网络整理 相关 文 章 参考 : ★ VB 查找替代字符串的函数 ★ VB 换行气泡提示类 ★ VB/VBA 通用路径选择对话框 ★ ASCII 码表 0...'MOD2
Option Explicit
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pDisplayName As String
lpTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End TypePrivate Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
"SHGetPathFromIDListA" (ByVal pidl As Long, _
ByVal pPath As String) As LongPrivate Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
As LongPrivate Const BIF_RETURNONLYFSDIRS = &H1
' *******************************************************************
' 函数名: BrowseFolder
' 功能: 浏览及选择文件夹通用对话框
' 使用方法:(1)将mdlBrowseFolder.bas模块添加到当前工程中;
' (2)在当前工程中使用
' dim strMyPath as String
' strMyPath=BrowseFolder("请选择目录")
' 代码段进行调用,用户选择的目录将保存在strPath字符串变量下;
' (3) 如果用户选择"取消"按钮,则strPath的值为空;
' *******************************************************************Public Function BrowseFolder(strDialogTitle As String) As String
Dim X As Long
Dim bi As BROWSEINFO
Dim dwIList As Long
Dim strPath As String
Dim wPos As IntegerWith bi
.hOwner = 0& 'hWndAccessApp
.lpTitle = strDialogTitle
.ulFlags = BIF_RETURNONLYFSDIRS
End WithdwIList = SHBrowseForFolder(bi)
strPath = Space$(512)
X = SHGetPathFromIDList(ByVal dwIList, ByVal strPath)If X Then
wPos = InStr(strPath, Chr$(0))
BrowseFolder = Left$(strPath, wPos - 1)
Else
BrowseFolder = vbNullString
End If' 确保返回的路径字符串的最后一个字符为"\"
If BrowseFolder <> "" And Right$(Trim$(BrowseFolder), 1) <> "\" Then
BrowseFolder = BrowseFolder & "\"
End IfEnd Function
' 测试示例
Sub Main()
Dim strMyPath As String
strMyPath = BrowseFolder("请选择目录")
MsgBox "你选择的路径是: " & strMyPath
End Sub
相关文章参考:
★VB取得TextBox、RichTextBox光标所在的行和列(支持汉字)
★VB取得TextBox、RichTextBox光标所在的行和列(支持汉字)
★VB根据窗体自动调整窗体内控件大小 注:实用,可以直接引用
★Visual Basic编程常见问题及解答(1)
★Visual Basic编程常见问题及解答(2)
★Visual Basic编程常见问题及解答(3)
★VisualBasic变量、常数和数据类型及过程概述
★VB6的后期绑定和前期绑定
★VB 计算自己程序段所用时间
★VB 获取路径名各部分 (获取文件路径,获取文件名,获取文件扩展名)自编
★VB 在浏览器中打开指定网址
-
VBA编程调用windows资源管理器, 选择路径
2019-11-18 21:23:02利用Excel的VBA编程调用windows资源管理器, 自助选择路径, 并返回路径地址, 基础操作!!! -
EXCEL-VBA:调用打开文件夹对话框,选择路径
2017-10-05 15:40:11EXCEL-VBA:调用打开文件夹对话框,选择路径With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = ActiveSheet.TextBox1.Value .Title = "请选择目录" If .Show Then ActiveSheet.TextBox1.Value = .SelectedItems(1) & "\" End If End With
-
制作路径选择对话框_Excel VBA应用.rar
2019-09-26 11:20:27制作路径选择对话框_Excel VBA应用.rar,Excel VBA中的GetOpenFilename和GetSaveAsFilename方法能够显示标准的文件打开和文件保存对话框,以获取用户选定文件的完整路径与文件名,但是不能用于文件路径的选� H绻... -
shell路径变量 vba_VBA|获取常用的路径并按照选择的路径打开指定的文件夹
2021-01-17 14:08:25Private 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 ...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 Long
Private Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib 'user32' Alias 'PostMessageA' (ByVal hWnd As Long, ByVal wMsg As Long, ByVal sParam As Long, ByVal lParam As Long) As Long
Private Const WM_CLOSE As Long = &H10
'以上代码声明API函数和常量
Public Sub OpenDirectory()
Dim path1 As String
path1 = ActiveCell
ShellExecute 0, '', '', '', path1, 1
End Sub
Public Sub CloseDirectory()
Dim hWnd As Long
hWnd = FindWindows(vbNullString, 'C:\Program Files\Microsoft Office\Office12')
PostMessage hWnd, WM_CLOSE, 0, 0
End Sub
-
Excel VBA 获取指定路径下的图片名称(带后缀)/(不带后缀)/跳出选择路径对话框手动选择路径
2013-08-26 18:07:33Sub getpicname() '获取指定路径下的图片名称 myDir = "C:\Lx\all" n = 1 Filename = Dir(myDir & "\*.jpg") Do While Filename Cells(n, 1) = Filename Filename = Dir n = n + 1 -
如何用VBA打开选择文件和选择路径的对话框
2009-07-07 09:59:00注意引用 microsoft office 10.0 (或以上) object library 在文件对话框对中返回选择一个文件夹的路径. Public Function ChooseFolder() As String Dim dlgOpen As FileDialog Set d -
【VBA】VBA打开文件选择框、取得文件全路径与文件名
2014-05-25 19:05:26'VBA打开文件选择框、取得文件全路径与文件名 Sub selectExcelfile() Dim fileNameObj As Variant Dim aFile As Variant '数组,提取文件名fileName时使用 '打开文件对话框返回的文件名,是一个全路径文件名,... -
VBA自动点击IE的浏览按钮、自动选择路径、自动关闭打开文件对话框
2019-10-03 16:22:47VBA调用InternetExplorer操作IE浏览器,自动弹出文件选择对话框时,VBA会处于阻塞状态,你必须手工关闭文件选择对话框,VBA才能继续向后运行。 例如下面网址,就有一个文件浏览按钮: ... 我做了一个exe文件,可以在... -
VBA GetOpenFilename文件类型筛选规则,返回选择的文件完整路径和文件名
2019-07-02 22:18:43@VBA GetOpenFilename文件类型筛选规则,返回选择的文件完整路径和文件名 一、概述基本语法 'GetOpenFilename相当于Excel打开窗口,通过该窗口选择要打开的文件,并可以返回选择的文件完整路径和文件名。 '注: 1、此... -
VBA 选择文件
2015-09-06 11:24:00Private Function SelectFile(ByVal strFilter As String) As String Dim ...'打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant Dim sFileName As String... -
VBA打开文件选择框、取得文件全路径与文件名
2011-03-16 15:19:30在VBA编程中我们,常常需要手动打开文件选择框、取得文件全路径与文件名,下载这个例子可以实现这些功能,代码如下: [code="c#"] 'VBA打开文件选择框、取得文件全路径与文件名 Sub selectExcelfile... -
VBA-通过选择文件对话框对获取文件或文件夹路径
2018-09-12 15:30:06获取文件路径: Public Sub 文件路径() Dim strFolder As String '差异:msoFileDialogFilePicker With Application.FileDialog(msoFileDialogFilePicker) '文件对话框的题目,根据个人情况进行设定 .... -
cad vba 打开文件对话框_AutoCAD VBA选择文件夹的代码
2020-12-22 18:27:33'AutoCADVBA选择文件夹的代码'流沙之泉编写于2018年11月30日,于...'其中GetFolder函数可以选择文件夹并返回选择的路径(按取消则返回空字符串),'ListFilesFSO过程可以根据传入的文件夹路径在调试输出窗口输出文件名... -
VBA- 弹出对话框,选择文件夹,并获取文件夹路径
2019-11-21 17:38:36"您选择的文件夹是:" & Path , vbOKOnly + vbInformation , "智能Excel" '获取到的Path长这个样子: "D:\VBA\Report\Format" ,Format就是我选中的文件夹的名字 End If End With End Sub ... -
Excel VBA选择文件、高容错性地打开文件
2017-07-06 16:15:02VBA选择文件 Sub SelectFile() Dim FileName As Variant '打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant Dim sFileName As String '从FileN -
用Excel VBA选择文件、打开文件
2010-07-15 23:26:00介绍如何用VBA选择文件和用VBA打开文件。 点击打开文件会弹出一个windows文件打开对话框,在EXCEL中VBA怎么实现这个功能? Sub SelectFile() Dim FileName As Variant '... -
VBA-选择文件
2018-08-04 11:26:07Option Explicit Sub 打开文件() Dim fileNameObj As Variant ... '打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant Dim filename As String Dim ful... -
vba cad 获取宏的路径_VBA批量创建文件目录及链接,建议收藏备用
2020-12-14 15:40:45今天教大家通过VBA代码来实现同样的功能,提取文件夹内的文件信息更加灵活,只要选择对应的文件夹即可。实现效果操作方法:1. 在Excel界面按快捷键ALT+F11进入VBE界面。2. 在VBE工程里面插入一个模块。3. 将以下代码... -
VBA小程序--弹出文件夹选择框,获取计算机路径信息的两种方法
2020-05-24 14:10:14Dim FolderDialogObject As FileDialog Set FolderDialogObject = Application.FileDialog(msoFileDialogFolderPicker) '配置对话框,默认路径为C盘 With FolderDialogObject .Title = "请选择要查找的文件夹" .... -
VBA-选择文件对话框
2015-09-17 13:57:29'打开选择路径对话框 '@strTitle 对话框标题名 '@strTypesDec 选择文件类型名(多文件名时用"|"连接) "Images|All files" '@strExten 选择文件类型(一个文件名有多个读取类型时用";"连接,多个文件名用|连接... -
Excel VBA获取选择文件的文件名称
2020-10-20 10:50:20'打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant Dim i As Integer File = Application.GetOpenFilename("Excel 文件,*.xls;*.xlsx;*.xlsm") '调用Windows打开文件... -
CorelDRAW VBA - 打开选择文件夹对话框
2018-01-10 22:04:51这篇教程将教会你使用 CorelDRAW 在代码中调用系统的文件夹选择对话框,并循环输出文件的名称和路径。 实现 代码如下: Sub chooseFolder() ' 声明变量 Dim shell, folder, fs, fd, files ' 创建... -
遍历文件夹_Excel VBA 如何快速遍历文件夹/子文件夹中文件的路径
2021-01-13 19:06:11以下是最简单的代码,可以选择文件夹和想要遍历的文件后缀。Sub Find_Files() Dim fldr As FileDialog Dim f, ibox, sn Set fldr = Application.FileDialog(msoFileDialogFolderPicker)fldr.Show f = fldr....