質問: _ application.getopenfilename( _ filefilter:="エクセルファイル(*.xls),*.xls" _ , filterindex:=1 _ , title:="ファイル選択" _ , multiselect:=true _ ) 'ファイルが選択されているとき(vntfilenameが配列型)は '選択した全てのファイルをworkbooks.openメソッドを使い開く if isarray(vntfilename) then for each vntgetfilename in vntfilename workbooks.open vntgetfilename next else exit sub end if
回答: ソートするしかないのでは。 if isarray(vntfilename) then aryfilename = msort(vntfilename) for i = 0 to ubound(aryfilename) - 1 workbooks.open aryfilename(i) next else exit sub function msort(aryw) as variant 'ソートpg省略 msort = ソート後 end function