Web情報を得る段階 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Sleepの定義 Sub gethtml() Dim objIE As Object 'ＩＥオブジェクト参照用 'IEのオブジェクトを作る Set objIE = CreateObject("InternetExplorer.application") ' obj…

Dim h() As Integer '配列名と型を宣言 ReDim h(nbin + 1) '必要分だけ配列を確保 間に処理が入っても問題なし