Private Sub CommandButton输出通知到Word文件_Click()

Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, i, j

Dim Str1, Str2

当前路径 = ThisWorkbook.Path

最后行号 = Sheets("数据").Range("B65536").End(xlUp).Row

判断 = 0

For i = 2 To 最后行号

导出文件名 = "发货单"

FileCopy 当前路径 & "\发货单(模板).doc", 当前路径 & "\" & 导出文件名 & "(" & Sheets("数据").Range("A" & i) & ").doc"

导出路径文件名 = 当前路径 & "\" & 导出文件名 & "(" & Sheets("数据").Range("A" & i) & ").doc"

With Word对象

.Documents.Open 导出路径文件名

.Visible = False

For j = 1 To 17 '填写文字数据

Str1 = "数据" & Format(j, "000")

Str2 = Sheets("数据").Cells(i, j + 1)

.Selection.HomeKey Unit:=wdStory '光标置于文件首

If .Selection.Find.Execute(Str1) Then '查找到指定字符串

.Selection.Font.Color = wdColorAutomatic '字符为自动颜色

.Selection.Text = Str2 '替换字符串

End If

Next j

.ActiveDocument.Tables(1).Rows(1).Select

.ActiveDocument.Application.Selection.InsertRowsBelow Sheets("数据").Range("s56565").End(3).Row - 1

For K = 2 To Sheets("数据").Range("s56565").End(3).Row

For j = 1 To 2 '填写表格数据

.ActiveDocument.Tables(1).Cell(K, j).Range = Sheets("数据").Cells(K, j + 17)

'  .ActiveDocument.Tables(1).Cell(3, j).Range = Sheets("数据").Cells(i + 1, j + 17)

Next j

Next

.ActiveDocument.Tables(2).Rows(1).Select

.ActiveDocument.Application.Selection.InsertRowsBelow Sheets("数据").Range("T56565").End(3).Row - 1

For K = 2 To Sheets("数据").Range("T56565").End(3).Row

' For j = 1 To 1 '填写表格数据

.ActiveDocument.Tables(2).Cell(K, 1).Range = Sheets("数据").Cells(K, 20)

'Next j

Next

.ActiveDocument.Tables(3).Rows(1).Select

.ActiveDocument.Application.Selection.InsertRowsBelow Sheets("数据").Range("U56565").End(3).Row - 1

For K = 2 To Sheets("数据").Range("U56565").End(3).Row

' For j = 1 To 1 '填写表格数据

.ActiveDocument.Tables(3).Cell(K, 1).Range = Sheets("数据").Cells(K, 21)

'Next j

Next

.ActiveDocument.Tables(4).Rows(1).Select

.ActiveDocument.Application.Selection.InsertRowsBelow Sheets("数据").Range("V56565").End(3).Row - 1

For K = 2 To Sheets("数据").Range("V56565").End(3).Row

For j = 1 To 4

.ActiveDocument.Tables(4).Cell(K, j).Range = Sheets("数据").Cells(K, j + 21)

Next

Next

.ActiveDocument.Tables(5).Rows(1).Select

For K = 2 To Sheets("数据").Range("R56565").End(3).Row

.ActiveDocument.Tables(5).Cell(1, 2).Range = .ActiveDocument.Tables(5).Cell(1, 2).Range & Sheets("数据").Cells(K, 26)

Next

.ActiveDocument.Tables(5).Rows(3).Select

For K = 2 To Sheets("数据").Range("aa56565").End(3).Row

If Sheets("数据").Cells(K, 27) <> "" Then

A = A + 1

.ActiveDocument.Tables(5).Cell(A + 2, 2).Range = Sheets("数据").Cells(K, 27)

End If

Next

End With

Word对象.Documents.Save

Word对象.Quit

Set Word对象 = Nothing

Next i

If 判断 = 0 Then

i = MsgBox("已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示：")

End If

End Sub

根据自己实际操作，poi中lastRowNum方法获取行数的是excel最后有数据的一行，从0开始

而physicalNumberOfRows方法获取的行数是excel最后有数据的一行减去最后一行之前的空白行

工作中有一个需求是，上传excel文件导入数据，但是需要将成功的数据的条数，和失败条数返回，这种情况我的做法就是将成功的条数从excel中删除，使用

sheet.removeRow(sheet.getRow(40));

但是这个方法我们删除的只是数据，当前行并没有删除，所以留下来的是一个空行

这种情况就需要将空行后边的数据全部向前移一行，用到的方法是

sheet.shiftRows(i+1,physicalNumberOfRows,-1);

二个参数为需要移动的行的区间，第三个参数负数代表向前移，正数代表向后移

具体代码：

FileInputStream fileInputStream = new FileInputStream("D:\\MyDocuments\\itw_renzm\\桌面\\file.xls");

HSSFWorkbook workbook = new HSSFWorkbook(fileInputStream);

HSSFSheet sheet = workbook.getSheetAt(0);

int physicalNumberOfRows = sheet.getPhysicalNumberOfRows();

int lastRowNum = sheet.getLastRowNum();

//清除excel当前行

sheet.removeRow(sheet.getRow(10));

sheet.removeRow(sheet.getRow(20));

sheet.removeRow(sheet.getRow(21));

sheet.removeRow(sheet.getRow(22));

sheet.removeRow(sheet.getRow(23));

sheet.removeRow(sheet.getRow(24));

sheet.removeRow(sheet.getRow(40));

System.out.println(lastRowNum+"------"+physicalNumberOfRows);

for(int i =1;i

Row row = sheet.getRow(i);

Cell cell = null;

String cellValue = "";

if (row!=null){

cell = row.getCell(0);

cellValue = POIUtil.getCellValue(cell);

}

if (row==null||cell==null||cellValue==""){

sheet.shiftRows(i+1,lastRowNum,-1);

i--;

//减去一条空行，总行数减一。

lastRowNum--;

}

}

FileOutputStream fileOutputStream = new FileOutputStream("D:\\MyDocuments\\itw_renzm\\桌面\\file1.xls");

workbook.write(fileOutputStream);

fileOutputStream.close();

workbook.close();

fileInputStream.close();

}