Question

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")
怎样把这一句改成在系统中选择文件，而不是直接打开指定的文件

Answer 1

也可以使用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

Answer 2

Dim strcjfile As String

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

追问

能给完整的修改一下吗？