Powershell excel worksheets move

• Remove From My Forums

• Question

• How can I use powershell to move a worksheet from an existing open excel file to another open existing excel file.  Note, I don’t want to create a new excel file which is what «$excel.worksheets.item(«name of worksheet to move»).move()» does. 

You May Also Enjoy

Я занимаюсь этим довольно долгое время,

Я хочу создать новый рабочий лист, скопировав другой. Это помещает новый лист перед копированием листа. Затем я хочу переместить его до самого конца всех листов.

Цель состоит в том, чтобы рабочие листы назывались > summary1 > summary2 > summary3.. и т.д. в этом порядке

Вот что я имею (извините краткость)

$ex = New-Object -ComObject Excel.Application
$ex.Visible = $true
$wb = $ex.Workbooks.Add()

for ($i = 1; $i -le 3; $i++)
{
$wb.Worksheets.Item(2).Copy($wb.Worksheets.Item(2))
$newSheet = $wb.Worksheets.Item(2)
$newSheet.Activate()
$name = "Summary$i"
$newSheet.Name = $name
$wb.Worksheets.Item($name).Move($wb.Worksheets.Item($i + 1))
}

Он работает для первого листа, он переименовывает лист и перемещает его до конца, но после этого каждый раз, когда он достигает метода .Move, он ничего не делает, кроме .Activate() исходный лист “Сводка”.

Я понятия не имею, как объяснить это поведение. Спасибо, пожалуйста, заранее.

Изменить: Изменено $wb.Worksheets.Item( “Сводка” ). Перейдите к $wb.Worksheets.Item($ name).Move

Edit:

Вот решение:

for ($i = 1; $i -le 3; $i++)
{
$wb.Worksheets.Item(2).Copy($wb.Worksheets.Item(2))
$newSheet = $wb.Worksheets.Item(2)
$newSheet.Activate()
$name = "Summary$i"
$newSheet.Name = $name

$lastSheet = $wb.WorkSheets.Item($wb.WorkSheets.Count)
$newSheet.Move([System.Reflection.Missing]::Value, $lastSheet)
}

Отмечено как Сообщество, потому что это из вопроса выше.

Вот решение:

for ($i = 1; $i -le 3; $i++)
{
$wb.Worksheets.Item(2).Copy($wb.Worksheets.Item(2))
$newSheet = $wb.Worksheets.Item(2)
$newSheet.Activate()
$name = "Summary$i"
$newSheet.Name = $name

$lastSheet = $wb.WorkSheets.Item($wb.WorkSheets.Count)
$newSheet.Move([System.Reflection.Missing]::Value, $lastSheet)
}

Я могу предложить более “общий” и, возможно, более быстрый ответ, только ради его использования. Просто имейте в виду, что это от VBA и потребует незначительных изменений для запуска в той же среде, что и ваш вопрос.

Sub sheetCopier()
Dim destSht As Object, srcSht As Object, NewShts As Long, shtCnt As Long

Set srcSht = ThisWorkbook.Sheets(2)

For NewShts = 1 To 5
shtCnt = ThisWorkbook.Sheets.Count
srcSht.Copy after:=ThisWorkbook.Sheets(shtCnt)
Set destSht = ThisWorkbook.Sheets(shtCnt + 1)
destSht.Name = "New Sht" & Format(NewShts, "00")
Next
Set srcSht = Nothing
Set destSht = Nothing

End Sub

очевидно, что может вас заинтересовать:

shtCnt = ThisWorkbook.Sheets.Count
srcSht.Copy after:=ThisWorkbook.Sheets(shtCnt)
Set destSht = ThisWorkbook.Sheets(shtCnt + 1)
destSht.Name = "New Sht" & Format(NewShts, "00")

а остальные – просто запустить демонстрацию.

вы можете делать вещи с еще меньшим количеством кода, но это не так приятно:

thisworkbook.sheets(2).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = "New Sht" & Format(NewShts, "00")

поэтому я предполагаю (но не могу подтвердить), что ваш код может быть написан как:

for ($i = 1; $i -le 3; $i++)
{
$wb.Worksheets(2).Copy(,$wb.Worksheets($wb.Worksheets.count))
$name = "Summary$i"
$wb.Worksheets($wb.Worksheets.count).Name = $name
}

просто обратите внимание, что синтаксис копирования:.copy([before], [after]) с опциями до и после. В vba следующие способы: .copy after:=ASheetObject или .copy ,aSheetObject

веселит