[求助]怎样一次打开多个文件

请看下面的代码：
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)