由于学校的有两套不同的系统,要进行数据同步,都支持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模板之间进行数据转换实例相关推荐

  1. vba 输出文本 m Linux,利用VBA实现EXCEL数据输出TXT等文本文件

    VBA--Visual Basic For Application的简称,属于VB的一个子集,广泛应用于Word套件的自动化,其寄存于现有的EXCEL或word等的文件里面 日常生活中,需要做到有逻辑 ...

  2. vba 添加outlook 签名_利用VBA发送附件电子邮件

    大家好,我们今日讲解"利用VBA发送附件电子邮件",这节内容是"VBA信息获取与处理"教程中第五个专题"利用VBA发送电子邮件"的第一节. ...

  3. word学习/word如何显示空格/LaTeX格式转为Word格式/ latex中的公式格式如何转换成word中的公式格式/excel复制到word表格过大超出

    以windows的word365为例进行讲解,主要分为显示,公式,表格,图片,审阅以及写作方式(含Latex格式转换). 常用快捷键: f4: cmd + y 查找: cmd + shift + h ...

  4. EXCEL利用VBA自由控制图表绘图区大小

    用好VBA的话确实可以给你再办公室的工作效率带来质的提升.如果有人跟你说你可以用Python什么的语言处理Excel balabala的,你可以无视他了.当然python可以处理很多事情,但是EXCE ...

  5. Excel利用VBA实现去掉单元格两边空格

    直接贴代码,方便大家学习. '清除所有sheet页中单元格两端的空格 Public Sub trimCell()Dim sheetCount, columnCount, rowCount, tempR ...

  6. 计算机excel阶乘,Excel利用VBA计算阶乘

    有网友问到如何求阶层的问题:在Excel中可以直接通过FACT函数来计算非负整数n的阶乘(n!) 这里用自定义函数来计算阶乘,使用循环和递归: 1.使用循环:Function Factorial_a( ...

  7. vba ado返回集合_利用VBA代码导出工作表中的图片

    蓝字关注,加微信NZ9668获资料信息  VBA解决方案   系列丛书作者  头条百家平台 VBA资深创作者 _______________________________ 大家好,世界各地,疫情施虐 ...

  8. 利用VBA编程制作互动效果的PPT

    利用VBA编程制作互动效果 利用VBA编程制作互动效果在PPT制作中是长期被忽视的,最近才逐渐引起重视,它的要点和难点都在于必须要编程.而实际上VBA的编程并非难度很高的编程形式,经过一段时间的学习是 ...

  9. 利用VBA编程实现从EXCEL表到AUTOCAD表转换

    一.前言 Microsoft Excel 软件具有十分强大的制表.表格计算等功能,是普通人员常用的制表工具.可以通过其内嵌的VBA语言可以控制Microsoft Excel 的整个操作过程. Auto ...

最新文章

  1. 高等数学·为什么f``(x)小于0:则f(x)在[a,b]上的图形是凹的。f``(x)大于0:则f(x)在[a,b]上的图形是凸的。
  2. R系统抽样(systematic sampling)
  3. RxJS 6有哪些新变化?
  4. UA PHYS515A 电磁理论III 静磁学问题3 静磁学问题的边界条件与标量势方法的应用
  5. 【算法】《algorithm-note》算法笔记中文版正式发布!
  6. 牛客 - 合约数(树上启发式合并)
  7. ntop linux,Linux下开源监控软件Ntop的性能提升方案
  8. 北交大计算机学院复试经验,2014考研复试:过来人考研复试经验谈-北交大计算机系...
  9. Mysql多实例实施文档
  10. 大工18秋计算机文化基础在线测试2,大工18秋《计算机文化基础》在线测试2
  11. 文件名lin.php是什么,宝塔面板-PHP服务添加‘扩展名=ixed.5.4.lin
  12. 从0开始学习 GitHub 系列之「Git 速成」
  13. Linux下C语言开发(多任务编程之任务、进程、线程)
  14. 无线局域网和蜂窝移动网络_苹果调整 iPhone 移动数据下载限制:从 150 MB 升至 200 MB...
  15. 2017年10大主流编程语言最新排行榜出炉
  16. android 陀螺仪滤波_Savitzky-golay滤波在陀螺仪角加速度测量中的应用
  17. 基本的信号——Sa函数(抽样信号)
  18. 超简单的vue3.0,必看文档
  19. 第十一章、远程联机服务器SSH / XDMCP / VNC / RDP
  20. 用 Flask 来写个轻博客 (1) — 创建项目

热门文章

  1. css两列等高,css 多列等高
  2. lambda表达式python啥意思_Python中lambda表达式是什么
  3. php后端如何搭建socket服务,从php做一个简单的socket服务器流程
  4. 工作多年,怀才不遇你该怎么办?
  5. 画好原理图的几个技巧
  6. 全志r11_全志R328 Demo开发板;全志R333开发板/核心板;全志R11开发板/核心板;全志R16开发板/方案设计...
  7. python画皇冠_用Python画小女孩放风筝的示例
  8. 怎么增加android模拟器内存卡,增加android模拟器的内存大小
  9. java midi 解析_Java从MIDI键盘获取输入
  10. linux杀死oracle进程,杀死进程后,oracle数据库无法启动