vb程序中怎样用对话框选择需要打开的文件
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("f:\vb2\5月份管理表1.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlsheet = xlBook.Worksheets("sheet1") '设置活动工作表
Set xlBook = xlApp.Workbooks.Open("f:\vb2\5月份管理表1.xls")
怎样把这一句改成在系统中选择文件，而不是直接打开指定的文件
也可以使用DirListBox 、 FileListBox和DriveListBox 这几个控件各一个
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
其中filelistbox 的pattern属性用于过滤文件扩展名，设为*.XLS，表示选择XLS文件
再用SET XLBOOK=XLAPP。WORKBOOKS.OPEN("" & Dir1.Path & "\" & File1.FileName & " ")
打开的。改的测试语句如下：
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
'Set xlBook = xlApp.Workbooks.Open("D:\TEST.xls") '打开已经存在的EXCEL工件簿文件
Set xlBook = xlApp.Workbooks.Open("" & Dir1.Path & "\" & File1.FileName & " ")
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlsheet = xlBook.Worksheets("sheet1") '设置活动工作表
'Set xlBook = xlApp.Workbooks.Open("D:\TEST.xls") '怎样把这一句改成在系统中选择文件，而不是直接打开指定的文件
End Sub
On Error Resume Next
cdl.Filter = "excel(*.xls;*.xlsx)|*.xls;*.xlsx"
cdl.Action = 1
txtfile.Text = cdl.FileName
strcjfile = cdl.FileTitle
' If strdir = "" Then
' strdir = Left(cdl.FileName, Len(cdl.FileName) - Len(cdl.FileTitle))
' End If
cdl.FileName = ""
其中，cdl 为 commondialog追问
能给完整的修改一下吗？
本回答被网友采纳VB如何打开当前文件夹的文件夹和文件
为了在Visual Basic中打开当前文件夹的文件和文件夹，首先需要点击对话框下菜单，选择打开文件对话框。接着，通过点击FileName控件，设置FileName为需要打开的文件名。接下来，设置对象可见性的级别，以确保程序能正确访问所选文件。在对话框中找到并点击Title选项，设置一个合适的标题名称，这有助于用户识别...
Excel VBA和文件夹-1.7通过对话框灵活选定文件夹并打开对应文件
MsgBox "未选择文件夹", vbExclamation, "文件夹选择"End End If End Sub 点击对话框后，如果选择了文件夹，程序会判断是否执行后续操作，如需打开多个文件，可以利用`SelectedItems.Count`获取选择的文件数量，然后遍历每个选定的文件：遍历文件并打开：例如，如果有3个选定的文件，代码会如下执行：vb Fo...
vb怎么实现弹出对话框选择文件路径
VB6.0使用CommonDialog 控件弹出对话框选择文件路径。通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave 方法可显示“打开”和“另存为”对话框。两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似。下例显示“打开”对话框然后在信息框中...
vb怎么打开文件夹?
1、点击对话框下菜单，点击打开文件对话框。2、点击FileName控件，设置FileName文件名。3、然后在这里设置对象可见性的级别。4、点击Title选项，设置标题的名称。5、按F8开始单步调试代码，点击Command2，进入单步调试功能。6、多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。
VB程序设计中 通用对话框的使用方法
如：'打开文件对话框 CommonDialog1.ShowOpen '打开字体对话框 CommonDialog1.ShowFont '打开颜色对话框 CommonDialog1.ShowColor 具体可参考中国VB网：http:\/\/www.chinavb.net\/Article.Asp?id=1387 参考资料：http:\/\/www.chinavb.net\/Article.Asp?id=1387 ...
如图,在VB中,如何打开这样的文件夹选择对话框。用控件,还是API,谢谢...
打开文件对话框，添加CommonDialog控件就可以。添加方法：【工程】-【部件】在部件对话框勾选：Microsoft Common Dialog Control 6.0 (SP3)这样控件添加在工具箱中了，拖动到界面即可。主要代码：CommonDialog1.InitDir = "c:\/" '对话框初始目录 CommonDialog1.Filter = "文本文件 (.txt)|*.txt|...
VB 显示打开文件对话框
1、启动vb6。2、在菜单-工程-部件-添加Microsoft Common Dialog Control 6.0 (SP6)3、添加CommonDialog1、Command1到窗体。4、程序代码：Private Sub Command1_Click()' 设置“CancelError”为 True CommonDialog1.CancelError = True On Error GoTo ErrHandler ' 设置标志 CommonDialog1.Flags = cdl...
vb 打开文件对话框
选择了commondialog控件中的某个文件后，则其filename属性即代表此文件名，例如用下面的语句即可用windowsmediaplayer控件播放选择的媒体文件（包括rmvb）：WindowsMediaPlayer1.URL = CommonDialog1.FileName
VB通用对话框怎么选择文件夹类型的文件?
Private Sub Command1_Click()CommonDialog1.FileName = "C:\\Program Files\\566.mp3" '打开的文件夹，及默让打开的文件名 CommonDialog1.Filter = "音乐文件(*.mp3)|*.mp3|文本文件(*.txt)|*.txt|JPG图片文件(*.jpg)|*.jpg|所有文件(*.*)|*.*|"CommonDialog1.DialogTitle = " 打开...
vb用对话框打开txt文件,并保存
'当“打开”对话框按钮被按下时 Private Sub CmdOpen_Click()'出现错误时跳到下一语句 On Error Resume Next CdlTest.CancelError = True '属性DialogTitle是要弹出的对话框的标题 CdlTest.DialogTitle = "打开文件"'缺省的文件名为空 CdlTest.FileName = ""'属性Filter是文件滤器，返回或设置在...
