為指定文件夾中的所有Excel文件建一個(gè)帶鏈接的目錄

為指定文件夾中的所有Excel文件建一個(gè)帶鏈接的目錄

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

如果目錄要建在活動工作表A列第2行及之后的單元格中，可以用下面的過程：

Sub 建立目錄() Dim Irow As Long, FileName As String FileName = Dir("D:\我的文件\*.xls?") Irow = 2 Do While FileName <> "" Cells(Irow, "A").Value = FileName ActiveSheet.Hyperlinks.Add Anchor:=Cells(Irow, "A"), _ Address:="D:\我的文件\" & FileName, _ TextToDisplay:=Cells(Irow, "A").Value FileName = Dir Irow = Irow + 1 LoopEnd Sub

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