- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 1# doom834
UBound(FO)-> FO 必須是陣列 , GetOpenFilename 方法 只傳回選取檔案名稱 沒有傳回陣列
試試看
- Sub Ex()
- Dim File_qty As Integer, SN_1 As String, i As Integer
- File_qty = Sheets(SN_1).Cells(2, 6)
- With Application.FileDialog(msoFileDialogOpen)
- .InitialFileName = "d:\" '指定開啟的路徑
- .Filters.Clear
- .Filters.Add "Excel File", "*.csv; *.txt; *.xls", 1
- .Filters.Add "*.*", "*.*", 2
- .FilterIndex = 1
- .Show
- If .SelectedItems.Count > File_qty Then
- MsgBox ("載入檔案大於" & File_qty & "個已超出程式上限，請重新選擇檔案與確認載入數量是否小於或等於" & File_qty & "個，謝謝!!")
- Sheets(SN_1).Select
- Else
- For i = 1 To .SelectedItems.Count
- MsgBox .SelectedItems(1)
- Next
- End If
- End With
- End Sub
|
|
發表於 2011-11-16 15:13
| 