Копировать данные в шаблон, который при закрытии сохраняется под именем взятым из этих данных

sum

Гость

21.06.2008 19:40:48

Есть два файла
"Рабочая книга" - данные.
"СПЕЦИФ"- шаблон.
Если с "Рабочей книги" скопировать данные,
и вставить в "Специф" (А1), а потом закрыть файл "Специф", то копия файла сохраниться в С:\Temp под именем составленным из В2 В5 В11...
В ручную получается все, но через макрос никак.
Макрос - Кнопка "сохранить" в "рабочей книге"
Помогите сделать КНОПКУ

Прикрепленные файлы

post_21398.rar (12.75 КБ)

Pavel55 Гость	#2 21.06.2008 22:33:12 Что-то я не понял, что вы хотите сделать... Вы хотите: 1) Скопировать диапазон A1:B15 из файла "Рабочая книга.xls" в файл "СПЕЦИФ.xlt" 2) Сохранить копию файла "СПЕЦИФ.xlt" в папке "C:\Temp\" с именем из ячеек B5, B11, B12, B13, B14 Так?

Pavel55

Гость

21.06.2008 22:45:20

Если так, то вставьте этот код в "Рабочую книгу"

Sub Макрос1()
Dim FilePath As String, Filename As String
Workbooks("Рабочая книга.xls").Sheets("Лист3").Range("A1:B15").Copy _
Destination:=Workbooks("СПЕЦИФ1").Sheets("Лист1").Range("A1")
FilePath = "C:\Temp\"
With Workbooks("СПЕЦИФ1").Sheets("Лист1")
Filename = .Range("B2") & " " & .Range("B5") & " " & .Range("B11") & " " & .Range("B12") & " " & .Range("B13") & " " & .Range("B14") & ".xls"
Workbooks("СПЕЦИФ1").SaveCopyAs Filename:=FilePath & Filename
End With
End Sub

sum

Гость

23.06.2008 19:12:03

Уважаемый Pfvel, у меня Ваш код выдает "Run-time error'9' subscript out of range". Нужно ли в коде прописывать пути к "(специф)".
Мне нужно чтобы
По нажатии Кнопки на (Лист3) "Рабочая книга"
1)Скопировался диапазон A1:B15 из файла "Рабочая книга.xls" 2)Открылся файл "СПЕЦИФ.xlt", вставились данные в этот файл.
3) Закрыть "СПЕЦИФ.xlt"
В файле "СПЕЦИФ.xlt" уже есть код, который при закрытии файла, сохраняет копию файла "СПЕЦИФ.xlt" в папке "C:\Temp\" с именем из ячеек B5, B11, B12, B13, B14 и раширением *.xls

sum Гость	#5 23.06.2008 19:33:21 Извиняюсь, убрал расширение все заработало. Большое спасибо. А где должен находиться шаблон "СПЕЦИФ"? - в шаблонах? - в тойже папке где и "Рабочая книга"? у меня просто несколько "Специф"

Артем

Гость

23.06.2008 19:52:01

да где хотите, главное адрес полный прописать в макросе.
Удобнее конечно, когда в той же папке, адрес проще определяется как application.path (удобнее тем, что не завит от корневого диска, можно перемещеть папку куда угодно)

Pavel55 Гость	#7 23.06.2008 20:05:47 А такой вариант вам не подойдёт? P.S. А зачем вам шаблон (*.xlt). Простой файл xls вам не подойдёт? Прикрепленные файлы post_21536.rar (13.72 КБ)

sum Гость	#8 23.06.2008 20:13:07 Поторопился... Работает только когда откыт шаблон "СПЕЦИФ" А нужно чтобы "СПЕЦИФ" сам открывался и закрывался после вставки данных. Прикрепленные файлы post_21538.rar (17.32 КБ)

Guest Гость	#9 23.06.2008 20:20:23 {quote}{login=Pavel55}{date=23.06.2008 08:05}{thema=}{post}А такой вариант вам не подойдёт? P.S. А зачем вам шаблон (*.xlt). Простой файл xls вам не подойдёт?{/post}{/quote} Еще раз Огромное СПАСИБО Pavel!!! Подошло замечательно. Шаблон нужен был для решения пункта 3) т.е. Сохранить файл с определенным именем в определенном месте. Вы сделали это проще! Спасибо.

Читают тему