DeepSeek 批量 英译中 (修复乱码) 速度优化

wx_荣TIM • 57分钟前 • 更新于 51分钟前

选中英文单元格调用DeepSeek翻中文写回

软件版本兼容性
加载中...
登录后可以添加版本标签,帮助其他用户了解代码兼容性
代码内容
16.92 KB Excel VBA
Sub TranslateSelectedCellsToChinese()
'|||Name:DeepSeek英译中(批量版)|Description:选中英文单元格,按批打包JSON调用DeepSeek翻中文,批量一次性回写,无逐条回退|Vision:2.0.0|||
    On Error GoTo ErrorHandler

    ' ===== 可调参数 =====
    Const MODEL_NAME As String = "deepseek-chat"
    Const HTTP_TIMEOUT_MS As Long = 60000      ' 批量请求超时60秒
    Const BATCH_SIZE As Long = 100              ' 每批条数

    ' ---------- 1) 检查选区 ----------
仅显示前10行代码,完整代码共478行
登录查看完整代码
评论 (0)

登录后可以发表评论

立即登录

暂无评论,来发表第一个评论吧!

2
浏览
0
点赞
1
下载
0
评论
头像
wx_荣TIM
代码作者
版本合集
加载中...
登录后可以创建版本合集