以儲存格內容決定，開啟哪個外部檔案

2ka

請問
在a1儲存格打入1，則開啟1.txt的文字檔，
在a2儲存格打入2，則開啟2.txt的文字檔，
的巨集如何寫，請不吝指教，謝謝！

art00083303

回復 1# 2ka

下載 (17.32 KB)

2016-4-16 01:28

1. Private Sub CommandButton1_Click()
   
2. Dim n As Integer
   
3. Dim Load, Name As String
   
4. Dim myArr()
   
5. n = Cells(1, 1).End(xlDown).Row - 2
   
6. ReDim myArr(n - 1)
   
7. Load = Cells(1, 2)
   
8. Name = Cells(2, 2)
   
9. Set fs = CreateObject("Scripting.FileSystemObject")
   
10. For i = 0 To n - 1 '檔案是否存在
    
11.     myArr(i) = Load & "\" & Cells(i + 3, 1) & Name
    
12.     If fs.FileExists(myArr(i)) Then
    
13.         Check = 1
    
14.     Else
    
15.         ii = ii + 1
    
16.         Check = 0
    
17.         MsgBox "檔案路徑or檔案名稱錯誤" & vbCrLf & "(" & ii & ") " & myArr(i) & " 不存在"  '檔案不存在"
    
18.     End If
    
19. Next
    
20. 
    
21. If Check = 1 Then
    
22.     For i = 0 To n - 1
    
23.     Workbooks.Open Filename:=myArr(i)
    
24.     Next
    
25. Else
    
26. End If
    
27. 
    
28. End Sub

複製代碼