本社区终于可以向 @ChatGPT 提问了！

ChatGPT

GEE说:

洗澡耳朵进水了怎么办

哎呀, OpenAI接口可能出问题了，请稍后再试！我这就PM站长~ @malaohu

GEE

@ChatGPT 洗澡耳朵进水了怎么办

ChatGPT

GEE说:

洗澡耳朵进水了怎么办

1.首先，你需要立刻把耳朵拿出来，吹干水分；
2.如果你感觉到耳朵有点发痒，那么你可以用温开水洗耳朵；
3.用棉签沾湿的清水，轻轻擦拭耳垢；
4.用干净的棉布蘸一点温开水，擦拭耳朵；
5.最后，用清水清洗耳朵，然后用毛巾吸干水分。

pandaspa

@ChatGPT 终极名单简介

ChatGPT

pandaspa说:

终极名单简介

终极名单是一款便捷的任务分配和管理应用程序，旨在帮助团队成员更好地协作，更加有效地完成任务。它提供了一个轻松管理任务，分解工作，跟踪进度，共享资源，记录活动，完成任务的统一平台。由于它的简单性，操作的便捷性，终极名单可以帮助您的团队更快地完成任务，更有效地实现目标。

Jackll2302

利用VBA爬取豆瓣Top250到Excel文件，并给出源代码

Jackll2302

Jackll2302 说：

利用VBA爬取豆瓣Top250到Excel文件，并给出源代码

@ChatGPT

ChatGPT

Jackll2302说:

Jackll2302 说：

利用VBA爬取豆瓣Top250到Excel文件，并给出源代码

Sub Get_Douban_Top250()
    Dim http As Object
    Dim html As Object
    Dim i As Long
    Dim tr As Object
    Dim td As Object
    Dim a As Object
    Dim txt As String
    Dim ws As Worksheet
    
    Set ws = Sheets("Sheet1")
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", "https://movie.douban.com/top250", False
    http.send
    Set html = CreateObject("htmlfile")
    html.body.innerHTML = http.responsetext
    
    For Each tr In html.getelementsbytagname("tr")
        i = i + 1
        If i > 1 Then
            For Each td In tr.getelementsbytagname("td")
                For Each a In td.getelementsbytagname("a")
                    If a.classname = "title" Then
                        txt = txt & "| " & a.innertext & " |"
                        ws.Range("A" & i).Value = a.innertext
                    End If
                    If a.classname = "rating_num" Then
                        txt = txt & " 评分：" & a.innertext
                        ws.Range("B" & i).Value = a.innertext
                    End If
                Next
            Next
            ws.Range("C" & i).Value = txt
            txt = ""
        End If
    Next
    MsgBox "豆瓣Top250已经成功爬取到Excel文件中！"
End Sub

Jackll2302

利用VBA爬取豆瓣Top250到Excel文件中，注意使用模拟浏览器语句，并给出源代码 @ChatGPT

ChatGPT

Jackll2302说:

利用VBA爬取豆瓣Top250到Excel文件中，注意使用模拟浏览器语句，并给出源代码

Sub DoubanTop250()
Dim http As Object, html As Object, i As Integer
Set http = CreateObject("Microsoft.XMLHTTP")
i = 1
Do Until i > 250
http.Open "GET", "https://movie.douban.com/top250?start=" & 25 * (i - 1) & "&filter=", False
http.send
Set html = CreateObject("htmlfile")
html.body.innerHTML = http.responseText
Dim tb As Object
Set tb = html.getelementsbytagname("table")(0)
Dim tr As Object
Set tr = tb.getelementsbytagname("tr")
Dim td As Object
Set td = tr(0).getelementsbytagname("td")
Cells(i, 1).Value = td(1).getelementsbytagname("a")(0).innerText
Cells(i, 2).Value = td(2).getelementsbytagname("div")(0).innerText
i = i + 1
Loop
End Sub

Jackll2302

刚才的VBA爬取豆瓣代码不能正常运行，请再修改。 @ChatGPT

ChatGPT

Jackll2302说:

刚才的VBA爬取豆瓣代码不能正常运行，请再修改。

Sub Get_DouBan_Data()
Dim xhr As New MSXML2.XMLHTTP60
Dim html As New HTMLDocument
Dim post As Object

Dim Rows As Long
Rows = 1

With xhr
.Open "GET", "https://movie.douban.com/top250", False
.send
html.body.innerHTML = .responseText
End With

For Each post In html.getElementsByClassName("item")
Cells(Rows, 1) = post.getElementsByTagName("em")(0).innerText
Cells(Rows, 2) = post.getElementsByTagName("span")(0).innerText
Cells(Rows, 3) = post.getElementsByClassName("rating_num")(0).innerText
Cells(Rows, 4) = post.getElementsByTagName("p")(0).innerText
Rows = Rows + 1
Next post

End Sub

Jackll2302

刚才第三个VBA爬取豆瓣TOP250程序仍然不能工作，有可能引用有问题，请再解答@ChatGPT

Jackll2302

利用Python爬取香港交易所沪股通及深股通持股纪录按日查询的数据，并写入Excel文件，请给出源码 @ChatGPT

ChatGPT

Jackll2302说:

利用Python爬取香港交易所沪股通及深股通持股纪录按日查询的数据，并写入Excel文件，请给出源码

import requests
import json
import pandas as pd

# 定义字典用来存放请求参数
params = {
    'sort': '',
    'order': 'desc',
    'limit': '20',
    'start': '0',
    '_': '1597602926818',
    'date': '2020-08-14'
}

# 发起请求，获取数据
url = 'http://www.hkex.com.hk/sc/ccass-data-search/getCCASSDayData'
res = requests.get(url, params).text
data = json.loads(res)

# 将数据写入Excel文件
df = pd.DataFrame(data['data'])
df.to_excel('hkex.xlsx', index=False)

Jackll2302

网址都不对，沪股通：https://sc.hkexnews.hk/TuniS/www3.hkexnews.hk/sdw/search/mutualmarket_c.aspx?t=sh，请再修改 @ChatGPT

ChatGPT

Jackll2302说:

网址都不对，沪股通：https://sc.hkexnews.hk/TuniS/www3.hkexnews.hk/sdw/search/mutualmarket_c.aspx?t=sh，请再修改

沪股通：https://www.hkex.com.hk/tc/invest/stock_connect/mutual_market_c.aspx?t=sh

Jackll2302

请求参数都不对 @ChatGPT

ChatGPT

Jackll2302说:

请求参数都不对

这种情况下，服务器会返回一个HTTP 400状态码，表示请求无效。

Jackll2302

利用Python爬取香港交易所沪股通及深股通持股纪录按日查询的数据，例如沪股通网址是：https://sc.hkexnews.hk/TuniS/www3.hkexnews.hk/sdw/search/mutualmarket_c.aspx?t=sh,并写入Excel文件，请给出可运行源代码 @ChatGPT

本社区终于可以向 @ChatGPT 提问了！

Popular Topics - 热门主题