Insert Web Form to Excel, Lỗi link dài và nội dung lỗi font

[sadboy309]

1. Em muốn dùng tính năng Data/Web Form để chèn nội dung website vào bảng tính. Nhưng khi em có 1 link dài thì máy không thể tải nội dung đó xuống được. Em xin hỏi là làm sao mới có thể tải những link dài đó đc ạ?
Sub insLink()
Sheet1.QueryTables.Add(Connection:= _
"URL;http://tinyurl.com/n55kn77" _
, Destination:=Range("$A$1"))

2. Em muốn tải lun Source nguồn của trang để đọc thì nội dung bị lỗi font chữ hết trơn. Mấy anh chị có thể cho em biết thêm cách chọn Unicode cho nội dung tải về được không ạ?

Sub insLink_scr()
Sheet1.QueryTables.Add(Connection:= _
"TEXT;http://tinyurl.com/m5x7dsf" _
, Destination:=Range("$A$1"))

Em xin cảm ơn nhiều ạ!