Question

我有一个关于cron工作的小问题，我是否必须在此处插入我的数据纯文本？

Sub byGroupCounter()

  Dim i As Integer

  Application.ScreenUpdating = False

For i = ActiveSheet.Index To Sheets.Count
  byGroup i
Next i
Application.ScreenUpdating = True
End Sub

Sub byGroup(ByVal Sheets_Index As Integer)
  Dim g As Long, s As Long, aSTRs As Variant, aGRPs As Variant
  Dim Ws As Worksheet
  Set Ws = Worksheets(Sheet_Index)

appTGGL bTGGL:=False

' I believe the next line is where I am doing something wrong:
With Ws
    aSTRs = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).Value2
    With .Range(.Cells(1, 5), .Cells(Rows.Count, 1).End(xlUp).Offset(0,        Application.Match("zzz", .Rows(1)) - 1))
        .Resize(.Rows.Count, .Columns.Count).Offset(1, 0).ClearContents
        aGRPs = Ws.Cells.Value2
    End With

    For s = LBound(aSTRs, 1) To UBound(aSTRs, 1)
        For g = LBound(aGRPs, 2) To UBound(aGRPs, 2)
            If CBool(InStr(1, aSTRs(s, 1), aGRPs(1, g), vbTextCompare)) Then
                aGRPs(s + 1, g) = aSTRs(s, 1)
                Exit For
            End If
        Next g
    Next s

    .Cells(1, 5).Resize(UBound(aGRPs, 1), UBound(aGRPs, 2)) = aGRPs

  End With

  appTGGL
End Sub

Public Sub appTGGL(Optional bTGGL As Boolean = True)
    Debug.Print Timer
    Application.ScreenUpdating = bTGGL
    Application.EnableEvents = bTGGL
    Application.DisplayAlerts = bTGGL
    Application.Calculation = IIf(bTGGL, xlCalculationAutomatic,     xlCalculationManual)
End Sub

我看过一个主题，说不要将密码明文放在那里，而是使用-ppassword。但是我不知道如果我要在-p之后输入我的密码，那该怎么不是明文呢？有关它的一些信息将不胜感激:) 提前致谢

有关MySQL Cron作业的信息

0 个答案: