07 2018 档案

VBA提取HTML文件信息
摘要：Sub test() Dim html As Object, D As Object, W As Object, arr() Set html = CreateObject("msxml2.xmlhttp") html.Open "GET", "file:///" & ThisWorkbook.Pa 阅读全文

posted @ 2018-07-31 16:02 上山打老虎下山采蘑菇 阅读(1663) 评论(0) 推荐(0)

pycharm 注释
摘要：pycharm中同时注释多行代码快捷键： 代码选中的条件下，同时按住 Ctrl+/，被选中行被注释，再次按下Ctrl+/，注释被取消 阅读全文

posted @ 2018-07-22 16:19 上山打老虎下山采蘑菇 阅读(281) 评论(0) 推荐(0)

VBA字典做数据有效性
摘要：Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 26 And Range("f" & Target.Row) = "柏广清" Then Set d = CreateObject("scrip 阅读全文

posted @ 2018-07-20 18:39 上山打老虎下山采蘑菇 阅读(686) 评论(0) 推荐(0)

和Excel函数date同样功能的VBA函数DateSerial用法
摘要：Sub 日期别()On Error Resume Nextlastrow = Sheets("运营日报").Range("a1048576").End(xlUp).Rowlastday = VBA.Day(Sheets("运营日报").Range("a" & lastrow)) + 1lastcol 阅读全文

posted @ 2018-07-20 18:37 上山打老虎下山采蘑菇 阅读(5211) 评论(0) 推荐(0)

字典配合split分裂填充
摘要：Sub 配送日报()lastrow = Sheets("运营日报").Range("a1048576").End(xlUp).Rowarr = Sheets("运营日报").Range("a1:ab" & lastrow)Set d = CreateObject("scripting.diction 阅读全文

posted @ 2018-07-20 18:34 上山打老虎下山采蘑菇 阅读(229) 评论(0) 推荐(0)

EXCEL表格链接SQLSEVER数据库
摘要：Sub 数据库连接() Set Cnn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") Cnn.ConnectionString = "Provider=SQLOLEDB;Persist Secu 阅读全文

posted @ 2018-07-18 10:12 上山打老虎下山采蘑菇 阅读(372) 评论(0) 推荐(0)

SQL链接EXCEL操作
摘要：Sub CopyData_5() Set Cnn = CreateObject("ADODB.Connection")With Cnn.Provider = "microsoft.Ace.oledb.12.0".ConnectionString = "Extended Properties=Exce 阅读全文

posted @ 2018-07-18 10:10 上山打老虎下山采蘑菇 阅读(422) 评论(0) 推荐(0)

VBA中msgbox的用法小结
摘要：msgbox 阅读全文

posted @ 2018-07-11 09:49 上山打老虎下山采蘑菇 阅读(9688) 评论(0) 推荐(0)

导航