- 博客(15)
- 资源 (7)
- 收藏
- 关注
RSS订阅原创 Excel VBA 读取其他的Excel文件内的内容
'---------------------------------------------------初级版-----------------------------------------------'---------------------------------------------------进阶版-----------------------------------------------'----------------------删除空白行----------------------
2023-03-25 21:36:24
4293
原创 Excel 如何批量导出所有图片
再点击“media”文件夹，其中会包含原文件中的图片和视频文件，我们点开文件夹看看，可见表格中所有的图片都归集到一起了。修改好文件名称后缀，我们可以看到这个excel文件变成了一个压缩文件，然后右击该文件，直接点击“解压到当前文件夹”。这个导出excel图片的方法，实际是利用了压缩文件在解压后，会进行不同对象的分类，而快速集合了所有的图片对象。这时原来的excel文件会被解压为分类的多个文件夹，而我们需要导出的图片也被汇总到其中一个子文件夹内。Excel导出表格中的所有图片，只需要3分钟便能搞定。
2022-12-24 15:12:48
1642
原创 Excel中《分列》高效到爆的用法，8个案例，太实用了！
2)复制分隔符,如果手动输入可能会存在和实际分隔符看似一样实则有差异导致分列失败的现象,所以复制分隔符作为备用比较靠谱.有的时候从ERP系统导出来的数据,可能会存在数值均是文本的情况,当你做求和的时候,文本的数字无法进行求和运算.如果你经常处理很多人的表格,输入不标准是常见的,这个小方法还是很不错的!当然,如果中间分隔符号为"顿号",或者"逗号",也是一样的道理.如下方,这个数据源,我们想要做一个关于时间的分析,5)复制分列之后的整个内容,粘贴选择转置粘贴.看上去日期格式没有问题,其实他可能是文本格式,
2022-12-09 19:41:28
3993
原创 FIND函数嵌入INDEX和MATCH函数，简直就是万金油查找!!！
其原理和之前的表格一样,无非就是INDEX中的第二个参数列匹配,需要用到近似MATCH匹配.对刚才的FIND结果做一个判断,是不是是数值,如果是数值则成立TRUE,否则为FALSE.代表,我们可以匹配到可口可乐1.25L对应的品牌出现在品牌打折表中的第二行.而之前的FIND+MATCH+ISNUMBER的判断,我们已经行位.通常都是例如:FIND(字眼,文本串中去找),这是个简单用法.康师傅,并且是10到30之间的采购量,就应该折扣93%.这个位置需要反馈的是折扣,所有INDEX范围到折扣列,
2022-12-09 19:38:05
1499
原创 Excel VBA 指定区域内的数据 导出为图片
Excel VBA 指定区域内的数据 导出为图片 可自定义保存路径， 自定义导出的区域，自定义导出文件名
2022-11-14 19:53:31
2721
1
原创 导入文本文件中的数据到Excel
Filename:=ThisWorkbook.Path & "\数据源.txt", _文本文件内容格式 以下两种格式都可以 -------- 数据源.txt。#0001 张三 20010102。#0003 王五 19950701。#0004 赵六 19890225。#0001|张三|20010102。#0002|李四|19811201。#0003|王五|19950701。#0004|赵六|19890225。序号|姓名|出生日期。
2022-10-27 17:06:59
176
原创 Excel VBA 操作 文本文档
'创建文本并写入记录 - 每次运行会替换原有的文件'以下三种方法任选其一，都可以正常使用'---------------------方法一、--------------------------------Function WriteFile(filepath As String, str As String) Dim objFso As Object Dim objStream As Object Set objFso = CreateObje
2022-06-17 14:35:05
1214
原创 VBA Excel 拆分WorkSheets单独保存为文件
'拆分当前表中所有sheet保存到文件夹拆分表内Sub SaveSeparately() Dim sht As Worksheet Application.ScreenUpdating = False ipath = ThisWorkbook.Path & "\拆分表\" Dim fso Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists(...
2022-05-25 15:51:16
442
原创 VBA EXCEL 常用代码
1.显示活动工作簿名称MsgBox " 当前活动工作簿是 " & ActiveWorkbook.Name2. 保存活动工作簿Activeworkbook.Save3. 保存所有打开的工作簿关闭 EXCELFor Each W in Application.WorkbooksW.SaveNext WApplication.Quit4. 将网格线设置为蓝色ActiveWindow.GridlineColorIndex = 55. 将工作表 sheet1 隐藏She
2022-03-18 11:57:14
5300
原创 VBA 计算某个程序运行所用时间
' ---------计算程序运行所用时间:----------Sub GetRunTime() Dim i As Long Dim dteStart As Date Dim strTime As String'关闭屏幕刷新 'Application.ScreenUpdating = False dteStart = Timer '---------运行过程主体------- strTime = Form...
2021-08-04 11:44:25
4455
原创 Excel 提取 Word中的数据到Excel表格中
Sub importfromword() Dim w As Object, i As Long, doc As Object '创建一个word的Application对象，由w代表 Set w = CreateObject("word.application") '循环打开使用数字命名的各个word文档，由doc代表 For i = 1 To 8 Set doc = w.documents.Open("D:...
2021-08-04 11:41:57
1315
原创 Excel 操作 Word 常用属性和方法
一、新建Word引用需要首先创建一个对 Word Application 对象的引用。在VBA中，工具-引用，选取“MicroSoft Word 11.0 Object Library”。方法一、New Word.Application Dim Wordapp As Word.Application Set Wordapp = NewWord.Application Wordapp.Visible = True '可见 '...
2021-08-04 11:28:18
775
原创 如何打开 Excel VBA 及 我的第一个代码
VBA是一种宏语言，能完成许多重复繁琐的操作，使工作处理就会变得很高效。在office内WORD、Excel、PPT等都内置了VBA。以下主要讲Excel上的运用：一、打开VBA方法：方法1：在Excel界面使用快捷键Alt+F11方法2：office2010版本以上：点击文件--选项--自定义功能区--自定义功能区--勾选开发工具--确定开启开发工具后就可以在主菜单上看到开发工具选项卡了；需要打开VBA就在开发工具选项卡点击visual basic即可；二、编写代码如图
2021-08-02 13:43:42
9493
1
Excel VBA 操作 拆分当前Excel表中 / 所选取文件夹所有子文件中 所有sheet保存到对应文件夹路径中拆分表内
2022-06-05
VBA Excel 批量修改文件名
2022-05-24
VBA 实现把格式相同的多个word网格数据批量转到excel文件中
2022-03-15
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人