- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 142
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2026-7-16
                
|
4#
發表於 2011-12-1 14:53
| 只看該作者
本帖最後由 Hsieh 於 2011-12-1 14:55 編輯
回復 3# brabus
fs = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
這是開啟舊檔的對話方塊，可供使用者選擇要貼上資料的檔案
.Sheets("資料確認").[B1]
就是被開啟的檔案中資料確認工作表的B1儲存格，也就是被貼上資料的位置
至於2個*.xls請參閱GetOpenFilename的FileFilter 引數說明
FileFilter 選擇性的 Variant。是指定檔案篩選規則的字串。
此字串由一檔案篩選字串與 MS-DOS 萬用字元表達的檔案篩選規則描述組成，中間以逗點分隔。[檔案類型] 下拉式清單方塊中會列出各組字串。例如，下列字串指定兩個檔案篩選，文字和增益集：文字檔 (*.txt),*.txt,增益集檔案 (*.xla),*.xla。
若要使用多個 MS-DOS 萬用字元運算式組成單一檔案篩選類型，各萬用字元之間需以分號分隔；例如，"Visual Basic Files (*.bas; *.txt),*.bas;*.txt"。
如果省略，則此引數將預設為 "All Files (*.*),*.*"。 |
|
發表於 2011-12-3 20:35
| 
