vb做的懒人值班表

因为每次都得填重复的 弄了个这个 不过下次改进下 弄开机自启

Option Explicit
Dim wapp As New Word.Application
Dim wapp1 As New Word.Application
Dim wapp2 As New Word.Application

Dim i As Integer
Dim wdoc As Word.Document
Dim wdoc2 As Word.Document
Dim zhoumo As Integer
Dim zhoumo1 As Integer
Dim zhoumo2 As Integer
Dim friday As Integer
Dim friday1 As Integer
Dim friday2 As Integer











Private Sub Command1_Click()

'Dim wdoc As Word.Document
Dim tablew As Word.table

Dim c As String
Static v As Long
Dim w As String
Dim q As String
Dim time As String
Dim ii As Integer
Dim iii As Integer
Dim day1 As Integer


'i = i + 1

ii = i - 4
iii = ii - i

'c = Year(Now) & "." & Month(Now)
c = Format(Now, "yyyy.mm.dd")



v = Weekday(Date)
If v = 1 Then
 w = "8:00"
q = "周末"
time = "12小时"

ElseIf v = 2 Then
 w = "17:00"
q = "延值"
time = "3小时"

ElseIf v = 3 Then
 w = "17:00"
q = "延值"
time = "3小时"

ElseIf v = 4 Then
 w = "17:00"
q = "延值"
time = "3小时"

ElseIf v = 5 Then
w = "17:00"
q = "延值"
time = "3小时"

ElseIf v = 6 Then
w = "17:00"
q = "延值"
time = "3小时"


If FileLen(App.Path & "\1234.txt") = 0 Then
Open "1234.txt" For Output As #1
friday2 = friday2 + 1
Print #1, friday2,
Close #1
Else
Open "1234.txt" For Input As #1
Input #1, friday1
End If
Close #1


'friday2 = friday2 + 1

'Open "1234.txt" For Output As #1
' print 语句后面加上逗号，
' 输出后不换行、输出项目后面自动加空格补齐到“制表定位”处
'Print #1, friday2,
'Print #1, "20150112103831",
'Print #1, "6.62",
'Print #1, "6.62",
'Print #1, "0.00",
'Print #1, "0.00",
'Print #1, "6.62",
'Close
'Open "1234.txt" For Input As #1
'Input #1, friday1 '读取文件中的一个数据，存放到变量a中
'Close


fr