|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
26.10.2012, 10:57 | #41 |
Пользователь
Регистрация: 25.10.2012
Сообщений: 11
|
Казанский, простите, действительно не заметил. Буду пробовать.
|
26.10.2012, 11:06 | #42 |
Пользователь
Регистрация: 25.10.2012
Сообщений: 11
|
небольшая проблемка, перед каждым сохранением спрашивает : сохранить файл? Как это автоматизировать?
|
26.10.2012, 11:42 | #43 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
сбрасывайте десяток строк и файл с идентичной структурой.
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
26.10.2012, 12:01 | #44 |
Пользователь
Регистрация: 25.10.2012
Сообщений: 11
|
R Dmitry, да вроде все уже получилось. Итоговый скрипт выглядит так:
Код:
|
23.08.2016, 08:14 | #45 | |
Пользователь
Регистрация: 22.08.2016
Сообщений: 15
|
Цитата:
Подскажите пож как изменить строку s = Replace(ThisWorkbook.FullName, ".xls", "-" & (Fix(i / 500) + 1) & ".xls") чтобы имя каждого созданного файла соответствовало определенной ячейке в исходном файле (указаны уникальные значения). Например С9; С35; С61 и т.д., т.е в одном столбце через равное количество строк. Спасибо. |
|
23.08.2016, 08:37 | #46 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
23.08.2016, 08:42 | #47 |
Пользователь
Регистрация: 22.08.2016
Сообщений: 15
|
Спасибо! Буду пробовать!
|
23.08.2016, 09:33 | #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 |
|
23.08.2016, 09:43 | #49 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Какую?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
23.08.2016, 13:43 | #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 |