自定义函数 JSA_A_DOWNLOADFILE 从互联网(或本地网络)下载文件并保存到本地磁盘。

function JSA_A_DOWNLOADFILE(url, localPath) { // 下载文件
    url = (url === undefined || url === -2147352572) ? undefined : url.valueOf();
    localPath = (localPath === undefined || localPath === -2147352572) ? undefined : localPath.valueOf();
    
    try {
        Application.ExecuteExcel4Macro(`CALL("Urlmon", "URLDownloadToFileA", "JJCCJJ", 0, "${url}", "${localPath}", 0, 0)`);
        return true;
        
        //let result = JSON.parse(Office.DownloadFileFromServer(url, localPath)).result; // 或者改用这两句,但本地文件无法下载。
        //return result;
    } catch(err) {
        return '单元格中调用函数:\n方法1:双击或{F2}进入单元格,{F9}{ESC};\n方法2:选中单元格,【公式求值】。';
    }
}

插入函数对话框、函数参数对话框:

加载宏文件function Workbook_Open(){}中添加以下代码。

Application.MacroOptions("JSA_A_DOWNLOADFILE","从互联网(或本地网络)下载文件并保存到本地磁盘。",undefined,undefined,undefined,undefined,14,undefined,undefined,undefined,["要下载的文件的URL地址。","本地保存文件的完整路径。"]);

云南省
浏览 722
收藏
2
分享
2 +1
+1
全部评论