- 博客(22)
- 收藏
- 关注
原创 vba_dpcode_check
Sub DPcode()arr = Selectionbrr = Split(Selection.Address, "$")lie = Range(brr(1) & 1).Columnhang = Split(brr(2), ":")(0)Set conn = CreateObject("adodb.connection")Set rst = CreateObject("ADODB.recordset")conn.Open "provider=Microsoft.ace..
2021-10-21 11:08:23
122
原创 vba_bayplan_check
Sub BayPlanCheck()arr = SelectionDim MyBook1, MyBook2 As WorkbookWith Application.FileDialog(msoFileDialogFilePicker) .Title = "Select A File" .InitialFileName = "C:\TXT" .AllowMultiSelect = False .Filters.Clear .Filters.Add "Tex.
2021-10-21 11:08:17
150
原创 vba_ancomments_add
Sub NCcomments()Dim MyBook1, MyBook2 As WorkbookSet MyBook1 = ActiveWorkbookWorkbooks.Open ("\\Cngscapl-spf302\IB\AM Team\01 IB - LARA\15 Personal Folder\NCCC AN Pending.xlsx")Set MyBook2 = ActiveWorkbookFor i = 1 To MyBook2.Worksheets.CountMyBo.
2021-10-21 11:08:09
116
原创 vba_bayplan_check02
Sub BayPlan_Check()arr = SelectionDim MyBook1, MyBook2 As WorkbookWith Application.FileDialog(msoFileDialogFilePicker) .Title = "Select A File" .InitialFileName = "C:\TXT" .AllowMultiSelect = False .Filters.Clear .Filters.Add "Te.
2021-10-21 11:08:01
137
原创 vba_undeliverable_email_check
Sub UndeCheck()'fuzhi listDim MyBook2 As WorkbookSet MyBook2 = ActiveWorkbookWith Application.FileDialog(msoFileDialogFilePicker) .Title = "Select A File" .InitialFileName = "\\cngscapl-spf303\Customer_Care\Doc_Import\Share\AM Team\01 IB ...
2021-10-21 11:07:55
166
原创 vba_schedule
Sub SchePHI()'fuzhi xuyao biaogeDim MyBook1 As WorkbookSet MyBook1 = ActiveWorkbookWith Application.FileDialog(msoFileDialogFilePicker) .Title = "Select A File" .InitialFileName = "\\cngscapl-spf303\Customer_Care\Doc_Import\Share\AM Team\01 .
2021-10-21 11:07:45
205
原创 vba_hold_report
Sub Hold()Dim MyBook1 As WorkbookSet MyBook1 = ActiveWorkbookWorkbooks.Open ("\\Cngscapl-spf303\Customer_Care\Doc_Import\Share\AM Team\01 IB - LARA\15 Personal Folder\bOB\Database_Bob.accdb")Set MyBook2 = ActiveWorkbookMyBook2.Sheets(2).Copy MyBoo.
2021-10-21 11:07:30
71
原创 vba_cosco_report
Sub CostcoR()Dim DISCCO, DESTNCO, DATECOFor i = 1 To Cells(1, Columns.Count).End(xlToLeft).ColumnIf Cells(1, i) = "EQT_ACTY_LAST_FREE_NAME" ThenCells(1, i) = "LAST FREE DAY(LFD)"ElseIf Cells(1, i) = "DISC_VOY_REF" ThenDISCCO = Cells(1, i).Co.
2021-10-21 11:07:11
161
原创 vba_ancheck04
Sub ANfailed()Dim i%, h%Dim afax As StringDim myws As WorksheetApplication.ScreenUpdating = FalseFor i = Sheets.Count To 1 Step -1 Application.DisplayAlerts = False If Sheets(i).Name = "ANfail" Then Sheets(i).Delete End If App.
2021-10-21 11:06:48
76
原创 vba_clcheck
Sub locaC()'fuzhibiaogeDim MyBook1 As WorkbookSet MyBook1 = ActiveWorkbookWorkbooks.Open ("C:\Users\GSC.BFU\Desktop\bOB\Clarence Location Check\Clarence Location.xlsx")Set MyBook3 = ActiveWorkbookMyBook3.Sheets(1).Copy MyBook1.Sheets("Page1_1")M.
2021-10-21 11:06:35
124
转载 Linux常用命令大全-转载
Linux常用命令大全(非常全!!!)最近都在和Linux打交道,感觉还不错。我觉得Linux相比windows比较麻烦的就是很多东西都要用命令来控制,当然,这也是很多人喜欢linux的原因,比较短小但却功能强大。我将我了解到的命令列举一下,仅供大家参考:系统信息arch 显示机器的处理器架构uname -m 显示机器的处理器架构uname -r 显示正在使用的内核版本dmidecode -q 显示硬件系统部件 - (SMBIOS / DMI)hdparm -i /dev/hda 罗...
2021-09-19 10:16:04
125
原创 vba_email_send
Sub SendEM()If [a1] = "" And [a2] = "" Then Columns("A:A").Delete End If On Error Resume NextActiveSheet.Name = "1-20 Email Address"'SHANDIAO ssc.krexportdocs@cma-cgm.com 无效公邮For X1 = 2 To Sheets("1-20 Email Address").Range("F65536").End(xlU.
2021-09-17 14:43:55
365
原创 vba_emailcheck02
Sub Emcheck()'if part code bushi 99991 and email addres bu han "@fax or @FAX or @cma or @CMA"Dim dicSet dic = CreateObject("scripting.dictionary")For x = 11 To Range("a65536").End(xlUp).ROWdic(Cells(x, "a").Value) = 0Next xFor x = 11 To Rang.
2021-09-17 14:43:43
509
原创 vba_findpic02
Sub find_pic2()Dim con As New ConnectionDim conn As New ConnectionDim connn As New Connectioncon.Open "provider=Microsoft.ace.OLEDB.12.0;data source=" & "\\CNGSCAPL-SPF303\Customer_Care\Doc_Import\Share\CN_Import\02SHA\07 Tools\00 Database\NCIMP.
2021-09-17 14:43:34
118
原创 vba_emailcheck
Sub Email_Check()brr = SelectionDim conn As New Connection'conn.Open "User ID=XXXX;Password=XXXX;Data Source=XXXXX;Provider=XXXXX" 'conn.Open "Provider=OraOLEDB.Oracle.1;User ID=XXXXX;Password=XXXX;Data Source=XXXXX;Persist Security Info=Tr.
2021-09-17 14:43:25
292
原创 VBA_ANCHECK
Sub AN_Check()brr = SelectionWorkbooks.AddDim book1 As WorkbookSet book1 = ActiveWorkbookDim conn As New Connection'conn.Open "User ID=XXXX;Password=XXXX;Data Source=XXXXX;Provider=XXXXX" 'conn.Open "Provider=OraOLEDB.Oracle.1;User ID=XX.
2021-09-17 14:43:00
103
原创 SQLITE数据库操作
1. python 储存sqliteimport pandas as pdfrom sqlalchemy import create_engineengine = create_engine('sqlite:///test.db')data = {'name':['Bob','Bob1']}df = pd.DataFrame(data)df.to_sql('tb_test',engine)2.python 读取sqliteimport pandas as pdfrom sqla
2021-09-17 14:42:44
226
原创 PYTHON_爬虫_贝壳二手房
import requestsfrom lxml import etreeimport re# 存放重庆的市区拼写的列表regions = ['yubei']# 自定义一个爬虫函数def findInfo(url): with open(r'C:\Users\Administrator\Desktop\python爬虫\HouseData.csv', "a", encoding='utf-8') as f: # 打开一个csv文件将爬取的数据存放到文件中 .
2021-09-17 14:42:00
875
原创 PYTHON_pandas基础_Series
1. pandas.Series 基础pandas.Series( data, index, dtype, name, copy)参数说明:data:一组数据(ndarray 类型)。 index:数据索引标签,如果不指定,默认从 0 开始。 dtype:数据类型,默认会自己判断。 name:设置名称。 copy:拷贝数据,默认为 False。2.pandas 列表存入pandas.Seriesimport pandas as pda = [1,2,3]data = pd.
2021-09-17 14:41:43
81
原创 Excle函数
功能 函数 函数表达式 统计类 计数 COUNT COUNT(value1,[value2],.....) 计数(含字母及其他) COUNTA COUNTA(value1,[value2],.....) 计空格数 COUNTBLANK COUNTBLANK(value1,[value2],.....) 计数带条件 COUNTIF COUNTIF(判定条件的目标区域,判断条件) 技术带多条
2021-09-17 14:41:12
114
原创 PQSQL_数据分页抽取
create or replace procedure P_DATA_EXTRACT_0915 (TABLE_NAME in varchar2,START_DATE IN NUMBER,END_DATE IN NUMBER ) isTABLE_SOURCE NVARCHAR2(100) ;TABLE_TARGET NVARCHAR2(100) ;FIELD_NAME NVARCHAR2(100);MAX_DATE NUMBER;MIN_DATE NUMBER ;TOTAL_NUMBER NU.
2021-09-17 14:40:42
386
原创 爬虫编程思路
爬取基本流程1.分析网页源代码2.编写主函数,访问网页的主循环3.定义函数3.1 模拟用户登陆3.2 反爬3.2.1 虚拟IP3.2.2 通过验证3.2.3 设置访问延迟3.2.4 设置验证码通过3.3 通过正则或xpath 提取需要的信息3.4 输出数据(csv,pandas)3.5 数据处理,存入数据库3.6 编写简单脚本,每天定时更新4.加入gui程序...
2021-09-16 15:03:57
87
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人