2 OYQ697

尚未进行身份认证

我要认证

暂无相关简介

等级
TA的排名 4w+

python-pandas笔记1(Excel文件)

1.遍历Excel所有sheet表:整体思路:获取excel所有sheet表数据--读取数据并合并成一个表--输出import pandas as pdbook='D:/VBA学习/报表生成/1_派单表20年5月.xlsx'#读取数据(整个Excel工作薄)def read_data(excel_path): data=pd.DataFrame() i=0 for excel in excel_path: df=pd.read_excel(excel_pat.

2020-08-04 11:47:08

VBA-批量数据分类

1.近期做了一个将总表数据按一定的分类规则来拆分成几个分表的自动表格,数据源不便公布,在这里只发布代码,仅供参考:Sub classfication() Dim w0 As Workbook Dim w1 As Workbook Dim sheet1 As Worksheet Dim r0 As Range Dim r1 As Range Dim filename As String Dim rw() Dim arr1() Dim

2020-06-07 15:58:26

VBA-DIR函数(文件自动归档)

1.今天用dir函数做了一个自动将文件归档的程序,我们一起来看看效果,首先,文件夹里面的文件名称如下图所示,我们可以看到所有的文件名(除我们写VBA代码的表格)都符合2020.xx.xx.xlsx的格式2.我们要做的是将同一月份的表格放到一个文件夹里,当我们运行代码就会得到以下两张图的结果,所有文件都被放到对应月份的文件夹里3.接下来,看看我们如何实现吧,具体代码如下(由于注释较详细,这里就不过多说明)Sub autotest()'定义变量(文件名+集合(收集文件名名称集合))

2020-05-09 17:54:37

VBA-自动对账(改善版)仅供参考

1.在工作表的open事件中添加代码,用以提醒用户使用规则Private Sub Workbook_Open()If MsgBox("该工作表仅支持快递对账费用,如不是快递费用对账请关闭", vbYesNo, "温馨提示") = vbYes ThenDim w0 As WorkbookDim book1 As WorksheetDim book2 As WorksheetSet...

2020-03-10 19:55:48

VBA-自动筛选符合条件的数据

1.效果图如下2.我们可以看到符合条件---即入住日期刚好满7天的数据信息被筛选出来3.代码如下Option ExplicitDim w0 As WorkbookDim book0 As WorksheetDim book1 As WorksheetDim r0 As RangeDim r1 As RangeSub 自动筛选符合条件的信息()Set w0 = Act...

2020-03-09 20:20:11

VBA-合并多个工作簿

1.首先我们理清思路,我们将所有要合并到一起的Excel工作簿放到一个文件夹里,该文件夹里面有一个启用宏的工作表,启动该工作表的宏,就可以将该文件夹里面的所有Excel文件的内容合并到一张表里面,后面可以将合并完成后的数据复制或剪切到新的Excel表中。2.代码如下Sub 合并目录所有工作簿全部工作表()Dim MP, MN, AW, Wbn, wnDim Wb As Workb...

2019-06-14 15:54:28

VBA-(e健代收)计算代收费用

1.用网抓的方法进行计算费用,首先得创建连接,将所含的参数传入请求,等待响应后将结果取出(split)Option ExplicitFunction mytotal(c, k, g, Z) '根据长款高重量来计算代收费用 Dim strtext As String Dim strurl As String '创建请求对象 strurl = "http://w...

2018-08-11 11:24:37

VBA-正则表达式来获取网上数据

以猫眼电影为例1,我们要获得猫眼电影榜单的好看的电影信息,影片名称,主演,以及观看和购票链接,获取后效果如下图所示2.不难看出,我们只需要通过观察网页源代码,然后进行整合提取关键信息,在用正则表达式来截取想要的信息就可以对应的获取相应的信息,具体的代码及解释如下Option Explicit'获取猫眼电影榜单信息Sub getdy() Cells.Clear ...

2018-08-09 09:47:54

VBA-选择文件

Option ExplicitSub 打开文件()Dim fileNameObj As Variant Dim aFile As Variant '数组,提取文件名fileName时使用 '打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant Dim filename As String Dim ful...

2018-08-04 11:26:07

VBA-access表信息的获取

1.首先我们来直接获取某个数据库的所有表信息Sub 获取数据库中所有表的名称和类型() Dim i As String Dim mydata As String Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset mydata = ThisWorkbook.Path & "...

2018-07-31 16:10:25

VBA-判断数据表是否存在(openschema)

1.首先我们可以学习一下错误捕捉,当数据表不存在的时候,删除数据表就会出现错误,此时就会有错误记录,我们就可以利用本地窗口看到错误的信息Sub 错误捕捉() Dim mydata As String Dim mytable As String Dim con As New ADODB.Connection mydata = ThisWorkbook.Path ...

2018-07-28 11:34:10

VBA-数据库创建,数据表创建

1.首先我们要判断数据库是否存在,需要引用一个类“Microsoft ADO Ext.6.0 for DDL and Security”,用其catalog 对象来判断数据库是否存在,如果不存在,直接创建数据库和数据表,如果存在则删除Option ExplicitSub shifuchunzai() Dim con As New ADODB.Connection Dim m...

2018-07-28 10:30:38

VBA-将数据分页显示(listview)

1.首先我们来看一下分页显示的效果2.要想作出分页的效果,必须要用listview控件实现,一般来说在窗体工具箱中并没有这个控件,所以我们要自己添加,打开窗体工具箱,在空白处右键-->附加控件-->选择microsoft listview control,version 6.0-->确定就好了,其使用方法和其他控件的使用方法是一样的,拖动到窗口就可以使用了3.首先...

2018-07-27 11:01:28

VBA-一些查询实例(access)

OptionExplicitSubchanxun()DimconAsNewADODB.Connection'声明并创建连接对象DimrsAsNewADODB.Recordset'声明并创建记录集对象con.Open"provider=microsoft.ace.oledb.12.0;datasource="&...

2018-07-26 08:43:06

VBA-数据库查询实例

1.首先我们得做一个窗体,其布局和运行效果如下2.我们要理清思路,首先窗体在运行时就应该将部门加载进去,并且将重复的部门剔除掉Private Sub UserForm_Initialize()Set con = New ADODB.ConnectionWith con.Provider = "microsoft.ace.oledb.12.0".ConnectionString...

2018-07-23 11:23:09

VBA-获取网上的资源

用代码实现下载文件,如图片等小文件,如果是大文件的话,速度太慢,不建议用此类方法具体的实现代码如下Option ExplicitPublic Function getimage() Dim strurl As String strurl = "http://p5.so.qhimgs1.com/t0161ac92c369a8cefb.jpg" '下载网址 Dim ...

2018-07-21 19:42:55

vba-网络抓取(get,post)

1.网络抓取有很多种方法,处理也有很多种方法,以下提供一些代码,仅供参考(1)GET获取数据Option Explicit'以快递一百查询快递单号为例'用fiddler 来查看自己想要的链接等信息'GET请求获取数据Public Sub testkuaidi() Dim xmlhttp As Object Set xmlhttp = CreateObject("M...

2018-07-21 10:20:21

VBA-正则表达式

1.写好正则表达式,在数据截取处理中是十分有优势的,以下举几个例子来学习一下正则表达式的用法OptionExplicitPublicFunctiongetnum2(strAsString)WithCreateObject("VBScript.RegExp").Global=False'全局匹配.Pattern="\d+"'正则表达式,匹配数字...

2018-07-19 19:37:23

VBA-简单抓取网络数据

1.在Excel中如果能够直接获取网上的数据,是非常便利的,于是在这里以获取标题和链接为例,来介绍一下用VBA实现网络抓取效果如下图所示2.如何实现,具体代码和解释如下OptionExplicitPublicSubgetlist()'将单元格内容清空[a:b].ClearContents'定义网址DimstrurlAsStringstrur...

2018-07-19 10:14:03

VBA-基本的文件操作语句与文件加密(加密dog)

1.基本的文件操作,如重命名,移动,删除,新建,文件大小,具体代码如下所示Option Explicit Sub 演示()  Dim strpath As String, filename As String  strpath = ThisWorkbook.path & "\"  'filename = "text.txt"  'MsgBox FileLen(strpath & f...

2018-07-15 10:51:08

查看更多

勋章 我的勋章
  • 签到新秀
    签到新秀
    累计签到获取,不积跬步,无以至千里,继续坚持!
  • 阅读者勋章Lv2
    阅读者勋章Lv2
    授予在CSDN APP累计阅读博文达到7天的你,是你的坚持与努力,使你超越了昨天的自己。
  • 持之以恒
    持之以恒
    授予每个自然月内发布4篇或4篇以上原创或翻译IT博文的用户。不积跬步无以至千里,不积小流无以成江海,程序人生的精彩需要坚持不懈地积累!
  • 勤写标兵Lv1
    勤写标兵Lv1
    授予每个自然周发布1篇到3篇原创IT博文的用户。本勋章将于次周周三上午根据用户上周的博文发布情况由系统自动颁发。