Lấy dữ liệu từ Website vào Excel

Liên hệ QC
PacificPR

PacificPR

Thành viên mới
Tham gia
6/5/16
Bài viết
1,997
Được thích
2,747
Xin chào các Anh (Chị):
Kính mong Anh(Chị) viết dùm em Code lấy dữ liệu từ Website vào Excel
Hiện tại em đang muốn lấy thông tin thời tiết từ ngày ... đến ngày ... tại trang https://www.accuweather.com vào trong Exel để lấy thông tin ngày mưa của địa phương mà công trình thi công.
Như File đính kèm thì ô B2 là ngày bắt đầu, ô D2 là ngày kết thúc và ô B3 là đường Link của địa phương công trình đang thi công nhưng chưa biết hướng giải quyết phải như thế nào.
Em xin chân thành cảm ơn./
 

File đính kèm

  • Thong tin thoi tiet.xls
    43.5 KB · Đọc: 99
Sắp xếp theo thời gian sắp xếp theo bầu chọn
excel_lv1.5 đã viết:
Tôi chỉnh lại code này của bạn chút:
PHP: 
Sub getdataweb()
Application.ScreenUpdating = False
Dim hrq As Object, html As Object, url As String, dated As Date, row As Object, cell As Object
Dim i As Long, j As Long, k As Long, nmonth As Long, wf As WorksheetFunction
Set wf = WorksheetFunction
Set hrq = CreateObject("msxml2.xmlhttp")
Set html = CreateObject("htmlfile")
[a6:g65000].Clear
For nmonth = 0 To DateDiff("m", wf.EoMonth([b2], -1) + 1, wf.EoMonth([d2], 0) + 1)
    url = "https://www.accuweather.com/vi/vn/thai-binh/356177/january-weather/356177?monyr=" _
    & Format(wf.EDate([b2], nmonth), "m/d/yyyy") & "&view=table"
    With hrq
        .Open "GET", url, False
        .send
        Do While .readystate <> 4
            DoEvents
        Loop
       html.body.innerhtml = .responsetext
    End With
    For Each row In html.getelementsbytagname("tbody")(0).Rows
        dated = DateValue(Split(Trim(row.Cells(0).innertext), " ")(1) & "/" & Year(wf.EDate([b2], nmonth)))
        If dated >= [b2] And dated <= [d2] Then
            i = i + 1: j = 0
            For Each cell In row.Cells
                j = j + 1
                Cells(i + 5, j) = cell.innertext: Cells(i + 5, 7) = Format(wf.EDate([b2], nmonth), "mm/yyyy")
            Next
        End If
    Next
Next nmonth
[a6].CurrentRegion.Borders.LineStyle = 1
Set hrq = Nothing
Set html = Nothing
Application.ScreenUpdating = True
MsgBox "Done!"
End Sub
Nhấp chuột vào đây để mở rộng...
Em cám ơn anh nhiều.
Anh cho em hỏi xíu nữa: Trong đường Link này https://www.accuweather.com/vi/vn/thai-binh/356177/january-weather/356177?monyr=1/1/2017&view=table
Có cách nào xác định được cái chỗ màu đỏ trên không ạ
Ví dụ mình tạo thêm 1 ô chứa tỉnh hoặc thành phố nữa (Ví dụ ơ ô F2) . Khi chọn tỉnh hoặc thành phố thì cái vùng màu đỏ cũng thay đổi theo không ạ
Ví dụ:
Hà Nội : vi/vn/hanoi/353412
Hà Giang: vi/vn/ha-giang/353389
Cao Bằng: vi/vn/cao-bang/352511
Nếu mà các định được cái đó thì khi mình chọn địa danh khác nhau đỡ phải bật cái trang https://www.accuweather để lấy đường Link ạ
 
Upvote 0
PacificPR đã viết:
Em tìm đọc về CreateObject("MSXML2.ServerXMLHTTP") . Nhưng đọc mãi vẫn như nước đổ đầu vịt ấy anh ạ. Chẳng ngấm được cái gì +-+-+-+
Nhấp chuột vào đây để mở rộng...

Mình cũng muốn học món lấy dữ liệu Web lắm ............. nhưng càng coi càng nhức đầu

1/ Khi nào thì dùng: CreateObject("Microsoft.XMLHTTP")
2/ Khi nào thì dùng: CreateObject("MSXML2.ServerXMLHTTP")
3/ Kết hợp với CreateObject("ADODB.Stream") ............. như thế nào .................. Nói chung là thua :D:p
4/ .................vv
 
Upvote 0
PacificPR đã viết:
Em cám ơn anh nhiều.
Anh cho em hỏi xíu nữa: Trong đường Link này https://www.accuweather.com/vi/vn/thai-binh/356177/january-weather/356177?monyr=1/1/2017&view=table
Có cách nào xác định được cái chỗ màu đỏ trên không ạ
Ví dụ mình tạo thêm 1 ô chứa tỉnh hoặc thành phố nữa (Ví dụ ơ ô F2) . Khi chọn tỉnh hoặc thành phố thì cái vùng màu đỏ cũng thay đổi theo không ạ
Ví dụ:
Hà Nội : vi/vn/hanoi/353412
Hà Giang: vi/vn/ha-giang/353389
Cao Bằng: vi/vn/cao-bang/352511
Nếu mà các định được cái đó thì khi mình chọn địa danh khác nhau đỡ phải bật cái trang https://www.accuweather để lấy đường Link ạ
Nhấp chuột vào đây để mở rộng...
Anh có thể đưa được thông tin mô tả tình hình thời tiết vào để làm nhật ký không (ví dụ: Mây thấp, mưa nhỏ, ...)
 
Upvote 0
ThaiDieuAnh đã viết:
Anh có thể đưa được thông tin mô tả tình hình thời tiết vào để làm nhật ký không (ví dụ: Mây thấp, mưa nhỏ, ...)
Nhấp chuột vào đây để mở rộng...
Mình thấy tại đây họ có nói nè :p
Chờ các Anh (Chị) trong diễn đàn giúp thêm về các mã tỉnh hoặc thành phố ở bài 21 nữa là bài toán về thời tiết của mình chắc cũng ổn rồi nhỉ :D
 
Upvote 0

File đính kèm

  • Screenshot_20180106-111206.png
    Screenshot_20180106-111206.png
    290.9 KB · Đọc: 38
Upvote 0
PacificPR đã viết:
Em cám ơn anh nhiều.
Anh cho em hỏi xíu nữa: Trong đường Link này https://www.accuweather.com/vi/vn/thai-binh/356177/january-weather/356177?monyr=1/1/2017&view=table
Có cách nào xác định được cái chỗ màu đỏ trên không ạ
Ví dụ mình tạo thêm 1 ô chứa tỉnh hoặc thành phố nữa (Ví dụ ơ ô F2) . Khi chọn tỉnh hoặc thành phố thì cái vùng màu đỏ cũng thay đổi theo không ạ
Ví dụ:
Hà Nội : vi/vn/hanoi/353412
Hà Giang: vi/vn/ha-giang/353389
Cao Bằng: vi/vn/cao-bang/352511
Nếu mà các định được cái đó thì khi mình chọn địa danh khác nhau đỡ phải bật cái trang https://www.accuweather để lấy đường Link ạ
Nhấp chuột vào đây để mở rộng...
F2 bạn đánh chữ "Đà Nẵng", dùng code này:
PHP: 
Sub getdataweb()
Application.ScreenUpdating = False
Dim hrq As Object, html As Object, url As String, dated As Date, row As Object, cell As Object, a As Object, reg As Object, str As String, id As String
Dim i As Long, j As Long, k As Long, nmonth As Long, wf As WorksheetFunction, url2 As String, url3 As String
Set wf = WorksheetFunction: Set hrq = CreateObject("msxml2.xmlhttp"): Set html = CreateObject("htmlfile")
url = "https://www.accuweather.com/vi/vn/thai-binh/356177/january-weather/356177?monyr="
[a6:g65000].Clear
With hrq
    .Open "POST", "https://www.accuweather.com/vi/search-locations", False
    .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .send "s=" & [F2]
    Do While .readystate <> 4
        DoEvents
    Loop
    html.body.innerhtml = .responsetext
End With
For Each a In html.getelementsbytagname("a")
    If a.innertext Like "*" & [F2] & "*" & [F2] & "*" Then
        With CreateObject("vbscript.regexp")
            .Pattern = "\d+": id = .Execute(a.href).Item(0)
        End With
    End If
Next
For nmonth = 0 To DateDiff("m", wf.EoMonth([b2], -1) + 1, wf.EoMonth([d2], 0) + 1)
    With CreateObject("vbscript.regexp")
       .Global = True: .Pattern = "\/\d+": url2 = .Replace(url, "/" & id)
    End With
    url3 = url2 & Format(wf.EDate([b2], nmonth), "m/d/yyyy") & "&view=table"
    With hrq
        .Open "GET", url3, False
        .send
        Do While .readystate <> 4
            DoEvents
        Loop
       html.body.innerhtml = .responsetext
    End With
    For Each row In html.getelementsbytagname("tbody")(0).Rows
        dated = DateValue(Split(Trim(row.Cells(0).innertext), " ")(1) & "/" & Year(wf.EDate([b2], nmonth)))
        If dated >= [b2] And dated <= [d2] Then
            i = i + 1: j = 0
            For Each cell In row.Cells
                j = j + 1
                Cells(i + 5, j) = cell.innertext: Cells(i + 5, 7) = Format(wf.EDate([b2], nmonth), "mm/yyyy")
            Next
        End If
    Next
Next nmonth
[a6].CurrentRegion.Borders.LineStyle = 1
Set hrq = Nothing
Set html = Nothing
Application.ScreenUpdating = True
MsgBox "Done!"
End Sub
 

File đính kèm

  • Thong tin thoi tiet (1) (3).xlsb
    24.2 KB · Đọc: 90
Upvote 0
excel_lv1.5 đã viết:
F2 bạn đánh chữ "Đà Nẵng", dùng code này:
PHP: 
Sub getdataweb()
Application.ScreenUpdating = False
Dim hrq As Object, html As Object, url As String, dated As Date, row As Object, cell As Object, a As Object, reg As Object, str As String, id As String
Dim i As Long, j As Long, k As Long, nmonth As Long, wf As WorksheetFunction, url2 As String, url3 As String
Set wf = WorksheetFunction: Set hrq = CreateObject("msxml2.xmlhttp"): Set html = CreateObject("htmlfile")
url = "https://www.accuweather.com/vi/vn/thai-binh/356177/january-weather/356177?monyr="
[a6:g65000].Clear
With hrq
    .Open "POST", "https://www.accuweather.com/vi/search-locations", False
    .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .send "s=" & [F2]
    Do While .readystate <> 4
        DoEvents
    Loop
    html.body.innerhtml = .responsetext
End With
For Each a In html.getelementsbytagname("a")
    If a.innertext Like "*" & [F2] & "*" & [F2] & "*" Then
        With CreateObject("vbscript.regexp")
            .Pattern = "\d+": id = .Execute(a.href).Item(0)
        End With
    End If
Next
For nmonth = 0 To DateDiff("m", wf.EoMonth([b2], -1) + 1, wf.EoMonth([d2], 0) + 1)
    With CreateObject("vbscript.regexp")
       .Global = True: .Pattern = "\/\d+": url2 = .Replace(url, "/" & id)
    End With
    url3 = url2 & Format(wf.EDate([b2], nmonth), "m/d/yyyy") & "&view=table"
    With hrq
        .Open "GET", url3, False
        .send
        Do While .readystate <> 4
            DoEvents
        Loop
       html.body.innerhtml = .responsetext
    End With
    For Each row In html.getelementsbytagname("tbody")(0).Rows
        dated = DateValue(Split(Trim(row.Cells(0).innertext), " ")(1) & "/" & Year(wf.EDate([b2], nmonth)))
        If dated >= [b2] And dated <= [d2] Then
            i = i + 1: j = 0
            For Each cell In row.Cells
                j = j + 1
                Cells(i + 5, j) = cell.innertext: Cells(i + 5, 7) = Format(wf.EDate([b2], nmonth), "mm/yyyy")
            Next
        End If
    Next
Next nmonth
[a6].CurrentRegion.Borders.LineStyle = 1
Set hrq = Nothing
Set html = Nothing
Application.ScreenUpdating = True
MsgBox "Done!"
End Sub
Nhấp chuột vào đây để mở rộng...
Nhờ anh kiểm tra lại giúp em với.
1. Dữ liệu lấy chưa đúng với dữ liệu gốc
2. Hình như Code này chỉ lấy được Thành phố lớn như Hà Nội, Đà Nẵng... còn các tỉnh còn lại lỗi tại file đính kèm Ninh Thuận anh ạ
Em cám ơn anh nhiều./
 

File đính kèm

  • Thong tin thoi tiet (1) (3).xlsb
    32.1 KB · Đọc: 32
  • Thong tin thoi tiet (1) (Ninh Thuan).xlsb
    23.1 KB · Đọc: 19
Upvote 0
PacificPR đã viết:
Nhờ anh kiểm tra lại giúp em với.
1. Dữ liệu lấy chưa đúng với dữ liệu gốc
2. Hình như Code này chỉ lấy được Thành phố lớn như Hà Nội, Đà Nẵng... còn các tỉnh còn lại lỗi tại file đính kèm Ninh Thuận anh ạ
Em cám ơn anh nhiều./
Nhấp chuột vào đây để mở rộng...
Tôi thấy Hà Nội lấy đúng mà bạn! Ninh Thuận bị lỗi là do không có , bạn search thử xem!!!
upload_2018-1-6_12-4-28.png
 
Upvote 0
...
 
Lần chỉnh sửa cuối:
Upvote 0
excel_lv1.5 đã viết:
F2 bạn đánh chữ "Đà Nẵng", dùng code này:
PHP: 
Sub getdataweb()
Application.ScreenUpdating = False
Dim hrq As Object, html As Object, url As String, dated As Date, row As Object, cell As Object, a As Object, reg As Object, str As String, id As String
Dim i As Long, j As Long, k As Long, nmonth As Long, wf As WorksheetFunction, url2 As String, url3 As String
Set wf = WorksheetFunction: Set hrq = CreateObject("msxml2.xmlhttp"): Set html = CreateObject("htmlfile")
url = "https://www.accuweather.com/vi/vn/thai-binh/356177/january-weather/356177?monyr="
[a6:g65000].Clear
With hrq
    .Open "POST", "https://www.accuweather.com/vi/search-locations", False
    .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .send "s=" & [F2]
    Do While .readystate <> 4
        DoEvents
    Loop
    html.body.innerhtml = .responsetext
End With
For Each a In html.getelementsbytagname("a")
    If a.innertext Like "*" & [F2] & "*" & [F2] & "*" Then
        With CreateObject("vbscript.regexp")
            .Pattern = "\d+": id = .Execute(a.href).Item(0)
        End With
    End If
Next
For nmonth = 0 To DateDiff("m", wf.EoMonth([b2], -1) + 1, wf.EoMonth([d2], 0) + 1)
    With CreateObject("vbscript.regexp")
       .Global = True: .Pattern = "\/\d+": url2 = .Replace(url, "/" & id)
    End With
    url3 = url2 & Format(wf.EDate([b2], nmonth), "m/d/yyyy") & "&view=table"
    With hrq
        .Open "GET", url3, False
        .send
        Do While .readystate <> 4
            DoEvents
        Loop
       html.body.innerhtml = .responsetext
    End With
    For Each row In html.getelementsbytagname("tbody")(0).Rows
        dated = DateValue(Split(Trim(row.Cells(0).innertext), " ")(1) & "/" & Year(wf.EDate([b2], nmonth)))
        If dated >= [b2] And dated <= [d2] Then
            i = i + 1: j = 0
            For Each cell In row.Cells
                j = j + 1
                Cells(i + 5, j) = cell.innertext: Cells(i + 5, 7) = Format(wf.EDate([b2], nmonth), "mm/yyyy")
            Next
        End If
    Next
Next nmonth
[a6].CurrentRegion.Borders.LineStyle = 1
Set hrq = Nothing
Set html = Nothing
Application.ScreenUpdating = True
MsgBox "Done!"
End Sub
Nhấp chuột vào đây để mở rộng...
Em test cũng thấy giống bác PacificPR ạ. Hầu như các tỉnh, thành phố khác đều không có nếu theo cách tìm của https://www.accuweather.com , thế nhưng sau khi không tìm thấy, nếu click vào "Duyệt qua địa điểm của bạn" thì đầy đủ các tỉnh thành bác ạ.
 
Upvote 0
excel_lv1.5 đã viết:
PHP: 
Sub getdataweb()
...
For Each a In html.getelementsbytagname("a")
    If a.innertext Like "*" & [F2] & "*" & [F2] & "*" Then
        With CreateObject("vbscript.regexp")
            .Pattern = "\d+": id = .Execute(a.href).Item(0)
        End With
    End If
Next
For nmonth = 0 To DateDiff("m", wf.EoMonth([b2], -1) + 1, wf.EoMonth([d2], 0) + 1)
    With CreateObject("vbscript.regexp")
       .Global = True: .Pattern = "\/\d+": url2 = .Replace(url, "/" & id)
    End With
    url3 = url2 & Format(wf.EDate([b2], nmonth), "m/d/yyyy") & "&view=table"
...
End Sub
Nhấp chuột vào đây để mở rộng...

Tạo Object Regex 1 lần thôi
PHP: 
...
Dim RX As Object
Set RX = CreateObject("vbscript.regexp")
RX..Pattern = "\d+"
For Each a In html.getelementsbytagname("a")
    If a.innertext Like "*" & [F2] & "*" & [F2] & "*" Then id = RX.Execute(a.href).Item(0)
Next
RX.Global = True
RX.Pattern = "\/\d+"
url2 = RX.Replace(url, "/" & id)
For nmonth = 0 To DateDiff("m", wf.EoMonth([b2], -1) + 1, wf.EoMonth([d2], 0) + 1)
    url3 = url2 & Format(wf.EDate([b2], nmonth), "m/d/yyyy") & "&view=table"
...
Set RX = Nothing
End Sub
 
Upvote 0
VetMini đã viết:
Tạo Object Regex 1 lần thôi
PHP: 
...
Dim RX As Object
Set RX = CreateObject("vbscript.regexp")
RX..Pattern = "\d+"
For Each a In html.getelementsbytagname("a")
    If a.innertext Like "*" & [F2] & "*" & [F2] & "*" Then id = RX.Execute(a.href).Item(0)
Next
RX.Global = True
RX.Pattern = "\/\d+"
url2 = RX.Replace(url, "/" & id)
For nmonth = 0 To DateDiff("m", wf.EoMonth([b2], -1) + 1, wf.EoMonth([d2], 0) + 1)
    url3 = url2 & Format(wf.EDate([b2], nmonth), "m/d/yyyy") & "&view=table"
...
Set RX = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Em đã sửa lại code theo anh VetMini rồi, tuy nhiên khi chạy có rất nhiều địa chỉ không tìm được. Ví dụ Nghệ An, Vinh, ... Trong khi đó rất nhiều tỉnh thành có.
Ví dụ tại Thái Bình: https://www.accuweather.com/vi/vn/thai-binh/356177/january-weather/356177?monyr=1/1/2017&view=table
Tại Vinh: https://www.accuweather.com/vi/vn/vinh/355417/december-weather/355417?monyr=12/1/2017&view=table
Mã: 
url3 = url2 & Format(wf.EDate([b2], nmonth), "m/d/yyyy") & "&view=table"
Em thấy 2 địa chỉ này tương đồng , chỉ thay đổi ip nhưng khi nhập vị trí vào ô F2 thì không tìm thấy, dù nhập "Vinh", "Vinh, Việt Nam"
Em muôn tạo List các địa phương tại ô F2 nhưng thiếu nhiều quá. Mong các anh chị giúp, em xin cảm ơn
 

File đính kèm

  • Thong tin thoi tiet (1) (3).xlsb
    20.3 KB · Đọc: 23
Upvote 0
ThaiDieuAnh đã viết:
Em đã sửa lại code theo anh VetMini rồi, tuy nhiên khi chạy có rất nhiều địa chỉ không tìm được. Ví dụ Nghệ An, Vinh, ... Trong khi đó rất nhiều tỉnh thành có.
Ví dụ tại Thái Bình: https://www.accuweather.com/vi/vn/thai-binh/356177/january-weather/356177?monyr=1/1/2017&view=table
Tại Vinh: https://www.accuweather.com/vi/vn/vinh/355417/december-weather/355417?monyr=12/1/2017&view=table
Mã: 
url3 = url2 & Format(wf.EDate([b2], nmonth), "m/d/yyyy") & "&view=table"
Em thấy 2 địa chỉ này tương đồng , chỉ thay đổi ip nhưng khi nhập vị trí vào ô F2 thì không tìm thấy, dù nhập "Vinh", "Vinh, Việt Nam"
Em muôn tạo List các địa phương tại ô F2 nhưng thiếu nhiều quá. Mong các anh chị giúp, em xin cảm ơn
Nhấp chuột vào đây để mở rộng...
Các tôi lấy ID của tỉnh thành phố là nhập vào ô tìm kiếm, kết quả tìm kiếm có thể nhiều kết quả và tôi lấy kết quả đầu tiên, ví dụ nhập vào "Vinh", thì kết quả trả về có 3 kết quả , và kết quả đầu tiên là của Vinh Trung Quốc, nếu bạn muốn tìm chính xác vinh của nghệ an thì bạn phải nhập vào F2 là "Vinh, Nghệ An, Vn" (theo đúng kết quả tìm kiếm của web). Vì nó search tất cả các khu vực trên thế giới nên kết quả tìm kiếm có thể có nhiều kết quả, các từ khóa việt nam chỉ cần gõ tên khu vực là đủ (vì có dấu), nếu cần thiết thì thêm chữ Việt Nam phía sau ví dụ "Hà Nội, Việt Nam" hoặc "Hà Nội" đều được vì không có trùng với các khu vực khác trên thế giới. Muốn xem toronto của Canada thì phải nhập đúng "Toronto, Canada" , nếu nhập "Toronto " thì kết quả trả về có thể là khu vực khác không phải Canada, những khu vực bạn search mà không có tức là không có , mặc dù xem trong list có.
Tôi chỉnh lại code, để lấy dữ liệu của các khu vực không phải Việt Nam, vì một số khu vực cần tới 2 ID :
 

File đính kèm

  • Thong tin thoi tiet.xlsb
    27.8 KB · Đọc: 100
Upvote 0
excel_lv1.5 đã viết:
Các tôi lấy ID của tỉnh thành phố là nhập vào ô tìm kiếm, kết quả tìm kiếm có thể nhiều kết quả và tôi lấy kết quả đầu tiên, ví dụ nhập vào "Vinh", thì kết quả trả về có 3 kết quả , và kết quả đầu tiên là của Vinh Trung Quốc, nếu bạn muốn tìm chính xác vinh của nghệ an thì bạn phải nhập vào F2 là "Vinh, Nghệ An, Vn" (theo đúng kết quả tìm kiếm của web). Vì nó search tất cả các khu vực trên thế giới nên kết quả tìm kiếm có thể có nhiều kết quả, các từ khóa việt nam chỉ cần gõ tên khu vực là đủ (vì có dấu), nếu cần thiết thì thêm chữ Việt Nam phía sau ví dụ "Hà Nội, Việt Nam" hoặc "Hà Nội" đều được vì không có trùng với các khu vực khác trên thế giới. Muốn xem toronto của Canada thì phải nhập đúng "Toronto, Canada" , nếu nhập "Toronto " thì kết quả trả về có thể là khu vực khác không phải Canada, những khu vực bạn search mà không có tức là không có , mặc dù xem trong list có.
Tôi chỉnh lại code, để lấy dữ liệu của các khu vực không phải Việt Nam, vì một số khu vực cần tới 2 ID :
Nhấp chuột vào đây để mở rộng...
Cảm ơn anh excel_lv1.5 rất nhiều ạ. Em đã bắt đầu tìm kiếm dễ hơn, nhưng không hiểu sao nhiệt độ sang F và lượng mưa sang inch (Web vẫn thể hiện độ C và mm). Em thử Tải lại file lúc sáng em Up lên diễn đàn cũng vậy. Rõ ràng cùng 1 file lúc sáng ở công ty khi up lên là độ C và mm, giờ về nhà tải xuống và mở ra thành độ F và inch. Các anh (chị) giải thích giúp em với ạ, em cảm ơn
 
Lần chỉnh sửa cuối:
Upvote 0
ThaiDieuAnh đã viết:
Cảm ơn anh excel_lv1.5 rất nhiều ạ. Em đã bắt đầu tìm kiếm dễ hơn, nhưng không hiểu sao nhiệt độ sang F và lượng mưa sang inch (Web vẫn thể hiện độ C và mm). Em thử Tải lại file lúc sáng em Up lên diễn đàn cũng vậy. Rõ ràng cùng 1 file lúc sáng ở công ty khi up lên là độ C và mm, giờ về nhà tải xuống và mở ra thành độ F và inch. Các anh (chị) giải thích giúp em với ạ, em cảm ơn
Nhấp chuột vào đây để mở rộng...
Cái trang thời tiết trên có chỗ cho mình chọn thông số của trạm khu vực nữa đó. Khi nào đưa vào dự án cho mình xin code nhà. Dạo này độ lười nó lên cao quá :p
 
Upvote 0
ThaiDieuAnh đã viết:
Cảm ơn anh excel_lv1.5 rất nhiều ạ. Em đã bắt đầu tìm kiếm dễ hơn, nhưng không hiểu sao nhiệt độ sang F và lượng mưa sang inch (Web vẫn thể hiện độ C và mm). Em thử Tải lại file lúc sáng em Up lên diễn đàn cũng vậy. Rõ ràng cùng 1 file lúc sáng ở công ty khi up lên là độ C và mm, giờ về nhà tải xuống và mở ra thành độ F và inch. Các anh (chị) giải thích giúp em với ạ, em cảm ơn
Nhấp chuột vào đây để mở rộng...
Dữ liệu tôi lấy về là độ C và mm, trong code là tôi lấy nguồn mặc định của web, tôi thử trên 3 máy vẫn vậy, bạn thử đổi máy khác xem, tôi thấy khi GET data web về thì độ C và độ F khác nhau cookie, nếu chỉnh code để lấy độ C hay độ F thì tôi chịu vì không biết phải set cookie như thế nào.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

S
Hỏi cách nhập dữ liệu vào 1 ô trả kết quả ở 1 ô khác có công thức
Trả lời
9
Đọc
156
Hoàng Tuấn 868
H
pingping2288
Lỗi cứ lần mở lại file excel là font chữ và định dạng ô lại thay đổi
Trả lời
14
Đọc
125
Hoàng Tuấn 868
H
vova2209
  • Question
Tìm địa chỉ ô với 2đk và chuyển thành links
Trả lời
14
Đọc
231
vova2209
vova2209
H
  • Question
Xóa toàn bộ các dòng giống nhau ở 1 cột
    • Cười
Trả lời
12
Đọc
97
hadoan-pap
H
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
7 8 9
Trả lời
164
Đọc
8K
chstbcaolanh
C
T
Đánh Số Thứ Tự Loại Bỏ Trùng
Trả lời
1
Đọc
32
bebo021999
B
H
Có thể mở file Excel mới sẽ Zoom mặc định 150% không?
Trả lời
4
Đọc
167
VetMini
V
O
  • Question
Tìm số thứ tự của sheet trong workbook có nhiều sheets
Trả lời
11
Đọc
3K
VetMini
V
Manhhung90
Liệt kê các ngày cộng dồn mong muốn vào 1 ô. Nhờ mọi người giúp mình ạ.
2 3 4
Trả lời
62
Đọc
748
VetMini
V
C
Hàm đánh số thứ tự như không đánh dữ liệu trùng
Trả lời
7
Đọc
8K
Trang Tuyet Ngoc Nhi
T
Hai Lúa Miền Tây
  • Question
Hàm chuyển dữ liệu từ cột sang dòng (Hàm melt + wide_to_long của Python trong Excel)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
9
Đọc
470
tranhungdao12a3
T
GPE-Trợ Lý
Đăng ký tham dự hội thảo tại Hà Nội: Power Query - Công cụ quản lý dữ liệu
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
4
Đọc
469
PhanTuHuong
PhanTuHuong
tvcneo
  • Question
Nhờ Anh Chị Em giúp mình cách để tạo macro giống như trong file này
Trả lời
17
Đọc
232
huuthang_bd
huuthang_bd
T
Có phải lỗi Excel?
Trả lời
8
Đọc
9K
dinhthang8709
D
T
Công thức lấy dữ liệu
Trả lời
3
Đọc
124
HUONGHCKT
H
S
  • Question
Nhờ anh chị giúp em hàm ngẫu nhiên với tổng là 1 số
Trả lời
6
Đọc
150
SA_DQ
SA_DQ
L
Tự động nhảy số tham chiếu khi sang sheet mới
Trả lời
5
Đọc
5K
Romantic92
R
TieuLong2708
Danh sách lịch cắt người trực
Trả lời
0
Đọc
38
TieuLong2708
TieuLong2708
C
  • Question
Xin giúp đỡ Code kiểm tra và copy dữ liệu từ sheet 1 sang sheet 2
2
Trả lời
21
Đọc
628
conan1
C
H
  • Question
Mong giúp code chuyển file xls sang xlsx hàng loạt và không lỗi số liệu
Trả lời
16
Đọc
378
Hoàng Tuấn 868
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom