大家帮我看看下面的 这个程序怎么改

来源:百度知道 编辑:UC知道 时间:2024/05/11 23:55:01
写了一段的VB程序,遇到点问题,请教大家一下,
想在这段程序之前添加一个就是象操作系统界面内的新建一个文件,然后把程序计算结果存入其中,可否指导一下如何写这段的代码
Dim xlExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim AppExcel As Object

Set xlExcel = CreateObject("Excel.Application")
xlExcel.Workbooks.Open "f:\3.xls"
Set xlBook = xlExcel.Workbooks("3.xls")
Set xlSheet = xlBook.Worksheets(1)
如果按照上面的代码,我只能每次都新建一个文件再在代码段中修改路径,比较的麻烦,主要是倒数2,3行的文件名和路径不能定死,可以随意指定路径和文件名,而且不需要再在代码中修改!

刚写了一个最简单的代码, 你明白后, 可根据实际需要再修改及应用
Sub open_file()
x = Application.GetOpenFileName("")
If x = "False" Then Exit Sub
Workbooks.Open x
End Sub
你可在接口选择路径及文件名
开始时的路径是默认在上次开启旧文件时的数据夹.
GetOpenFileName 是不可在代码上固定路径\文件名的, 如要固定, 也无需此界面, 代码写一句 Workbooks.Open “路径\文件名” 便OK