作者:乔山办公网日期:
返回目录:excel表格制作
FilesToOpen = Application.GetOpenFilename(FileFilter:="MicroSoft Excel文件(*.xls*),*.xls*", MultiSelect:=True, Title:="选择需要解百析度的工作知簿")
这个都可以道打开
FilesToOpen = Application.GetOpenFilename(FileFilter:="MicroSoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="选择需要解析的工作簿")
这样就回只能打答开xls文件了。
你应该用百的是Excel 2007以后版本,这种版本的Excel文件一般有两度种格式,一种是不包含宏的问文件答,扩展名是.xlsx,另一种是包含宏的文件,扩展名是.xlsm。如果你想在Excel文件里写程序,则应该把文件保存成内.xlsm格式。在文件功能区选择另容存一下就可以了。
在模块里定义:
function aa(a)
aa=a
end function
窗体里调用:
x=aa(1)
msgbox x
你带有宏的excel要保存,只能另存为.xls格式,xlsx不能保存宏代码的