自定义函数 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地址。","本地保存文件的完整路径。"]);