EXCEL 온라인 TXT 파일 읽기

코드를 다음과 같이 변경: Private? Sub? Commandbutton1 _ click ()

range ("a3: q 8"). clear

dim? XmlHttp? As? Object,? Tmp? As? String

Set? XmlHttp? =? Createobject ("msxml2.xmlhttp")

with? XmlHttp

.Open? "GET",? "/getData/3d.TXT",? False

.send

tmp? =? . responsetext

End? With

Dim? 아르,? S,? Brr (),? T? As? String

arr? =? 분할 (tmp,? Chr (1)

redim? Brr(? To? UBound(arr))

For? I? =? ? To? UBound(arr)

If? Len(arr(i))? > -응? ? Then

s? =? 분할 (arr (I),? "?" )

For? J? =? ? To? 4

t? =? T? & -응? S(j)? & -응? ","

Next

t? =? 왼쪽 (t,? 린 (t)? -응? 1)

brr(i)? =? T

t? =? "

End? If

Next

Cells(2,? 1)? =? 개상 기일'

Cells(2,? 2)? =? 개장일'

Cells(2,? 3)? =? "켜기"

Cells(2,? 4)? =? "상"

Cells(2,? 5)? =? "번호"

For? I? =? ? To? UBound(brr)

Cells(i? +? 3,? 1).Resize(1,? 5)? =? 분할 (brr (I),? ",")

Next

End? Sub