請問EXCEL可以實作類似WORD的郵件合并的功能么？就是用一個EXCEL表格做模板，另一個EXCEL表格做資料源，
最后根據資料源自動填寫出N個EXCEL表格，
從資訊名冊中提取每條記錄的資訊（姓名、性別、出生日期、參保檔次放入、現月養老金、本次調整、調整后養老金）放在審批表的相應位置上，并自動生成以姓名命名 的單獨的表格
uj5u.com熱心網友回復：
Sub X()
Dim dataBook As Workbook
Dim dataSheet As Worksheet
Dim personBook As Workbook
Dim personSheet As Worksheet
Dim r As Long
Dim strName As String
Set dataBook = Workbooks.Open("資料源.xls")
Set dataSheet = dataBook.Sheets(1)
For r = 2 To dataSheet.UsedRange.Rows.Count
strName = dataSheet.Cells(r, 1).Value
Set personBook = Workbooks.Add("模板.xlt")
Set personSheet = personBook.Sheets(1)
'把 dataSheet 第 r 行的資料填到 personSheet 的對于位置'
personBook.SaveAs strName & ".xls"
Set personSheet = Nothing
personBook.Close
Set personBook = Nothing
Next
Set dataSheet = Nothing
dataBook.Close
Set dataBook = Nothing
End Sub
大概就是上面這樣子。自己加上完整的目錄，注釋部分自己完善。
uj5u.com熱心網友回復：
能告訴下聯系方式嗎？比如QQ，我沒接觸過宏，有些看不懂
uj5u.com熱心網友回復：
你自己隨便錄個宏，Alt+F11打開宏編輯器，把上面的代碼貼到同一個模塊中，有不懂的陳述句自己F1看幫助。uj5u.com熱心網友回復：
學習了，精華啊轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/40441.html
標籤：VBA
上一篇：如何實作對超越方程的求解？
下一篇：誰有多列顯示組合框控制元件啊？