返回列表 上一主題 發帖

如何每次開啟選擇匯入文字檔之路徑

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2017-7-25 10:48 | 顯示全部帖子
回復 1# sping

'選檔案   
Set FD = Excel.Application.FileDialog(msoFileDialogFilePicker)  '設定選取檔案功能
FD.Filters.Clear    '清除之前的資料
'FD..InitialFileName = "c:temp\"'默認路徑
FD.Filters.Add "Excel File", "*.xls*" '設定顯示的副檔名
If FD.Show = -1 Then
     Path = FD.SelectedItems(1)
Else
    End
End If
Workbooks.Open Path
PKKO

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題