打开文件对话框选择的文件名称和路径如何反馈到指定的文本框？

harryxia

小弟琢磨了一天了，就是弄不出来，卡在了三个按钮点击对话框中的目标文件的名称和路径如何才能反馈到下面的文本框中呢？
我像这样的话就可以针对文本框的路径和文件名称，进行针对性的导入Excel和导出Access。

红尘如烟

你前面已经赋值的变量就是文件名和路径啊，把变量的值再赋给文本框就行了

Dim strInputFileName As String
strfilter = ahtAddFilterItem(strfilter, "Excel Files (*.Xls)", "*.Xls")
strInputFileName = ahtCommonFileOpenSave(Filter:=strfilter, openfile:=True, _
                DialogTitle:="Please select an input file...", _
                Flags:=ahtOFN_HIDEREADONLY)
Me.Open_Save_FileName = strInputFileName

harryxia

自己下载东西也要恢复呢！

harryxia

谢谢楼大的点睛之笔！！小弟是实在是佩服！！！

zwb6517

谢谢！我也学习了！！！

jun_hai

看看先