2020年04月_安達と島村

12月 11月 09月 08月 07月 06月 05月 04月 03月 02月 01月

原创 postgresql分页查询和OVER的用法

分页查询需要返回指定范围的数据和总数据量，用下面的sql语句可以一次查询到。select count(1) over() ,* from companies where pk>2 order by pk desc limit 3 offset 2返回值是[{8,company1},{8,company2},{8,company3}]。数据库一共10条数据，where条筛选出8条，li...

2020-04-30 18:15:01 3876

原创 vba异常处理

对要try-catch的语句On Error GoTo errorHandle，然后errorHandle里对err(.number)进行判断，对不同的error进行不同的error处理。似乎运行时错误用On Error GoTo errorHandle和On Error Resume Next都无法捕获。Sub asdasd() Set li2 = New Collection ...

2020-04-30 15:16:45 863

原创 vba的Application.Run

'module3Sub Macro1() MsgBox 1End SubSub Macro2() MsgBox 2 Application.Run "Macro1"End SubFunction f1(a) MsgBox a & "module3" f1 = aEnd Function'module4Sub maCRO2() ...

2020-04-28 13:17:46 6081 1

原贴地址：https://www.jianshu.com/p/9766dfdf45d51.尽量调用内置功能，即，使用系统提供的属性、方法和函数很多时候我们要实现某些功能，如果本身对excel不熟悉的话，可能会想办法去实现某些看上去很复杂的功能，殊不知，其实excel本身已经提供了类似的功能，有的时候可能仅仅是一个函数就解决了的事情，结果你搞半天，说不定辛苦弄出来，结果效率和效果还没内置的好。...

2020-04-26 20:57:59 1314 1

原创 vba操作mysql_建表和删除

truncate，drop table，create table的返回对象是Fields类型，始终是空，count=0Sub TestConnectTodb() Set conn = New ADODB.Connection conn.ConnectionString = "DRIVER={MySql ODBC 5.3 Unicode Driver};Server=localho...

2020-04-26 20:35:25 525

原创 vba操作mysql_增删改和事务

sql语句最后可以有0个，1个或多个分号。执行完不需要commitinsertinsert多条数据：insert into s1 values(xx),(xx)，要删除最后的逗号否则报错。Sub TestConnectTodb() Set conn = New ADODB.Connection conn.ConnectionString = "DRIVER={MySql O...

2020-04-26 20:12:54 1198

原创 vba操作mysql_查询

环境配置：https://www.cnblogs.com/SH170706/p/7714829.htmlMySQL的ODBC驱动下载及安装：https://blog.csdn.net/weixin_38746118/article/details/94878714报错Error 1918：安装visual c++ 2013，下载老版本的odbc，https://dev.mysql.com/d...

2020-04-26 19:27:48 534

原创 vba爬静态网页

原贴地址：http://club.excelhome.net/thread-1466658-1-1.html?tdsourcetag=s_pcqq_aiomsg日文环境下BytesToBstr可能需要修改编码类型。HTMLFILE对象无法使用execScript和querySelector，原因不明。HTMLFILE对象用来解析html，也可以直接用正则表达式解析BytesToBstr。P...

2020-04-26 15:22:37 752

原创 vba爬动态网页

原贴地址：https://blog.csdn.net/u011410413/article/details/54629770代码会打开IE浏览器逐步操作，和使用python selenium的效果一样。没有找到更换浏览器的方法Sub aa() url = "http://club.excelhome.net/thread-1466658-1-1.html?tdsourcetag=s_p...

2020-04-26 14:15:45 1963

原创 vba的like和正则表达式

like的详细用法：Sub aa() a = "asd" Like "a?" '''false a = "asd" Like "[agjs3]*" '''true ,[ABCDEGHIJ2345]=[A-EG-J2-5]， a = "asd" Like "asD" '...

2020-04-25 23:44:29 2091

原创 Collection和Dictionary简单用法

注意dict(“X”)会dict add “X”,Empty，Dictionary是有序的字典Sub testCollection() Dim x As New Collection x.Add "a0" x.Add "a9" x.Add "a5", "a5key" t1 = x("a5key") '''a5 t2 = x(...

2020-04-20 19:16:12 513

原创 HeadFirst设计模式-状态模式

意图：允许对象在内部状态发生改变时改变它的行为，对象看起来好像修改了它的类。主要解决：对象的行为依赖于它的状态（属性），并且可以根据它的状态改变而改变它的相关行为。何时使用：代码中包含大量与对象状态有关的条件语句。如何解决：将各种具体的状态类抽象出来。关键代码：通常命令模式的接口中只有一个方法。而状态模式的接口中有一个或者多个方法。而且，状态模式的实现类的方法，一般返回值，或者是改变实例变...

2020-04-06 17:29:00 198

原创常用vba功能汇总

excel文件保存相关：Public Function fast_start(Optional ByVal displayalert = True) With Application .ScreenUpdating = False .Calculation = xlCalculationManual '.CalculateBeforeSav...

2020-04-02 17:53:56 2587

原创关于HPageBreaks属性和Phonetic函数

Function isLastPageBreakReal(ByVal ws As Worksheet, Optional offsetrow = 40, Optional offsetcol = 20) With ws Set zzz = .HPageBreaks If zzz.Count = 0 Then isLastPageBre...

2020-04-02 13:46:28 1231