设为首页收藏本站
切换到窄版

鱼C论坛

 找回密码
 立即注册
鱼C论坛»论坛 › 萌新训练营 › 萌新交流区 › @FishC，想要编一个抓取基金净值，并进行计算的程序
12
返回列表 发新帖
楼主: shadowmage

[已解决]@FishC，想要编一个抓取基金净值，并进行计算的程序

[复制链接]
shadowmage
 楼主| 发表于 2024-10-11 08:47:33 | 显示全部楼层
FishC 发表于 2024-10-11 08:45
将 VBA 代码转换为 Python，可以使用 `requests` 库来发送 HTTP 请求，`re` 模块进行正则表达式匹配，` ...

我是说，请把下面这些VBA代码，转成Python。
  1. Sub GetUrlData()
  2.     Dim sURL As String, sCode As String, oRegExp As Object, nPage As Long, nPages As Long, nRecords As Long, sResponseText As String
  3.     Dim vData As Variant, nI As Long, nJ As Long, oReg As Object, vFill As Variant, nRow As Double, nCol As Long, ws As Worksheet
  4.    
  5.     ' 关闭屏幕更新和警告，提高代码执行效率
  6.     Application.ScreenUpdating = False
  7.     Application.DisplayAlerts = False
  8.     ' 设置引用到【基金净值】工作表
  9.     Set ws = ThisWorkbook.Worksheets("基金净值")
  10.     ' 获取A1单元格的值，并转换为字符串
  11.     sCode = CStr(ws.Range("A1").Value)
  12.     ' 使用字符串函数Left和String来确保sCode是6位数字
  13.     ' 如果不足6位，则在前面补0
  14.     sCode = String(6 - Len(sCode), "0") & sCode
  15.     ' 创建正则表达式对象，用于字符串匹配
  16.     Set oRegExp = CreateObject("VBSCRIPT.REGEXP")
  17.     ' 设置正则表达式为全局匹配模式
  18.     oRegExp.Global = True
  19.     ' 清空工作表中的所有单元格内容
  20.     Cells.Clear
  21.     ' 初始化页面计数器
  22.     nPage = 1
  23.     ' 构建基金数据API的URL，其中[Page]是页码占位符
  24.     sURL = "http://fund.eastmoney.com/f10/F10DataApi.aspx?type=lsjz&code=" & sCode & "&page=[Page]&per=2000"
  25.     ' 创建XMLHTTP对象，用于发送网络请求
  26.     With CreateObject("msXML2.ServerXMLHttp")
  27.         ' 循环直到所有页面都被请求和处理
  28.         Do While nPage = 1 Or nPage <= nPages
  29.             ' 发送GET请求，替换URL中的[Page]为当前页码
  30.             .Open "GET", Replace(sURL, "[Page]", nPage), True
  31.             ' 发送请求
  32.             .Send
  33.             ' 等待请求完成
  34.             While .ReadyState <> 4
  35.                 DoEvents
  36.             Wend
  37.                
  38.             ' 获取响应文本
  39.             sResponseText = .ResponseText
  40.             ' 使用正则表达式解析响应文本
  41.             With oRegExp
  42.                 ' 如果还未获取总记录数和总页数，则先进行匹配
  43.                 If nPages = 0 Then
  44.                     ' 设置正则表达式模式，匹配记录数和页数
  45.                     .Pattern = "records[^\d]+(\d+)[^\d]+pages[^\d]+(\d+)"
  46.                     ' 执行匹配
  47.                     Set oReg = .Execute(sResponseText)
  48.                     ' 如果匹配到结果，则提取记录数和页数
  49.                     If oReg.Count > 0 Then
  50.                         nRecords = Val(oReg(0).SubMatches(0))
  51.                         nPages = Val(oReg(0).SubMatches(1))
  52.                     End If
  53.                     ' 设置正则表达式模式，匹配表头
  54.                     .Pattern = "<th([^>]+)?>([^<]+)<"
  55.                     ' 执行匹配
  56.                     Set oReg = .Execute(sResponseText)
  57.                     ' 如果匹配到结果，则初始化数据数组
  58.                     If oReg.Count > 0 Then
  59.                         ReDim vFill(1 To nRecords + 1, 1 To oReg.Count + 1)
  60.                         ' 在数据数组的第1行第1列存储基金代码
  61.                         vFill(1, 1) = sCode
  62.                         ' 遍历匹配到的表头，存储在数据数组的第1行
  63.                         For nCol = 1 To oReg.Count
  64.                             vFill(1, nCol + 1) = oReg(nCol - 1).SubMatches(1)
  65.                         Next
  66.                     End If
  67.                     ' 初始化列和行计数器
  68.                     nCol = 8
  69.                     nRow = 1
  70.                     ' 设置正则表达式模式，匹配表格数据
  71.                     .Pattern = "<td([^>]+)?>([^<]+)?<"
  72.                 End If
  73.                 ' 使用正则表达式匹配响应文本中的数据
  74.                 Set oReg = .Execute(sResponseText)
  75.                 ' 如果匹配到数据
  76.                 If oReg.Count > 0 Then
  77.                     ' 初始化循环计数器
  78.                     nI = 0
  79.                     ' 循环遍历匹配到的数据
  80.                     Do While nI + 1 < oReg.Count
  81.                         ' 获取当前匹配的数据
  82.                         sCode = oReg(nI).SubMatches(1)
  83.                         ' 检查数据是否是日期格式（假设日期格式为"年-月-日"）
  84.                         If sCode Like "*-*-*" Then
  85.                             ' 如果是日期，则列计数器重置为2，表示日期列
  86.                             nCol = 2
  87.                             ' 行计数器加1，准备写入下一行的数据
  88.                             nRow = nRow + 1
  89.                             ' 在数据数组的第1列存储行号（假设第1列用于存储序号）
  90.                             vFill(nRow, 1) = nRow - 1
  91.                         Else
  92.                             ' 如果不是日期，则列计数器加1，准备写入下一列的数据
  93.                             nCol = nCol + 1
  94.                         End If
  95.                         ' 在数据数组中存储当前匹配的数据
  96.                         vFill(nRow, nCol) = oReg(nI).SubMatches(1)
  97.                         ' 循环计数器加1
  98.                         nI = nI + 1
  99.                     Loop
  100.                 End If
  101.             End With
  102.             ' 页码计数器加1，准备请求下一页数据
  103.             nPage = nPage + 1
  104.         Loop
  105.     End With
  106.    
  107.     ' 将数据数组写入工作表的指定区域
  108.     With [A1].Resize(UBound(vFill), UBound(vFill, 2))
  109.         ' 设置日期列的格式为"年-月-日"
  110.         .Offset(, 1).Resize(, 1).NumberFormatLocal = "yyyy-m-d"
  111.         ' 设置数值列的格式为千分位分隔，保留4位小数
  112.         .Offset(, 2).Resize(, 2).NumberFormatLocal = "_ * #,##0.0000_ ;_ * -#,##0.0000_ ;_ * ""-""????_ ;_ @_ "
  113.         ' 设置百分比列的格式为百分比，保留2位小数
  114.         .Offset(, 4).Resize(, 1).NumberFormatLocal = "0.00%"
  115.         ' 将数据数组的内容写入工作表
  116.         .Formula = vFill
  117.         ' 自动调整列宽以适应内容
  118.         .EntireColumn.AutoFit
  119.         ' 设置水平对齐方式为居中
  120.         .HorizontalAlignment = xlCenter
  121.         ' 设置垂直对齐方式为底部对齐
  122.         .VerticalAlignment = xlBottom
  123.     End With
  124.     ' 重新开启屏幕更新和警告
  125.     Application.ScreenUpdating = True
  126.     Application.DisplayAlerts = True
  127. End Sub
复制代码
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

FishC
发表于 2024-10-11 08:47:39 | 显示全部楼层
shadowmage 发表于 2024-10-11 08:47
我是说，请把下面这些VBA代码，转成Python。
Sub Get ...


要将 VBA 代码转换为 Python，你可以使用 `requests` 库进行 HTTP 请求，用 `re` 模块进行正则表达式匹配，并使用 `openpyxl` 或 `pandas` 进行 Excel 数据的处理。以下是对应的 Python 示例代码：

```python
import requests
import re
from openpyxl import Workbook, load_workbook

def get_url_data():
    # 加载 Excel 文件并获取工作表
    wb = load_workbook('your_file.xlsx')
    ws = wb['基金净值']
   
    # 获取A1单元格的值作为基金代码，并确保是6位数字
    sCode = str(ws

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

shadowmage
 楼主| 发表于 2024-10-11 09:17:11 | 显示全部楼层
FishC 发表于 2024-10-11 08:45
将 VBA 代码转换为 Python，可以使用 `requests` 库来发送 HTTP 请求，`re` 模块进行正则表达式匹配，` ...

这一段Python代码，缺少原VBA代码的以下功能：
1，获取某个sheet的A1单元格的值。我需要这个功能，假设是要获取Py程序同目录下的【工具.xlsm】的sheet【期初数据】，从A列【基金代码】中依次选取；
2，清空工作表中所有单元格内容。我需要清空【工具.xlsm】的sheet【基金净值】。
3，构建基金数据API的Url，这个需要重新加进去。
4，页码计数器+1，准备下一页数据，这个也是需要加进去的。
5，将获取到的数据写入工作表指定区域，即前面提到的sheet【基金净值】。

我再发一下代码，请你逐行比对着改写一下。
  1. Sub GetUrlData()
  2.     Dim sURL As String, sCode As String, oRegExp As Object, nPage As Long, nPages As Long, nRecords As Long, sResponseText As String
  3.     Dim vData As Variant, nI As Long, nJ As Long, oReg As Object, vFill As Variant, nRow As Double, nCol As Long, ws As Worksheet
  4.    
  5.     ' 关闭屏幕更新和警告，提高代码执行效率
  6.     Application.ScreenUpdating = False
  7.     Application.DisplayAlerts = False
  8.     ' 设置引用到【基金净值】工作表
  9.     Set ws = ThisWorkbook.Worksheets("基金净值")
  10.     ' 获取A1单元格的值，并转换为字符串
  11.     sCode = CStr(ws.Range("A1").Value)
  12.     ' 使用字符串函数Left和String来确保sCode是6位数字
  13.     ' 如果不足6位，则在前面补0
  14.     sCode = String(6 - Len(sCode), "0") & sCode
  15.     ' 创建正则表达式对象，用于字符串匹配
  16.     Set oRegExp = CreateObject("VBSCRIPT.REGEXP")
  17.     ' 设置正则表达式为全局匹配模式
  18.     oRegExp.Global = True
  19.     ' 清空工作表中的所有单元格内容
  20.     Cells.Clear
  21.     ' 初始化页面计数器
  22.     nPage = 1
  23.     ' 构建基金数据API的URL，其中[Page]是页码占位符
  24.     sURL = "http://fund.eastmoney.com/f10/F10DataApi.aspx?type=lsjz&code=" & sCode & "&page=[Page]&per=2000"
  25.     ' 创建XMLHTTP对象，用于发送网络请求
  26.     With CreateObject("msXML2.ServerXMLHttp")
  27.         ' 循环直到所有页面都被请求和处理
  28.         Do While nPage = 1 Or nPage <= nPages
  29.             ' 发送GET请求，替换URL中的[Page]为当前页码
  30.             .Open "GET", Replace(sURL, "[Page]", nPage), True
  31.             ' 发送请求
  32.             .Send
  33.             ' 等待请求完成
  34.             While .ReadyState <> 4
  35.                 DoEvents
  36.             Wend
  37.                
  38.             ' 获取响应文本
  39.             sResponseText = .ResponseText
  40.             ' 使用正则表达式解析响应文本
  41.             With oRegExp
  42.                 ' 如果还未获取总记录数和总页数，则先进行匹配
  43.                 If nPages = 0 Then
  44.                     ' 设置正则表达式模式，匹配记录数和页数
  45.                     .Pattern = "records[^\d]+(\d+)[^\d]+pages[^\d]+(\d+)"
  46.                     ' 执行匹配
  47.                     Set oReg = .Execute(sResponseText)
  48.                     ' 如果匹配到结果，则提取记录数和页数
  49.                     If oReg.Count > 0 Then
  50.                         nRecords = Val(oReg(0).SubMatches(0))
  51.                         nPages = Val(oReg(0).SubMatches(1))
  52.                     End If
  53.                     ' 设置正则表达式模式，匹配表头
  54.                     .Pattern = "<th([^>]+)?>([^<]+)<"
  55.                     ' 执行匹配
  56.                     Set oReg = .Execute(sResponseText)
  57.                     ' 如果匹配到结果，则初始化数据数组
  58.                     If oReg.Count > 0 Then
  59.                         ReDim vFill(1 To nRecords + 1, 1 To oReg.Count + 1)
  60.                         ' 在数据数组的第1行第1列存储基金代码
  61.                         vFill(1, 1) = sCode
  62.                         ' 遍历匹配到的表头，存储在数据数组的第1行
  63.                         For nCol = 1 To oReg.Count
  64.                             vFill(1, nCol + 1) = oReg(nCol - 1).SubMatches(1)
  65.                         Next
  66.                     End If
  67.                     ' 初始化列和行计数器
  68.                     nCol = 8
  69.                     nRow = 1
  70.                     ' 设置正则表达式模式，匹配表格数据
  71.                     .Pattern = "<td([^>]+)?>([^<]+)?<"
  72.                 End If
  73.                 ' 使用正则表达式匹配响应文本中的数据
  74.                 Set oReg = .Execute(sResponseText)
  75.                 ' 如果匹配到数据
  76.                 If oReg.Count > 0 Then
  77.                     ' 初始化循环计数器
  78.                     nI = 0
  79.                     ' 循环遍历匹配到的数据
  80.                     Do While nI + 1 < oReg.Count
  81.                         ' 获取当前匹配的数据
  82.                         sCode = oReg(nI).SubMatches(1)
  83.                         ' 检查数据是否是日期格式（假设日期格式为"年-月-日"）
  84.                         If sCode Like "*-*-*" Then
  85.                             ' 如果是日期，则列计数器重置为2，表示日期列
  86.                             nCol = 2
  87.                             ' 行计数器加1，准备写入下一行的数据
  88.                             nRow = nRow + 1
  89.                             ' 在数据数组的第1列存储行号（假设第1列用于存储序号）
  90.                             vFill(nRow, 1) = nRow - 1
  91.                         Else
  92.                             ' 如果不是日期，则列计数器加1，准备写入下一列的数据
  93.                             nCol = nCol + 1
  94.                         End If
  95.                         ' 在数据数组中存储当前匹配的数据
  96.                         vFill(nRow, nCol) = oReg(nI).SubMatches(1)
  97.                         ' 循环计数器加1
  98.                         nI = nI + 1
  99.                     Loop
  100.                 End If
  101.             End With
  102.             ' 页码计数器加1，准备请求下一页数据
  103.             nPage = nPage + 1
  104.         Loop
  105.     End With
  106.    
  107.     ' 将数据数组写入工作表的指定区域
  108.     With [A1].Resize(UBound(vFill), UBound(vFill, 2))
  109.         ' 设置日期列的格式为"年-月-日"
  110.         .Offset(, 1).Resize(, 1).NumberFormatLocal = "yyyy-m-d"
  111.         ' 设置数值列的格式为千分位分隔，保留4位小数
  112.         .Offset(, 2).Resize(, 2).NumberFormatLocal = "_ * #,##0.0000_ ;_ * -#,##0.0000_ ;_ * ""-""????_ ;_ @_ "
  113.         ' 设置百分比列的格式为百分比，保留2位小数
  114.         .Offset(, 4).Resize(, 1).NumberFormatLocal = "0.00%"
  115.         ' 将数据数组的内容写入工作表
  116.         .Formula = vFill
  117.         ' 自动调整列宽以适应内容
  118.         .EntireColumn.AutoFit
  119.         ' 设置水平对齐方式为居中
  120.         .HorizontalAlignment = xlCenter
  121.         ' 设置垂直对齐方式为底部对齐
  122.         .VerticalAlignment = xlBottom
  123.     End With
  124.     ' 重新开启屏幕更新和警告
  125.     Application.ScreenUpdating = True
  126.     Application.DisplayAlerts = True
  127. End Sub
复制代码
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

FishC
发表于 2024-10-11 09:17:15 | 显示全部楼层
shadowmage 发表于 2024-10-11 09:17
这一段Python代码，缺少原VBA代码的以下功能：
1，获 ...


下面是您请求的将VBA代码转换为Python的实现，包括所需的功能：

```python
import requests
import re
import openpyxl
import os

def get_url_data():
    # 定义文件路径和读取Excel文件
    file_path = '工具.xlsm'
    workbook = openpyxl.load_workbook(file_path, keep_vba=True)

    # 引用【期初数据】工作表
    initial_data_sheet = workbook['期初数据']
    # 引用【基金净值】工作表

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

12
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2025-6-8 05:46

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表