fuchouqiong-CSDN博客

原创 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 86

原创 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 117

原创 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 79

原创 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 108

原创 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 121

原创 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 143

原创 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 44

原创 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 104

原创 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 45

原创 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 91

转载 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 82

原创 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 [email protected] 无效公邮For X1 = 2 To Sheets("1-20 Email Address").Range("F65536").End(xlU.

2021-09-17 14:43:55 282

原创 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 275

原创 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 77

原创 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 193

原创 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 78

原创 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 194

原创 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 765

原创 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 53

原创 Excle函数

功能函数函数表达式统计类计数 COUNT COUNT(value1,[value2],.....) 计数（含字母及其他） COUNTA COUNTA(value1,[value2],.....) 计空格数 COUNTBLANK COUNTBLANK(value1,[value2],.....) 计数带条件 COUNTIF COUNTIF(判定条件的目标区域，判断条件) 技术带多条

2021-09-17 14:41:12 79

原创 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 336

原创爬虫编程思路

爬取基本流程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 58

fuchouqiong的博客