如何做一个超链接,打开一个新窗口而保留原来的窗口?

让整个网页页面内的链接都在新窗口打开,在head中加入 <base target="_blank"> ,让一个DIV里所有链接在新窗口打开,在body中加入 。

<a href="链接路径" target="_blank"> </a>这样就可以啦,这就是表示在新的窗口打开链接。

_blank – 在新窗口中打开链接
_parent – 在父窗体中打开链接
_self – 在当前窗体打开链接,此为默认值
_top – 在当前窗体打开链接,并替换当前的整个窗体(框架页)

在Excel中,如果你想要通过宏命令批量下载图片,可以按照以下步骤操作: 1. **创建宏**: - 打开VBA编辑器(在Excel菜单栏中选择"开发者" -> "Visual Basic")。 - 在新的窗口中,点击"插入" -> "模块",然后在编辑区域编写以下代码: ```vba Sub DownloadImages() Dim rng As Range Dim imgURL As String Dim filename As String Dim i As Long '指定需要下载图片的范围 (这里假设是A1:B10) Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:A10") '替换为实际的单元格范围 For Each cell In rng If Not IsEmpty(cell.Value) Then '检查单元格是否包含链接 imgURL = cell.Value filename = Replace(imgURL, "http://", "") '去掉前缀,仅保留文件名部分 filename = Replace(filename, "/", "") '去掉斜杠 filename = Replace(filename, "?", "") '去掉问号 '下载图片到指定位置(这里假设保存在同一工作簿的某个文件夹) Call DownloadFile(imgURL, ThisWorkbook.Path & "\" & filename) End If Next cell '自定义下载函数 Sub DownloadFile(url As String, destPath As String) Dim objHttp As Object Set objHttp = CreateObject("MSXML2.XMLHTTP") objHttp.Open "GET", url, False '同步请求 objHttp.Send If objHttp.Status = 200 Then Open App.Path & destPath, 1, True '使用二进制模式打开文件 PutByte FileHandle, 1, objHttp.ResponseBody '开始写入数据 Close FileHandle MsgBox "Image downloaded successfully.", vbInformation Else MsgBox "Failed to download image from " & url & ". Error code: " & objHttp.Status, vbCritical End If End Sub End Sub ``` 2. **运行宏**: - 确认代码无误后,关闭VBA编辑器并返回Excel主界面。 - 按下`Alt + F8`唤起宏管理器,找到刚刚创建的`DownloadImages`宏,双击运行。 注意:这个示例是基础版本,实际应用时可能会遇到网络连接、权限等问题,需根据实际情况调整。另外,确保运行此宏时有足够的权限访问网络资源,并遵守版权政策。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值