[求助]怎樣一次開啟多個檔案

請看下面的代碼：
Sub sjcl()
      Dim b, c, d
      Dim e As String
        For b = 300000 To 300100　　　
        c = "D:/建立檔案夾 (2)/" & b & ".TXT"
        d = "D:/建立檔案夾 (3)/" & b & ".xls"
        e =  b & ".TXT"
      If Dir(c) = "" Then
        c = "D:/建立檔案夾 (2)/" & (b + 1) & ".TXT"
        d = "D:/建立檔案夾 (3)/" & (b + 1) & ".xls"
        e =  (b + 1) & ".TXT"
          End If
 ChDir "D:/建立檔案夾 (2)"
    Workbooks.OpenText Filename:=c, StartRow:=1, _
        DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
        :=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
        Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), _
        Array(5, 1), Array(6, 1), Array(7, 1))
    

(這裡是我自己寫的檔案作業碼 )      
   

next

 end sub

    再一段代碼：
sub aa()
     Dim g, h, i
      Dim j As String　　
        For g = 0 To 5　　（如果檔案名稱是000000、000001、000002等直到003002，代碼怎麼寫）
        h = "D:/建立檔案夾 (2)/" & g & ".TXT"
        i = "D:/建立檔案夾 (3)/" & g & ".xls"
        j =  g & ".TXT"
      If Dir(j) = "" Then
        h = "D:/建立檔案夾 (2)/" & (g + 1) & ".TXT"
        i = "D:/建立檔案夾 (3)/" & (g + 1) & ".xls"
        j =  (g + 1) & ".TXT"
        End If
        ChDir "D:/建立檔案夾 (2)"
    Workbooks.OpenText Filename:=h, StartRow:=1, _
        DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
        :=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
        Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), _
        Array(5, 1), Array(6, 1), Array(7, 1))
    
    (以下是我自己寫的代碼 ) 

 Next g

End Sub

 

有2個問題：1、在第一段代碼中，如果檔案的名稱不是連續的，如300000後面直接是300002，代碼怎麼寫？

　　　　　　2、在第二段代碼中，如果檔案名稱是000000、000001、000002等直到003002，代碼怎麼寫？

 

For b = 300000 To 300100

改

For b = 300000 To 300100 Step 2

 

For g = 0 To 3002　　（如果檔案名稱是000000、000001、000002等直到003002，代碼怎麼寫）

然後再把g改成right("00000" & g,6)