原程序如下:
If con.RecordCount > 0 Then Exit Sub
Open "F:\数据连接\yhsjs.txt" For Output As #1
Do While Not con.EOF
想把Open "F:\数据连接\yhsjs.txt" For Output As #1中的F:\数据连接\yhsjs.txt句子改进用CommonDialog控件来指定。
请高手指教,谢谢!
If con.RecordCount > 0 Then Exit Sub
Open "F:\数据连接\yhsjs.txt" For Output As #1
Do While Not con.EOF
想把Open "F:\数据连接\yhsjs.txt" For Output As #1中的F:\数据连接\yhsjs.txt句子改进用CommonDialog控件来指定。
请高手指教,谢谢!
"F:\数据连接\yhsjs.txt"改为CommonDialog.FileName