Доброго времени суток!
Подскажите, пожалуйтса, как сохранить файлы в данном цикле, чтобы каждому открытому .dat файлу присваивалось своё экселевское имя. Т.к. сейчас при попытке сохранить следующий файл оно спрашивает о перезаписи предыдущего файла.
Заранее спасибо!
Подскажите, пожалуйтса, как сохранить файлы в данном цикле, чтобы каждому открытому .dat файлу присваивалось своё экселевское имя. Т.к. сейчас при попытке сохранить следующий файл оно спрашивает о перезаписи предыдущего файла.
Заранее спасибо!
Код |
---|
Sub Chegevara() Dim MyFiles As String MyFiles = Dir("D:\PhD\Moments\*.dat") Do While MyFiles <> “” Workbooks.OpenText "D:\PhD\Moments\" & MyFiles, Origin:=65001, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _ Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1)), _ TrailingMinusNumbers:=True Range("C1").Select Selection.ClearContents Selection.ClearContents ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-1]" Range("C1").Select ActiveWorkbook.SaveAs Filename:="D:\PhD\Moments\he.xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False MsgBox ActiveWorkbook.Name ActiveWorkbook.Close SaveChanges:=False MyFiles = Dir Loop End Sub |