vba listbox 内容输出到文本_利用剪贴板提取工作表的文本内容
第六节利用剪贴板提取工作表的文本内容
这节内容是这个专题的最后一讲,也是一讲抛砖引玉的内容。在前面几讲的内容中,我们讲了很多关于剪贴板的利用,在提取剪贴板数据的时候。可以建立一个对象,利用对象的方法提取数据,还可以利用API函数来完成提取数据。在利用对象来提取对象的时候,一般只是提取文本数据,而利用API函数来提取数据的时候,理论上不仅可以提取文本数据,还可以提取各种格式的数据,文本格式只是其中之一。这套教程中我只是将提取文本数据的方法给大家进行讲解,其他格式希望有兴趣的朋友能参考必要的资料。这节的内容和第四节的内容类似,只是在思路上将文本类型的数据格式作为提取数据的格式之一来进行。这节代码的实现场景是将某个工作表内容中的文本提取出来,放到另外的一个工作表中。可以利用上节的内容进行判断,是否具有文本格式的数据,如有有那么可以利用这讲的代码进行数据的提取。
1 利用剪贴板提取工作表文本内容的代码
这个代码我仍是采用API函数来书写,以便朋友们在提取其他格式数据的时候进行参考,对于代码的引用声明部分大家可以参考附件的程序文件,这里仅对标准模块的代码进行讲解。标准模块的代码如下:Sub mynzE()Dim hMem As LongDim lpData As LongDim nClipSize As LongDim bytClipData() As ByteDim sClipString As StringSheets("sheet4").SelectCells.CopySheets("sheet3").SelectOpenClipboard 0&If OpenClipboard(ByVal 0&) ThenhMem = GetClipboardData(CF_TEXT)If CBool(hMem) ThenlpData = GlobalLock(hMem)nClipSize = GlobalSize(hMem)ReDimbytClipData(1 To nClipSize)CopyMemorybytClipData(1), ByVallpData, nClipSizesClipString = StrConv(bytClipData, vbUnicode)Range("A2") = sClipStringElseMsgBox "当前剪贴板内没有文本"End IfCloseClipboardEnd IfEnd Sub 代码截图:代码讲解:1)Sheets("sheet4").SelectCells.Copy上述代码将工作表"sheet4"的内容放到剪切板中。2) OpenClipboard 0&打开剪切板3)If OpenClipboard(ByVal 0&) Then加入剪切板被打开执行下面的操作4)hMem = GetClipboardData(CF_TEXT)If CBool(hMem) ThenlpData = GlobalLock(hMem)nClipSize = GlobalSize(hMem)ReDimbytClipData(1 To nClipSize)CopyMemorybytClipData(1), ByVallpData, nClipSizesClipString = StrConv(bytClipData, vbUnicode)Range("A2") = sClipStringElseMsgBox "当前剪贴板内没有文本"End If上述代码将剪切板中的文本内容提取出来,放到A2单元格中。5)CloseClipboard关闭剪切板。
2 利用剪贴板提取工作表文本内容的实现效果
我们先看看第四个工作表中截图,有一些文本,有的在连续的区域,有的在非连续的区域。如图:我们点击运行按钮,查看运行的结果,如下面的截图:这样就将第四页工作表中的文本提取到了第三页A2单元格中,无论是连续和非连续区域的内容都没有少。这样做就达到了提取整个工作表中文本的目的。
3 利用剪贴板提取其他格式内容的思路
虽然这讲这个专题我们没有就其他的格式进行讲解,但思路基本是一样的,如要提取图片,那么就将提取相应格式的剪贴板内容,然后利用图片的解析API函数来完成图片内容的解析,其他的格式也是类似的。我就不一一讲解了。本节知识点回向:① 如何实现提取整个工作表的文本内容?② 提取各种格式类型数据的思路是怎样的?本讲代码参考文件:012工作表.xlsm
积木编程的思路内涵:
在我的系列书籍中一直在强调“搭积木”的编程思路,这也是学习利用VBA的主要方法,特别是职场人员,更是要采用这种方案。其主要的内涵:1 代码不要自己全部的录入。你要做的是把积木放在合适的位置然后去修正代码,一定要拷贝,从你的积木库中去拷贝,然后修正代码,把时间利用到高效的思考上。2 建立自己的“积木库”。平时在学习过程中,把自己认为有用的代码放在一起,多积累,在用到的时候,可以随时拿来。你的积木库资料越多,你做程序的思路就会越广。
VBA的应用界定及学习教程:
VBA是利用Office实现个人小型办公自动化的有效手段(工具)。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前,谁能在数据处理方面做到极致,谁就是王者。其中登峰至极的技能非VBA莫属!我记得20年前自己初学VBA时,那时的资料甚少,只能看源码自己琢磨,真的很难。20年过去了,为了不让学习VBA的朋友重复我之前的经历,我根据自己多年VBA实际利用经验,推出了六部VBA专门教程:第一套:VBA代码解决方案是VBA中各个知识点的讲解,教程共147讲,覆盖绝大多数的VBA知识点,提供的程序文件更是一座不可多得的代码宝库,是初学及中级人员必备教程;目前这套教程提供的版本是修订第二版,程序文件通过32位和64位两种OFFICE系统测试。第二套:VBA数据库解决方案数据库是数据处理的专业利器,教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作,适合中级人员的学习。目前这套教程提供的是修订第一版教程,程序文件通过32位和64位两种OFFICE系统测试。第三套:VBA数组与字典解决方案 数组和字典是VBA的精华,字典是VBA代码水平提高的有效手段,值得深入的学习,是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版,程序文件通过32位和64位两种OFFICE系统测试。第四套:VBA代码解决方案之视频是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。这套教程是第一套教程(修订一版)的视频讲解,听元音更易接受。这套教程还会额外提供通过32位和64位两种OFFICE系统测试的程序文件。第五套:VBA中类的解读和利用 这是一部高级教程,讲解类的虚无与肉身的度化,类的利用虽然较少,但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了,领悟一种佛学的哲理。第六套教程:《VBA信息获取与处理》,这是一部高级教程,涉及范围更广,实用性更强,面向中高级人员。教程共二十个专题,包括:跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作,剪切板应用、Split函数扩展、工作表信息与其他应用交互,FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。上述教程的学习顺序:1→3→2→6→5或者4→3→2→6→5。提供的程序文件更是一座巨大的代码库,供读者使用,如需要可以WeChat: NZ9668
学习VBA是个过程,也需要经历一种枯燥的感觉
“众鸟高飞尽,孤云独去闲。相看两不厌,只有敬亭山”。学习的过程也是修心的过程,修一个平静的心。在代码的世界中,心平静了,心情好了,身体自然而然就好。心静则正,内心里没有那么多邪知邪见,也就没有那么多妄想。利人就是利己。我的教程助力给正在努力的朋友。“水善利万物而不争”,绵绵密密,微则无声,巨则汹涌。学习亦如此,知道什么是自己所需要的,不要蜷缩在一小块自认为天堂的世界里,待到暮年时再去做自欺欺人的言论。要努力提高自己,用一颗充满生机的心灵,把握现在,这才是进取。越是有意义的事情,困难会越多。愿力决定始终,智慧决定成败。不管遇到什么,都是风景。看淡纷争,看轻得失。学习时微而无声,利用时则巨则汹涌。“路漫漫其修远兮,吾将上下而求索”每一分收获都是成长的记录,怎无凭,正是这种执着,成就了朝霞的灿烂。最后将一阙词送给致力于VBA学习的朋友,让大家感受一下学习过程的枯燥与执着:浮云掠过,暗语无声,唯有清风,惊了梦中啼莺。望星,疏移北斗,奈将往事雁同行。阡陌人,昏灯明暗,忍顾长亭。 多少VBA人,暗夜中,悄声寻梦,盼却天明。怎无凭!分享我多年工作实际经验的成果,随喜这些有用的东西,给确实需要利用VBA的同路人。回向学习利用VBA的历历往事,不胜感慨,谨以这些文字以纪念,分享成果,随喜正能量
加微信NZ9668可获得详细资料信息
_____________________________
有启发 点在看,转给朋友 约作者 请留言,直接交流
更多关联阅读
vba listbox 内容输出到文本_利用剪贴板提取工作表的文本内容相关推荐
- Excel_利用公式提取工作表的名称
取得当前工作表的名称: 方法一:在名称中定义sheetname=SUBSTITUTE(GET.DOCUMENT(1),"["&GET.DOCUMENT(88)&&q ...
- itextsharp 获取文本_利用iTextSharp提取PDF文件中的文本内容
最近测试中需要对比两个PDF文件的内容,当然只是文字没有图表的,但是没有现成的工具可用.于是我的想法是先把PDF转换为Text,然后再对比Text的内容.现在问题的关键变成了如何提取PDF中的文本,在 ...
- vba listbox 内容输出到文本_利用FSO对象读取文本文件的信息
大家好,我们今日讲解"VBA信息获取与处理"教程中第十八个专题"FSO对象对文件及文件夹的处理"的第四节"利用FSO对象读取文本文件的信息" ...
- vba fso读utf 文本_利用FSO对象操作文件
大家好,我们今日讲解"VBA信息获取与处理"教程中第十八个专题"FSO对象对文件及文件夹的处理"的第二节"利用FSO对象操作文件",这个专题 ...
- vba monthview控件64位_利用VBA获取文件的信息和属性
大家好,我们今日讲解"VBA信息获取与处理"教程中第十七个专题"文件及文件夹信息的获取及操作"的第三节"利用VBA获取文件的信息和属性",这 ...
- 利用openpyxl为工作表指定区域添加外边框
利用openpyxl为工作表指定区域添加边框 openpyxl的边框功能 为指定单元格添加边框 局限性 指定区域添加边框的实现 openpyxl的边框功能 openpyxl库提供了针对excel中某单 ...
- excel中用正则匹配_excel 利用正则表达式匹配工作表中的数据
excel 利用正则表达式匹配工作表中的数据 sheet1中A列放需要匹配的数据 sheet2中A列放正则表达式,可以是多个,但至少一个 匹配到了则在sheet1中C列对应行显示相关标记内容,比如本案 ...
- Excel文件中核对两个工作表中不同内容
两份相同的销售报表,要从里面找出不同的数据要怎么做呢?数据少的话,一看就能找出不同的:数据多的话,那要自己一个个看就没那么容易找出来了.今天就来跟大家分享在Excel文件中两个工作表如何快高效快速的核 ...
- python从文件中提取特定文本_python利用正则表达式提取文本中特定内容
正则表达式是一个特殊的字符序列,它能帮助你方便的检查一个字符串是否与某种模式匹配. Python 自1.5版本起增加了re 模块,它提供 Perl 风格的正则表达式模式. re 模块使 Python ...
最新文章
- windows exec: gcc: executable file not found in %PATH%
- 2020-11-10(回传递过程)
- 基于ZXing的二维码,你可以这样改造它
- 车用计算机内部结构图,ecu的基本组成结构 ECU的工作过程
- RedrawWindow, UpdateWindow,InvalidateRect 用法
- Java低级编程软件_JAVA语言说低级语言吗
- ubuntu之录屏软件kazam的安装
- 一则 gfs2 集群文件系统无法挂载的解决案例
- [Golang]解决Map的并发性问题:sync.Map
- 同济版高数(下)复习提纲
- 修改app应用的图标与名字
- fatal Couldn‘t find remote ref master
- VS code 显示中文异常解决办法
- 如何在未越狱的ios系统安装ipa文件
- Selenium使用浏览器自动登录校园网
- Google(谷歌)拼音输入法发布
- 人工智能对金融业的影响_人工智能如何改变金融业
- 素描原理在PS鼠绘实物中的应用
- “9W+引用”牛文教你2022年肿瘤到底该研究点啥?(第一期)
- Ubuntu16.04+CUDA8.0+cudnn v5.1+opencv3.1(2.4.10)+caffe+GTX 1080Ti 机器配置记录
热门文章
- java调用视图如何传参_Spring MVC中 视图 向 控制器 传参(接收方式)
- vcc、vdd和gnd是什么意思
- HTML5期末大作业【红色的电影售票平台网站】web前端 html+css+javascript网页设计实例 企业网站制作
- 2020 图片:我们人类这一年
- SkyWalking环境搭建与使用
- Python学习笔记(4):collections
- 2022-4-10 Leetcode 135.分发糖果
- windows xp MBR结构分析
- 使用Keras进行深度学习(二): CNN讲解及实践
- 【一起学Rust】Rust包管理工具Cargo初步了解