Question

这是我正在使用的循环

  Do While myFile <> ""

  Set wb = Workbooks.Open(FileName:=myPath & myFile)

'Texto para colunas
            Selection.CurrentRegion.Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=True, 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), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
    ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
    (20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _
    Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array( _
    33, 1), Array(34, 1), Array(35, 1), Array(36, 1), Array(37, 1)), DecimalSeparator:="." _
    , ThousandsSeparator:=",", TrailingMinusNumbers:=True
Columns("A:A").EntireColumn.AutoFit


'Save and close the file

 wb.Close SaveChanges:=True


'next file
  myFile = Dir

循环

我正在尝试将它们保存在不同的文件夹中，并使用不同的名称。即使我使用这样的东西：

wb.SaveAs "C:\Users\user\Desktop\Test\data\wb.data"

要运行sub并保存在另一个文件夹中，代码将尝试使用相同的名称保存它们。如何让循环更改文件名？

Answer 1

这样的东西会起作用。它只是将文件命名为wb1，wb2，wb3等。您可以使用相同的结构轻松调整。

i = 1

Do While myFile <> ""

    '... text to columns code


    wb.SaveAs "C:\Users\user\Desktop\Test\data\wb" & i & ".data"

    i = i +1

    'next file
  myFile = Dir

Loop

VBA循环以使用特定名称保存特定位置的文件

1 个答案: