Python自动下载excel中的视频链接并命名保存

于嘉淼

我有一个EXCEL表格，有1200多条数数据，里面包含了A列是姓名，B列是序号，C列是网址。

我想要将C列中的所有视频链接都自动爬取下载，并保存到D盘中。

并用姓名和序号来命名每一个视频文件。

请大神帮忙写个代码。

lengbingling

[Visual Basic] 纯文本查看 复制代码

?

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

Sub DownloadVideos()     Dim i As Long     Dim name As String     Dim number As String     Dim url As String     Dim response As Object           ' 打开Excel表格     Dim wb As Workbook     Set wb = ThisWorkbook           ' 选择工作表     Dim ws As Worksheet     Set ws = wb.Sheets("Sheet2") ' 将"Sheet1"替换为你的工作表名称           ' 遍历每一行数据     For i = 2 To ws.Cells(Rows.Count, 1).End(xlUp).Row         name = ws.Cells(i, 1).Value         number = ws.Cells(i, 2).Value         url = ws.Cells(i, 3).Value                   ' 创建HTTP请求         Set response = CreateObject("msxml2.xmlhttp")         response.Open "GET", url, False         response.send                   ' 保存视频到指定路径并以姓名和序号命名         Dim fileStream As Object         Set fileStream = CreateObject("ADODB.Stream")         fileStream.Type = 1         fileStream.Open         fileStream.Write response.responseBody         fileStream.SaveToFile "D:\" & name & number & ".mp4", 2                   ' 关闭文件流和HTTP请求         fileStream.Close         Set fileStream = Nothing         response.abort         Set response = Nothing                   Debug.Print name & number & ".mp4 下载完成"     Next i End Sub

于嘉淼

各位大神，谁能帮写个代码

于嘉淼

   有人帮写么？求助

lengbingling

虽然币不多,我接下了,练练手.

于嘉淼

lengbingling 发表于 2023-11-23 14:19
虽然币不多,我接下了,练练手.

多谢！大神啥时候能出来。

lengbingling

import requests
import pandas as pd

# 读取Excel表格数据
df = pd.read_excel('data.xlsx', usecols=['姓名', '序号', '网址'])

# 循环下载视频
for index, row in df.iterrows():
    name = row['姓名']
    number = row['序号']
    url = row['网址']
   
    # 发送请求下载视频
    response = requests.get(url)
   
    # 保存视频到指定路径并以姓名和序号命名
    with open(f'D:\\{name}{number}.mp4', 'wb') as f:
        f.write(response.content)
        
    print(f'{name}{number}.mp4 下载完成')

lengbingling

用python与VBA各编写了一下,VBA下编写测试成功可以下载.python由于现没有环境测试

于嘉淼

lengbingling 发表于 2023-11-23 16:47
用python与VBA各编写了一下,VBA下编写测试成功可以下载.python由于现没有环境测试

流弊，可以使用的，感谢，你是咋学的啊？怎么可以那么厉害

theweepies

其实可以配合gpt一起玩 可以不断调试 应该很快