vba 将html转换excel,利用VBA将不同格式excel模板之间进行数据转换实例
由于学校的有两套不同的系统,要进行数据同步,都支持excel格式数据导入导出,但是两套模板格式不一样,需要进行转换。
这个实例涉及到字符的截取,字段获取以写入,不同表之间的操作等。
源模板:
目标模板:
VBA代码:
[code]Sub test()
Dim i%, r%, c%
Dim arr, brr()
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
c = .Cells(1, Columns.Count).End(xlToLeft).Column
arr = .Range("a1").Resize(r,
c)
End With
ReDim brr(1 To (r - 1) * (c - 1), 1 To 5)
m = 1
For j = 2 To c
For i = 2 To r
crr = Split(arr(i, j), Chr(10))
drr = Split(arr(i, 1), "/")
brr(m, 1) = arr(1, j)
brr(m, 2) = crr(1)
brr(m, 3) = crr(0)
brr(m, 4) = drr(0)
brr(m, 5) = drr(1)
m = m + 1
Next
Next
With
Worksheets("sheet2")
.UsedRange.Offset(1, 0).ClearContents
.Range("a2").Resize(UBound(brr),
UBound(brr, 2)) = brr
End With
End Sub[/code]
vba 将html转换excel,利用VBA将不同格式excel模板之间进行数据转换实例相关推荐
- vba 输出文本 m Linux,利用VBA实现EXCEL数据输出TXT等文本文件
VBA--Visual Basic For Application的简称,属于VB的一个子集,广泛应用于Word套件的自动化,其寄存于现有的EXCEL或word等的文件里面 日常生活中,需要做到有逻辑 ...
- vba 添加outlook 签名_利用VBA发送附件电子邮件
大家好,我们今日讲解"利用VBA发送附件电子邮件",这节内容是"VBA信息获取与处理"教程中第五个专题"利用VBA发送电子邮件"的第一节. ...
- word学习/word如何显示空格/LaTeX格式转为Word格式/ latex中的公式格式如何转换成word中的公式格式/excel复制到word表格过大超出
以windows的word365为例进行讲解,主要分为显示,公式,表格,图片,审阅以及写作方式(含Latex格式转换). 常用快捷键: f4: cmd + y 查找: cmd + shift + h ...
- EXCEL利用VBA自由控制图表绘图区大小
用好VBA的话确实可以给你再办公室的工作效率带来质的提升.如果有人跟你说你可以用Python什么的语言处理Excel balabala的,你可以无视他了.当然python可以处理很多事情,但是EXCE ...
- Excel利用VBA实现去掉单元格两边空格
直接贴代码,方便大家学习. '清除所有sheet页中单元格两端的空格 Public Sub trimCell()Dim sheetCount, columnCount, rowCount, tempR ...
- 计算机excel阶乘,Excel利用VBA计算阶乘
有网友问到如何求阶层的问题:在Excel中可以直接通过FACT函数来计算非负整数n的阶乘(n!) 这里用自定义函数来计算阶乘,使用循环和递归: 1.使用循环:Function Factorial_a( ...
- vba ado返回集合_利用VBA代码导出工作表中的图片
蓝字关注,加微信NZ9668获资料信息 VBA解决方案 系列丛书作者 头条百家平台 VBA资深创作者 _______________________________ 大家好,世界各地,疫情施虐 ...
- 利用VBA编程制作互动效果的PPT
利用VBA编程制作互动效果 利用VBA编程制作互动效果在PPT制作中是长期被忽视的,最近才逐渐引起重视,它的要点和难点都在于必须要编程.而实际上VBA的编程并非难度很高的编程形式,经过一段时间的学习是 ...
- 利用VBA编程实现从EXCEL表到AUTOCAD表转换
一.前言 Microsoft Excel 软件具有十分强大的制表.表格计算等功能,是普通人员常用的制表工具.可以通过其内嵌的VBA语言可以控制Microsoft Excel 的整个操作过程. Auto ...
最新文章
- 高等数学·为什么f``(x)小于0:则f(x)在[a,b]上的图形是凹的。f``(x)大于0:则f(x)在[a,b]上的图形是凸的。
- R系统抽样(systematic sampling)
- RxJS 6有哪些新变化?
- UA PHYS515A 电磁理论III 静磁学问题3 静磁学问题的边界条件与标量势方法的应用
- 【算法】《algorithm-note》算法笔记中文版正式发布!
- 牛客 - 合约数(树上启发式合并)
- ntop linux,Linux下开源监控软件Ntop的性能提升方案
- 北交大计算机学院复试经验,2014考研复试:过来人考研复试经验谈-北交大计算机系...
- Mysql多实例实施文档
- 大工18秋计算机文化基础在线测试2,大工18秋《计算机文化基础》在线测试2
- 文件名lin.php是什么,宝塔面板-PHP服务添加‘扩展名=ixed.5.4.lin
- 从0开始学习 GitHub 系列之「Git 速成」
- Linux下C语言开发(多任务编程之任务、进程、线程)
- 无线局域网和蜂窝移动网络_苹果调整 iPhone 移动数据下载限制:从 150 MB 升至 200 MB...
- 2017年10大主流编程语言最新排行榜出炉
- android 陀螺仪滤波_Savitzky-golay滤波在陀螺仪角加速度测量中的应用
- 基本的信号——Sa函数(抽样信号)
- 超简单的vue3.0,必看文档
- 第十一章、远程联机服务器SSH / XDMCP / VNC / RDP
- 用 Flask 来写个轻博客 (1) — 创建项目
热门文章
- css两列等高,css 多列等高
- lambda表达式python啥意思_Python中lambda表达式是什么
- php后端如何搭建socket服务,从php做一个简单的socket服务器流程
- 工作多年,怀才不遇你该怎么办?
- 画好原理图的几个技巧
- 全志r11_全志R328 Demo开发板;全志R333开发板/核心板;全志R11开发板/核心板;全志R16开发板/方案设计...
- python画皇冠_用Python画小女孩放风筝的示例
- 怎么增加android模拟器内存卡,增加android模拟器的内存大小
- java midi 解析_Java从MIDI键盘获取输入
- linux杀死oracle进程,杀死进程后,oracle数据库无法启动