fuchouqiong的博客

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.

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.

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.

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.

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.

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 .

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 ...

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.

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.

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.

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..

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.

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.

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.

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.