利用Aspose.Cells读取不规则excel单元格内容显示到datagridview，并导出到规则excel中

'%%第一张表为现在使用的格式表的标题行 '%%%%第二张表为打卡机导出的Excel复制过来的表 '%%%%修改打卡年月变量: dt Sub 考勤记录读取() ' ' 考勤记录读取 ' ' LineRow = ActiveDocument.Tables(2).Rows.Count Dim varData(31) As Variant '修改打卡的年月 dt = "2017/4/" '修改打卡日期 For i = 1 To LineRow If (InStr(ActiveDocument.Tables(2).Cell(i, 1).Range.Text, "员 工") > 0) Then Str1 = ActiveDocument.Tables(2).Cell(i, 2).Range.Text begin = InStr(Str1, " ") StrName = Trim(Mid(Str1, begin, Len(Str1) - begin)) begin = InStr(StrName, " ") StrName = Trim(Mid(StrName, begin, Len(StrName) - begin)) begin = InStr(StrName, " ") StrName = Trim(Mid(StrName, begin, Len(StrName) - begin)) begin = InStr(StrName, " ") StrName = Trim(Mid(StrName, 1, begin - 1)) For j = 1 To 31 If (j <= 16) Then Str1 = Trim(ActiveDocument.Tables(2).Cell(i + 2, j + 1).Range.Text) Else cnt1 = j - 16 Str1 = Trim(ActiveDocument.Tables(2).Cell(i + 5, cnt1 + 1).Range.Text) End If Str1 = Trim(Replace(Str1, "", "")) Str1 = Replace(Str1, Chr(13), "") If (Str1 <> "") Then cnt = ActiveDocument.Tables(1).Rows.Count ActiveDocument.Tables(1).Cell(cnt, 1).Select Selection.InsertRows 1 cnt = ActiveDocument.Tables(1).Rows.Count ActiveDocument.Tables(1).Cell(cnt - 1, 1).Range.Text = Replace(ActiveDocument.Tables(1).Cell(cnt, 1).Range.Text, Chr(13), "") ActiveDocument.Tables(1).Cell(cnt - 1, 2).Range.Text = Replace(ActiveDocument.Tables(1).Cell(cnt, 2).Range.Text, Chr(13), "") ActiveDocument.Tables(1).Cell(cnt - 1, 3).Range.Text = Replace(ActiveDocument.Tables(1).Cell(cnt, 3).Range.Text, Chr(13), "") ActiveDocument.Tables(1).Cell(cnt - 1, 4).Range.Text = Replace(ActiveDocument.Tables(1).Cell(cnt, 4).Range.Text, Chr(13), "") ActiveDocument.Tables(1).Cell(cnt, 1).Range.Text = StrName ActiveDocument.Tables(1).Cell(cnt, 2).Range.Text = dt & j If (InStr(Str1, "--:--") > 0) Then begin = InStr(Str1, "--:--") If (begin = 1) Then ActiveDocument.Tables(1).Cell(cnt, 3).Range.Text = "" ActiveDocument.Tables(1).Cell(cnt, 4).Range.Text = Trim(Replace(Str1, "--:--", "")) Else ActiveDocument.Tables(1).Cell(cnt, 4).Range.Text = "" ActiveDocument.Tables(1).Cell(cnt, 3).Range.Text = Trim(Replace(Str1, "--:--", "")) End If Else begin = InStr(Str1, " ") ActiveDocument.Tables(1).Cell(cnt, 3).Range.Text = Mid(Str1, 1, begin - 1) ActiveDocument.Tables(1).Cell(cnt, 4).Range.Text = Mid(Str1, begin + 1, Len(Str1) - begin - 1) End If End If If (j = 31) Then i = i + 9 End If Next j End If Next i MsgBox ("完成！") End Sub