用代码批量打开Excel表格中的网址链接

在工作处理中,经常需要汇总网址,查看网址能否打开的问题,数据少还好说,要是有几百条数据一条条去打开岂不是累死了?所以就找了下代码的方式去解决。

解决方法1:

新建一个txt文本文档,用来存放你需要打开的一批网址链接,文档命名为网址.txt

再新建一个txt文本,将下面的脚本内容复制进去,保存后重命名文本为  打开链接.bat (这里是将格式为txt改成bat)修改后点击“打开链接.bat ”即可自动打开“网址.txt”里的网址了。

@ echo off
setlocal enabledelayedexpansion
for /f %%i in (网址.txt) do (
start "D:\软件安装\QQBrowser\QQBrowser.exe" "%%i"
Ping -n 3 127.1>nul
)
Ping -n 60 127.1>nul
exit

脚本代码解释说明:

@ echo off 关闭指令输出

for /f %%i in (网址.txt) do (  查找打开网址.txt文档获取内容 )

D:\软件安装\QQBrowser\QQBrowser.exe    这是我浏览器的路径,可以自行更改,但是最好填写你电脑默认的浏览器路径,因为它总是会调用你默认浏览器打开的

Ping -n 3 127.1>nul    网址打开间隔时间3秒

Ping -n 60 127.1>nul    等待60秒后再执行下一条指令,如果你的网址打开速度过慢,建议设置大一点

exit    结束脚本

 

解决方法2:

把需要批量打开的网址链接放在Excel表里,链接前加个“start”

 新建一个txt文本,复制刚刚表格里存放的链接,保存后将文本的格式由txt重命名成bat。修改后直接点击就可以自动打开链接了。

 

这两个方法其实都是差不多的,也都可以实现自动打开链接,就是第一种方法在打开多个链接的时候会比较卡,有一些链接可能会打不开,显示失败。总的来说,我个人比较喜欢用第二种方法,更简便一些。

  • 7
    点赞
  • 21
    收藏
    觉得还不错? 一键收藏
  • 4
    评论
Sub ExtractExcelDataToWord() ' 声明变量 Dim excelFilePath As String Dim wordFilePath As String Dim wordApp As Object Dim wordDoc As Object Dim excelApp As Object Dim excelWorkbook As Object Dim excelWorksheet As Object Dim tableRange As Object Dim tableData As Variant Dim i As Integer Dim j As Integer Dim rowCount As Integer Dim columnCount As Integer ' 设置文件路径 excelFilePath = "D:\data.xlsx" wordFilePath = "D:\output.docx" ' 创建Word应用程序 Set wordApp = CreateObject("Word.Application") ' 打开Word文档 Set wordDoc = wordApp.Documents.Open(wordFilePath) ' 创建Excel应用程序 Set excelApp = CreateObject("Excel.Application") ' 打开Excel工作簿 Set excelWorkbook = excelApp.Workbooks.Open(excelFilePath) ' 指定工作表 Set excelWorksheet = excelWorkbook.Worksheets(1) ' 获取表格区域 Set tableRange = excelWorksheet.UsedRange ' 获取表格数据 tableData = tableRange.Value ' 获取表格行数和列数 rowCount = UBound(tableData, 1) columnCount = UBound(tableData, 2) ' 在Word文档创建表格 wordDoc.Tables.Add Range:=wordDoc.Range(0, 0), NumRows:=rowCount, NumColumns:=columnCount ' 将表格数据添加到Word表格 For i = 1 To rowCount For j = 1 To columnCount wordDoc.Tables(1).Cell(i, j).Range.Text = tableData(i, j) Next j Next i ' 保存Word文档 wordDoc.Save ' 关闭Word文档和应用程序 wordDoc.Close wordApp.Quit ' 关闭Excel工作簿和应用程序 excelWorkbook.Close excelApp.Quit ' 释放对象 Set wordDoc = Nothing Set wordApp = Nothing Set excelWorksheet = Nothing Set excelWorkbook = Nothing Set excelApp = Nothing ' 提示完成 MsgBox "数据已提取到Word文档。" End Sub

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 4
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值