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

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

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值