VB中打开一个文件并获得这个文件的路径,下一步要处理这个文件。_百度知 ...

发布网友 发布时间：2024-10-24 12:54

我来回答

共2个回答

热心网友 时间：2024-11-01 14:14

Private Sub Command1_Click()
CommonDialog1.CancelError = True
CommonDialog1.DialogTitle = "指定要接收的Txt文件"
CommonDialog1.Filter = "文本文件(*.xls)|*.xls|所有文件(*.*)|*.*"
CommonDialog1.InitDir = App.Path
CommonDialog1.ShowOpen
Text1 = CommonDialog1.FileName
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open(Text1)
MsgBox "所要打开的Excel文件已经打开，下面将关闭"
xlBook.Save
xlApp.Quit
Set xlApp = Nothing
End
End Sub
'我在Windows XP试验过。更多代码请参阅我的博客:http://hi.baidu.com/zgmg

热心网友 时间：2024-11-01 14:21

CommonDialog1.FileName