麻辣家族討論版版 » Excel程式區 » 如何設定一個按鈕開啟CSV檔案不指定路徑

返回列表下一主題上一主題發帖

[發問] 如何設定一個按鈕開啟CSV檔案不指定路徑

中學生 Rank: 2

帖子: 39
主題: 15
精華: 0
積分: 69
點名: 0
作業系統: Windows 7
軟體版本: office 2016
閱讀權限: 20
性別: 男
來自: 新北市
註冊時間: 2018-11-23
最後登錄: 2020-2-26

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2018-12-1 07:47 | 只看該作者

[發問] 如何設定一個按鈕開啟CSV檔案不指定路徑

如何設定一個按鈕開啟CSV檔案不指定路徑

樓主熱帖

收藏

小武

中學生 Rank: 2

帖子: 18
主題: 2
精華: 0
積分: 74
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-5-27
最後登錄: 2019-6-26

2018 狗年全勤獎章 2017 雞年全勤獎章

2^#

發表於 2018-12-2 20:32 | 只看該作者

如何設定一個按鈕開啟CSV檔案不指定路徑
show5217 發表於 2018-12-1 07:47

http://forum.twbts.com/viewthrea ... D%B1%D2%C0%C9%AE%D7

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

3^#

發表於 2018-12-3 09:26 | 只看該作者

Sub zz()
With Application.FileDialog(3)
.Title = "Open csv files"
.Filters.Add "CSV files", "*.csv", 1
.Show
If .SelectedItems.Count Then Workbooks.Open .SelectedItems(1)
End With
End Sub

複製代碼

中學生 Rank: 2

帖子: 39
主題: 15
精華: 0
積分: 69
點名: 0
作業系統: Windows 7
軟體版本: office 2016
閱讀權限: 20
性別: 男
來自: 新北市
註冊時間: 2018-11-23
最後登錄: 2020-2-26

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2018-12-3 22:22 | 只看該作者

回復 3# ikboy

謝謝大大

小武

中學生 Rank: 2

帖子: 39
主題: 15
精華: 0
積分: 69
點名: 0
作業系統: Windows 7
軟體版本: office 2016
閱讀權限: 20
性別: 男
來自: 新北市
註冊時間: 2018-11-23
最後登錄: 2020-2-26

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2018-12-3 22:36 | 只看該作者

回復 3# ikboy
如果要寫在命令按鈕裡面呢

小武

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

6^#

發表於 2018-12-4 01:26 | 只看該作者

回復 5# show5217

滑鼠右鍵>指定巨集

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

中學生 Rank: 2

帖子: 39
主題: 15
精華: 0
積分: 69
點名: 0
作業系統: Windows 7
軟體版本: office 2016
閱讀權限: 20
性別: 男
來自: 新北市
註冊時間: 2018-11-23
最後登錄: 2020-2-26

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2018-12-4 06:54 | 只看該作者

回復 6# n7822123

意思應該是說如果不用巨集的方式

小武

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

8^#

發表於 2018-12-4 09:57 | 只看該作者

如圖步驟:1. 所有檔案 2. *.csv 3. 回車
系統會過濾所有csv檔案出來給選擇。

zz.PNG (32.63 KB)

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。

返回列表下一主題上一主題