彰化一整天的論壇

 找回密碼
 立即註冊
查看: 880|回復: 0

如何選取單一檔案名稱並存入Excel儲存格

[複製鏈接]
發表於 2014-7-7 22:27:19 | 顯示全部樓層 |閱讀模式
本帖最後由 imingho 於 2015-5-27 20:03 編輯

在自動寄Email功能中,有一個附加檔案的功能,但是要填寫絕對路徑及檔名,對於不懂電腦的人,這是有點難的,所以寫了一個可以選取單一檔案功能的VBA並將絶對路徑及檔案儲存在儲存格。
selectfile_01.jpg
1.執行畫面
selectfile_02.jpg
2.程式碼

  1. Sub selectfile()
  2. Dim fd As FileDialog    '宣告一個檔案對話框
  3.    
  4.     Set fd = Excel.Application.FileDialog(msoFileDialogFilePicker)  '設定選取檔案功能
  5.    
  6.    
  7.     fd.Filters.Clear    '清除之前的資料
  8.    
  9.     fd.Filters.Add "所有檔案", "*.*"
  10.     fd.Filters.Add "Excel File", "*.xls*" '設定顯示的副檔名
  11.     fd.Filters.Add "Word File", "*.doc*"
  12.     fd.Filters.Add "Zip File", "*.zip"

  13.     fd.AllowMultiSelect = False

  14.    
  15.     If fd.Show Then

  16.         x = 工作表1.Shapes(Application.Caller).TopLeftCell.Row
  17.      
  18.         Cells(x, 2) = fd.SelectedItems(1)
  19.     End If
  20.    
  21. End Sub

  22. Sub clearfile()
  23.         x = 工作表1.Shapes(Application.Caller).TopLeftCell.Row
  24.      
  25.         Cells(x, 2) = ""
  26. End Sub

複製代碼


回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2020-2-25 14:08 , Processed in 0.226743 second(s), 22 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表