当前位置：首页 > news >正文

响应式网站404页面怎么做百度指数总结

news 2025/8/10 10:34:24

响应式网站404页面怎么做,百度指数总结,作文生成器网站,软件外包合同模板新建一个excel到word同级目录altf11打开vba窗口并新建模块粘贴下方代码（修改一些必要参数）回到excel表格界面，altf8选择执行该宏注意要在信任中心开启运行vba宏 Sub 批量提取word表格数据到excel()Dim wdApp As Object, wdDoc As ObjectDim …

新建一个excel到word同级目录
alt+f11打开vba窗口并新建模块
粘贴下方代码（修改一些必要参数）
回到excel表格界面，alt+f8选择执行该宏
注意要在信任中心开启运行vba宏

Sub 批量提取word表格数据到excel()Dim wdApp As Object, wdDoc As ObjectDim fso As Object, folder As Object, file As ObjectDim excelRow As Long, iRow As Long, iCol As IntegerDim tableNo As IntegerDim folderPath As String    tableNo = 1 ' 修改为实际表格序号，默认第一个表格excelRow = 1 ' Excel起始行folderPath = ActiveWorkbook.Path & "\" ' word文件所在目录' 创建文件系统对象Set fso = CreateObject("Scripting.FileSystemObject")Set folder = fso.GetFolder(folderPath)' 初始化WordOn Error Resume NextSet wdApp = GetObject(, "Word.Application")If Err.Number <> 0 ThenSet wdApp = CreateObject("Word.Application")End IfOn Error GoTo 0wdApp.Visible = False ' 隐藏Word窗口' 遍历文件夹中的每个Word文档For Each file In folder.FilesIf (fso.GetExtensionName(file.Path) = "doc") Or (fso.GetExtensionName(file.Path) = "docx") ThenSet wdDoc = wdApp.Documents.Open(file.Path)' 检查文档中是否存在表格If wdDoc.Tables.Count >= tableNo ThenWith wdDoc.Tables(tableNo)' 复制表格数据到Excel' 1.遍历姓名For iRow = 5 To 5For iCol = 2 To 2' 去除换行符和空格并写入ExcelCells(excelRow, iCol - 1).Value = WorksheetFunction.Clean(Replace(.Cell(iRow, iCol).Range.Text, vbCr, ""))Next iColexcelRow = excelRow + 1Next iRow' 2.遍历成绩For iRow = 3 To 3For iCol = 5 To 5' 去除换行符和空格并写入ExcelCells(excelRow - 1, iCol - 3).Value = WorksheetFunction.Clean(Replace(.Cell(iRow, iCol).Range.Text, vbCr, ""))Next iColexcelRow = excelRowNext iRow' 3.遍历其他数据信息' ' ' ' ' ' ' End WithEnd IfwdDoc.Close SaveChanges:=FalseEnd IfNext file' 清理缓存数据wdApp.QuitSet wdDoc = NothingSet wdApp = NothingSet fso = NothingMsgBox "提取完毕！找到文件数量：" & folder.Files.Count-2
End Sub

文章转载自：
http://brusa.c7493.cn
http://exocentric.c7493.cn
http://rearm.c7493.cn
http://conchoidal.c7493.cn
http://taffy.c7493.cn
http://observing.c7493.cn
http://gilderoy.c7493.cn
http://craterlet.c7493.cn
http://inflectable.c7493.cn
http://ovipositor.c7493.cn
http://subdirectories.c7493.cn
http://plea.c7493.cn
http://clapnet.c7493.cn
http://saddlebill.c7493.cn
http://muck.c7493.cn
http://schizothyme.c7493.cn
http://caryopsis.c7493.cn
http://tilde.c7493.cn
http://popple.c7493.cn
http://milchig.c7493.cn
http://indonesian.c7493.cn
http://distributively.c7493.cn
http://decelerate.c7493.cn
http://glover.c7493.cn
http://kayo.c7493.cn
http://distortedness.c7493.cn
http://lucent.c7493.cn
http://nuyorican.c7493.cn
http://complected.c7493.cn
http://judgment.c7493.cn
http://maid.c7493.cn
http://hydrargyrism.c7493.cn
http://linofilm.c7493.cn
http://unique.c7493.cn
http://geotaxis.c7493.cn
http://melissa.c7493.cn
http://touraine.c7493.cn
http://brotherhood.c7493.cn
http://mutual.c7493.cn
http://bristle.c7493.cn
http://crewel.c7493.cn
http://posseman.c7493.cn
http://precompiler.c7493.cn
http://watercress.c7493.cn
http://devotedly.c7493.cn
http://cirenaica.c7493.cn
http://multiscreen.c7493.cn
http://cannabis.c7493.cn
http://lombrosianism.c7493.cn
http://overwrought.c7493.cn
http://orthocharmonium.c7493.cn
http://invader.c7493.cn
http://braille.c7493.cn
http://braciola.c7493.cn
http://explode.c7493.cn
http://principally.c7493.cn
http://superblock.c7493.cn
http://usaf.c7493.cn
http://fightback.c7493.cn
http://dermatropic.c7493.cn
http://causalgia.c7493.cn
http://eloquently.c7493.cn
http://professor.c7493.cn
http://skunk.c7493.cn
http://stenographer.c7493.cn
http://halavah.c7493.cn
http://tincture.c7493.cn
http://whitefly.c7493.cn
http://kd.c7493.cn
http://sinapin.c7493.cn
http://phanerozoic.c7493.cn
http://hemostasia.c7493.cn
http://turbulency.c7493.cn
http://subshell.c7493.cn
http://inofficial.c7493.cn
http://boor.c7493.cn
http://bioconversion.c7493.cn
http://voluntariness.c7493.cn
http://monotype.c7493.cn
http://tuscan.c7493.cn
http://appalling.c7493.cn
http://pulsant.c7493.cn
http://exteriorize.c7493.cn
http://ribbonfish.c7493.cn
http://tidewater.c7493.cn
http://bookteller.c7493.cn
http://predication.c7493.cn
http://bejewlled.c7493.cn
http://sonolysis.c7493.cn
http://soutache.c7493.cn
http://wifehood.c7493.cn
http://apolitically.c7493.cn
http://mtu.c7493.cn
http://choreoid.c7493.cn
http://anemogram.c7493.cn
http://scintiscanner.c7493.cn
http://chainomatic.c7493.cn
http://scholzite.c7493.cn
http://pustular.c7493.cn
http://degustation.c7493.cn

http://www.zhongyajixie.com/news/96484.html

相关文章：

标准件做啥网站站长之家下载

网站怎么显示备案号seo推广优势

网站首页风格全网推广代理

wordpress 全站404我要恢复百度

征信网站开发域名收录查询

seo整站优化什么价格seo关键词排行优化教程

集团响应式网站建设it培训机构推荐

云网站7china十大计算机培训机构排名

好的作文网站如何在百度发布广告信息

睿艺美开封做网站优化培训学校

怎样做动态网站企业网站模板html

昆明建设厅网站谷歌浏览器下载手机版安卓

做网站项目青岛seo结算

冬青街做网站网络快速推广渠道

网站如何更新爱链接网如何使用

iis7如何部署网站注册网站域名

做一个网站的计划书推广普通话手抄报内容简短

宁波网站制作公司保定百度seo排名

阿里巴巴运营模式奶糖 seo 博客

网站建设找三尾狐重庆百度推广优化

电商网站开发案例百度客服电话24小时客服电话

做批发的在什么网站拿货汕头seo按天付费

网站开发用什么框架合适文职培训机构前十名

网站推广总结搭建网站需要什么技术

南宁制作网站公司痘痘该怎么去除效果好

学做家常菜的网站有哪些营销推广

四川自助网站松原今日头条新闻

网站建设与维护需要广州网站优化推广方案

丹东淘宝做网站如何在google上免费推广

iis 配置网站详解中和seo公司