標題: [發問] 如何列出文件名? [打印本頁]

---

作者: basarasy    時間: 2011-5-13 09:30     標題: 如何列出文件名?

先 Select  A2(最後在A2開始向下列出文件名)
找到文件2010內想要的文件,用 "多重選取檔案" 選取想要的文件檔案,最後以Select 的A2開始向下列出文件名.

請問大大們這個如果寫?

---

作者: mark15jill    時間: 2011-5-13 10:17

回復 1# basarasy


    可否上傳個簡易檔案+說明 這樣比較適當。不然可能很難懂您要的

---

作者: GBKEE    時間: 2011-5-13 20:16

本帖最後由 GBKEE 於 2011-5-13 20:17 編輯

回復 1# basarasy

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i%
   
4.     With Application.FileDialog(msoFileDialogOpen)
   
5.         .AllowMultiSelect = True
   
6.         .InitialFileName = "D:\TEST"       '請 修改為你的文件夾
   
7.         .Show
   
8.         For i = 1 To .SelectedItems.Count
   
9.             ActiveSheet.[A2].Offset(i - 1) = .SelectedItems(i)
   
10.         Next
    
11.     End With
    
12. End Sub

複製代碼

---

作者: basarasy    時間: 2011-5-18 15:23

回復 3# GBKEE


    謝謝GBKEE大大.
    但是可以 Sheets a1就在a1出 Sheets b2就在b2出嗎?
eg.  Sheets a3  >run vba > a3-a10出資料名(文件夾的名 or 文件名)
   
[attach]6250[/attach]
[attach]6251[/attach]
[attach]6252[/attach]

---

作者: GBKEE    時間: 2011-5-18 19:14

回復 4# basarasy
ActiveSheet.[A2].Offset(i - 1) = .SelectedItems(i)
改成作用中的儲存格
ActiveCell.Offset(i - 1) = .SelectedItems(i)

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)