vba批量写入mysql临时表_自己写的实用VBA代码合集

Sub 替换昨今去()

Dim Yesterday_Day As Integer, Yesterday As String, Yesterday_Month As Integer, Yesterday_Year As Integer

Dim Today_Day As Integer, Today_Month As Integer, Today_Year As Integer

Yesterday = DateAdd("d", -1, Date)

Yesterday_Day = Day(Yesterday)

Yesterday_Month = Month(Yesterday)

Yesterday_Year = Year(Yesterday)

Today_Day = Day(Date)

Today_Month = Month(Date)

Today_Year = Year(Date)

'选择性粘贴

Selection.PasteAndFormat (wdPasteDefault)

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

'取消所有超链接

Dim cc As Field

For Each cc In ActiveDocument.Fields

If cc.Type = wdFieldHyperlink Then

cc.Unlink

End If

Next

Set cc = Nothing

'替换昨天、昨日

With Selection.Find

.Text = "昨[天日]{1}"

.Replacement.Text = Yesterday_Month & "月" & Yesterday_Day & "日"

.Forward = True

.Wrap = wdFindContinue

.MatchByte = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

'替换今天、今日

With Selection.Find

.Text = "今[天日]{1}"

.Replacement.Text = Today_Month & "月" & Today_Day & "日"

.Forward = True

.Wrap = wdFindContinue

.MatchByte = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

'替换今年

With Selection.Find

.Text = "今年"

.Replacement.Text = Today_Year & "年"

.Forward = True

.Wrap = wdFindContinue

.MatchByte = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

'替换去年

With Selection.Find

.Text =