php 导出excel删除空行,将Excel数据写入Word模板并删除多余的空行

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:=