inet1でオーバーフローします。 (ID:143270)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 早速お世話になります。 excelvbaでinetを教えて貰い、あるサイトのtxtデータを読み込んでいます。 流さ指定にある分Ｄ／Ｌ出来ず、「オーバーフロー」というエラーになります。 （28800バイトくらいにすると処理（D/L）できます。） 解決策を教えてください。 DownloadFile "http://xxxxxxxx.dat" With Worksheets("myst").Inet1 .AccessType = icUseDefault .URL = DownloadFile .Execute , "GET" End With With Inet1 bDone = False filesize = .GetHeader("Content-length") contenttype = .GetHeader("Content-type") Kill SaveFileName io = FreeFile Open SaveFileName For Binary Access Write As #io vtData = .GetChunk(150 * 50 * 8, icByteArray) DoEvents If Len(vtData) = 0 Then bDone = True End If tempArray = vtData Put #1, , tempArray Close #1 宜しくお願いします。