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