basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-5-13 09:30 | 只看該作者

[發問] 如何列出文件名?

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

請問大大們這個如果寫?

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2011-5-13 10:17 | 只看該作者

回復 1# basarasy

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-5-13 20:16 | 只看該作者

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

回復 1# basarasy

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

複製代碼

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

4^#

發表於 2011-5-18 15:23 | 只看該作者

回復 3# GBKEE

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

50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-5-18 19:14 | 只看該作者

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

TOP