- 帖子
- 7
- 主題
- 2
- 精華
- 0
- 積分
- 47
- 點名
- 0
- 作業系統
- Windows 10
- 軟體版本
- Office2013
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2016-4-15
- 最後登錄
- 2017-8-15
|
2#
發表於 2016-4-16 01:28
| 只看該作者
回復 1# 2ka
- Private Sub CommandButton1_Click()
- Dim n As Integer
- Dim Load, Name As String
- Dim myArr()
- n = Cells(1, 1).End(xlDown).Row - 2
- ReDim myArr(n - 1)
- Load = Cells(1, 2)
- Name = Cells(2, 2)
- Set fs = CreateObject("Scripting.FileSystemObject")
- For i = 0 To n - 1 '檔案是否存在
- myArr(i) = Load & "\" & Cells(i + 3, 1) & Name
- If fs.FileExists(myArr(i)) Then
- Check = 1
- Else
- ii = ii + 1
- Check = 0
- MsgBox "檔案路徑or檔案名稱錯誤" & vbCrLf & "(" & ii & ") " & myArr(i) & " 不存在" '檔案不存在"
- End If
- Next
- If Check = 1 Then
- For i = 0 To n - 1
- Workbooks.Open Filename:=myArr(i)
- Next
- Else
- End If
- End Sub
|
|
