макрос который будет сохранят результаты активного листа - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/макрос который будет сохранят результаты активного листа - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос который будет сохранят результаты активного листа (Макросы/Sub)

макрос который будет сохранят результаты активного листа

Дата: Понедельник, 01.12.2014, 16:03 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 0 ±

Замечаний: 60% ±

здравствуете у меня такая задача может поможете вопрос , как будет код макроса который будет сохранят результаты активного листа в другой книге который будет в тои же папкам

Hov

Сообщение отредактировал Hovo - Понедельник, 01.12.2014, 17:05

Ответить

Дата: Понедельник, 01.12.2014, 17:31 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 0 ±

Замечаний: 60% ±

я пробовал разные варианты но у меня ни чего не получается пожалуйста если возможно помогите разобраться с задачей

Hov

Ответить

Дата: Понедельник, 01.12.2014, 17:34 | Сообщение № 3

Группа: Проверенные

Ранг: Новичок

Сообщений: 35

Репутация: 8 ±

Замечаний: 0% ±

Excel 2010

Приложите пример файла с данными и детализируйте что нужно сохранять и с какими названиями.

irelandzp@gmail.com

Ответить

Дата: Понедельник, 01.12.2014, 18:07 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 0 ±

Замечаний: 60% ±

вот пожалуйста

К сообщению приложен файл: 0694379.xlsm (22.5 Kb)

Hov

Ответить

Дата: Понедельник, 01.12.2014, 19:10 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 0 ±

Замечаний: 60% ±

хот кто ни бут поможет мне

Hov

Ответить

Дата: Понедельник, 01.12.2014, 19:43 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 50

Репутация: 1 ±

Замечаний: 0% ±

Excel 2003

Цитата Hovo, 01.12.2014 в 19:10, в сообщении № 5

хот кто ни бут поможет мне

если честно, то я прочитал то, что вы написали. И ничего не понял.

Наверное я слишком глупый, так что советую вам подождать и набраться терпения - вам обязательно помогут.

Ответить

Дата: Понедельник, 01.12.2014, 19:48 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 19187

Репутация: 4421 ±

Замечаний: ±

Excel 365 & Mac Excel

Похожая тема с готовым решением

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Понедельник, 01.12.2014, 19:57 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 0 ±

Замечаний: 60% ±

точно такой но на отдельный файл в конкретный и чтобы не стиралось прадедушки например в книге 2 лист 1 ,лист 2 и.т.

Hov

Ответить

Дата: Понедельник, 01.12.2014, 20:11 | Сообщение № 9

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 0 ±

Замечаний: 60% ±

и оно еще копирует значки этого не нужна помогите пожалуйста

Hov

Ответить

Дата: Понедельник, 01.12.2014, 20:37 | Сообщение № 10

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 0 ±

Замечаний: 60% ±

вот оригинал

К сообщению приложен файл: 11.xlsm (45.4 Kb) · 12.xlsm (11.4 Kb)

Hov

Ответить

Дата: Понедельник, 01.12.2014, 21:25 | Сообщение № 11

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

[offtop]один я не понимаю автора?

skypro1111@gmail.com

Ответить

Дата: Понедельник, 01.12.2014, 21:47 | Сообщение № 12

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 0 ±

Замечаний: 60% ±

а что тут непонятно с книге 11 активный лист копируем на книгу 12 но не формулы а значения и каждая сохранение создает новую лист в книге12 то ист в книге 12 лист 1, лист 2,лист 3 ,лист 4 и.т.

Hov

Ответить

Дата: Понедельник, 01.12.2014, 23:11 | Сообщение № 13

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте. Есть листочек Excel, в который динамический поступают данные из сторонней программы с помощью DDE сервера, данные меняются(поступают) раз в секунду, и в то же время эти поступающие данные должны считываться программой написанной на Java, только проблема в том, что, программа которая считывает с Экселя не "видит" ежесекундных изменяющихся данных поступающий в этот лист и получается, что после каждого изменения (поспупления новых данных с интервалом в 1 секунду, нужно автоматически сохранять книгу экселя, для того, чтобы программа "читающая" данные с экселя увидела, то, что нужно, а не те данные, которые были в книге, до последнего сохранения. То есть нужно автосохранение с интервалом максимум в 0,5-1 секунду. Прицепом идут мысли о том, что при накоплении весомого количества данных, даже при технически "жирной" локальной машине время на само сохранение процессором быстро перевалит за нужный интервал (но это только предположения). Написать на VB почему то не получилось, попросту не работает, хотя код работоспособный. Подскажите, что не так, приложу сам код на VB:

"Sub Save()
#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#End If
Dim index As Boolean
index = True
Do While index = True
Application.Wait (Now + TimeValue("0:00:01"))
ActiveWorkbook.Save
Loop
End Sub
"
[moder]Зачем же засорять чужую тему? Читайте Правила форума, создавайте свою[/moder]

Здравствуйте. Есть листочек Excel, в который динамический поступают данные из сторонней программы с помощью DDE сервера, данные меняются(поступают) раз в секунду, и в то же время эти поступающие данные должны считываться программой написанной на Java, только проблема в том, что, программа которая считывает с Экселя не "видит" ежесекундных изменяющихся данных поступающий в этот лист и получается, что после каждого изменения (поспупления новых данных с интервалом в 1 секунду, нужно автоматически сохранять книгу экселя, для того, чтобы программа "читающая" данные с экселя увидела, то, что нужно, а не те данные, которые были в книге, до последнего сохранения. То есть нужно автосохранение с интервалом максимум в 0,5-1 секунду. Прицепом идут мысли о том, что при накоплении весомого количества данных, даже при технически "жирной" локальной машине время на само сохранение процессором быстро перевалит за нужный интервал (но это только предположения). Написать на VB почему то не получилось, попросту не работает, хотя код работоспособный. Подскажите, что не так, приложу сам код на VB:

"Sub Save()
#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#End If
Dim index As Boolean
index = True
Do While index = True
Application.Wait (Now + TimeValue("0:00:01"))
ActiveWorkbook.Save
Loop
End Sub
"
[moder]Зачем же засорять чужую тему? Читайте Правила форума, создавайте свою[/moder]GSV

Ответить

СообщениеЗдравствуйте. Есть листочек Excel, в который динамический поступают данные из сторонней программы с помощью DDE сервера, данные меняются(поступают) раз в секунду, и в то же время эти поступающие данные должны считываться программой написанной на Java, только проблема в том, что, программа которая считывает с Экселя не "видит" ежесекундных изменяющихся данных поступающий в этот лист и получается, что после каждого изменения (поспупления новых данных с интервалом в 1 секунду, нужно автоматически сохранять книгу экселя, для того, чтобы программа "читающая" данные с экселя увидела, то, что нужно, а не те данные, которые были в книге, до последнего сохранения. То есть нужно автосохранение с интервалом максимум в 0,5-1 секунду. Прицепом идут мысли о том, что при накоплении весомого количества данных, даже при технически "жирной" локальной машине время на само сохранение процессором быстро перевалит за нужный интервал (но это только предположения). Написать на VB почему то не получилось, попросту не работает, хотя код работоспособный. Подскажите, что не так, приложу сам код на VB:

"Sub Save()
#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#End If
Dim index As Boolean
index = True
Do While index = True
Application.Wait (Now + TimeValue("0:00:01"))
ActiveWorkbook.Save
Loop
End Sub
"
[moder]Зачем же засорять чужую тему? Читайте Правила форума, создавайте свою[/moder]

Автор - GSV
Дата добавления - 01.12.2014 в 23:11

Дата: Понедельник, 01.12.2014, 23:38 | Сообщение № 14

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 0 ±

Замечаний: 60% ±

кто ни будь может мне помоч

Hov

Ответить

Дата: Вторник, 02.12.2014, 10:38 | Сообщение № 15

Группа: Админы

Ранг: Местный житель

Сообщений: 19187

Репутация: 4421 ±

Замечаний: ±

Excel 365 & Mac Excel

Как умею

К сообщению приложен файл: 6734332.xlsm (23.4 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Четверг, 04.12.2014, 04:15 | Сообщение № 16

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 0 ±

Замечаний: 60% ±

огромная спасибо вам но ка знаток по экзелу оцените мое знанья я честно говоря 2 дня не спал и написал следующие код я до этого ничего не знал про vba

[vba]

Код

Sub copiall()

Cells.Select
Selection.Copy
Workbooks.Open Filename:="C:\Users\User\Desktop\MARAVILLA\maravila-data.xlsm"
Sheets.Add After:=Sheets(Sheets.Count)
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("A2").Select
Windows("maravilla-.xlsm").Activate
Range("A39").Select
Windows("maravila-data.xlsm").Activate
MsgBox "Готово!"
End Sub

[/vba]

Hov

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос который будет сохранят результаты активного листа (Макросы/Sub)

Страница 1 из 1
1

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!