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

總結

以上是生活随笔為你收集整理的php 导出excel删除空行,将Excel数据写入Word模板并删除多余的空行的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。