![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#41 |
Пользователь
Регистрация: 25.10.2012
Сообщений: 11
|
![]()
Казанский, простите, действительно не заметил. Буду пробовать.
|
![]() |
![]() |
![]() |
#42 |
Пользователь
Регистрация: 25.10.2012
Сообщений: 11
|
![]()
небольшая проблемка, перед каждым сохранением спрашивает : сохранить файл? Как это автоматизировать?
|
![]() |
![]() |
![]() |
#43 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
![]()
сбрасывайте десяток строк и файл с идентичной структурой.
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
![]() |
![]() |
![]() |
#44 |
Пользователь
Регистрация: 25.10.2012
Сообщений: 11
|
![]()
R Dmitry, да вроде все уже получилось. Итоговый скрипт выглядит так:
Код:
|
![]() |
![]() |
![]() |
#45 | |
Пользователь
Регистрация: 22.08.2016
Сообщений: 15
|
![]() Цитата:
Подскажите пож как изменить строку s = Replace(ThisWorkbook.FullName, ".xls", "-" & (Fix(i / 500) + 1) & ".xls") чтобы имя каждого созданного файла соответствовало определенной ячейке в исходном файле (указаны уникальные значения). Например С9; С35; С61 и т.д., т.е в одном столбце через равное количество строк. Спасибо. |
|
![]() |
![]() |
![]() |
#46 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
![]() Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
![]() |
![]() |
![]() |
#47 |
Пользователь
Регистрация: 22.08.2016
Сообщений: 15
|
![]()
Спасибо! Буду пробовать!
|
![]() |
![]() |
![]() |
#48 | |
Пользователь
Регистрация: 22.08.2016
Сообщений: 15
|
![]() Цитата:
Sub DivFile() Dim i As Long, s As String, ws As Worksheet Application.ScreenUpdating = False: Set ws = ActiveSheet For i = 1 To ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1 Step 26 Workbooks.Add xlWBATWorksheet: ws.Rows(i & ":" & i + 25).Copy [A1] s = Replace(ThisWorkbook.FullName, ".xls", "-C" & i & ".xls") ActiveWorkbook.SaveAs s: ActiveWorkbook.Close Next End Sub |
|
![]() |
![]() |
![]() |
#49 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
![]()
Какую?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
![]() |
![]() |
![]() |
#50 |
Пользователь
Регистрация: 22.08.2016
Сообщений: 15
|
![]()
При запуске макроса ничего не происходит.
При входе в макрос желтым выделяет строку ActiveWorkbook.SaveAs s: ActiveWorkbook.Close |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа разделения экрана на несколько частей | ArtInt | Софт | 8 | 14.05.2012 10:29 |
Файл в несколько терабайт в архиве. | Alex Cones | Свободное общение | 28 | 01.03.2010 17:08 |
Разбить Bitmap на несколько частей | apromix | Мультимедиа в Delphi | 4 | 24.02.2010 11:26 |
Можно ли разделить сразу несколько цифр на одно и тоже число? | Xell | Microsoft Office Excel | 2 | 12.01.2009 13:32 |
Как добавить в файл несколько строк?! | zotox | Помощь студентам | 4 | 11.09.2008 22:32 |