質問: nothing msgbox i end sub
回答: ほんのちょっとの所を直しました。基本的には、単に付け足すだけです。変えた部分は、私の知っている書法の一部分です。 '// sub test01r() dim mb as workbook, wb as workbook dim myfd as string, fnme as string, ans as integer, i as long dim flg as boolean ans = msgbox("集計用フォルダーには回収したアンケートファイルとこの集計用ファイルしかないですね?", vbyesno + vbquestion, "( ̄∇ ̄) ? ") if ans = vbno then msgbox "それじゃだめです。", vbcritical, "σ( ̄ロ ̄lll)" exit sub end if set mb = thisworkbook myfd = mb.path fnme = dir(myfd & "\*.xls") do until fnme = "" if fnme <> mb.name then on error resume next set wb = workbooks(fnme) if wb is nothing then set wb = workbooks.open(myfd & "\" & fnme) flg = true end if on error goto 0 i = i + 1 mb.worksheets(1).cells(i, 1).value = wb.worksheets(1).range("s10").value if flg then wb.close false '保存せずに閉じる flg = false end if end if set wb = nothing fnme = dir() loop set mb = nothing msgbox i & "個を取得しました", vbinformation end sub