向未打開的工作簿中輸入數(shù)

向未打開的工作簿中輸入數(shù)

本文為《別怕，Excel VBA其實(shí)很簡(jiǎn)單（第3版）》隨書問題參-

參考代碼：

Sub 在未打開的工作簿中輸入數(shù)據(jù)() Dim Irow As Integer, arr As Variant Workbooks.Open (ThisWorkbook.Path & "\花名冊(cè).xlsx") With ActiveWorkbook.Worksheets(1) Irow = .Range("A1048576").End(xlUp).Offset(1, 0).Row arr = Array(Irow - 1, "范麗麗", "女", #8/27/1990#, #5/9/2015#) .Cells(Irow, 1).Resize(1, 5).Value = arr End With ActiveWorkbook.Close savechanges:=TrueEnd Sub

注意，在VBA中，日期數(shù)據(jù)應(yīng)寫在一對(duì)#號(hào)之間才能被識(shí)別為日期，如代碼中的#8/27/1990#

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。