Всем доброго вечера. У меня возникла такая проблема. Когда работал с версией Экселя 2003 сделал файл в который заносились данные из сторонней программы, в определенный лист определяемый этой программой. Я написал макрос который забирал данные с этого листа и переносил их в другой лист этой-же книге. Теперь пришло время когда мощности Экселя 2003 не хватает, пришлось перейти на Эксель 2007. Но сторонняя программа не может работать с Экселем 2007, и мне пришлось устанавливать обе версии Экселя. Таким образом сторонняя программа так-же вносит данные в файл версии Эксель 2003, макрос надо переписать в файле версии Эксель 2007 куда будут заноситься данные из файл версии Эксель 2003. Обе книги открыты. Так вот сам вопрос как это сделать?
Всем доброго вечера. У меня возникла такая проблема. Когда работал с версией Экселя 2003 сделал файл в который заносились данные из сторонней программы, в определенный лист определяемый этой программой. Я написал макрос который забирал данные с этого листа и переносил их в другой лист этой-же книге. Теперь пришло время когда мощности Экселя 2003 не хватает, пришлось перейти на Эксель 2007. Но сторонняя программа не может работать с Экселем 2007, и мне пришлось устанавливать обе версии Экселя. Таким образом сторонняя программа так-же вносит данные в файл версии Эксель 2003, макрос надо переписать в файле версии Эксель 2007 куда будут заноситься данные из файл версии Эксель 2003. Обе книги открыты. Так вот сам вопрос как это сделать?Guslykov
Что мешает в 2007 работать с файлом формата 2003 непонятно. Ну и какой ответ Вы ждёте, задавая вопрос типа: " У меня есть макрос, как его переписать?"
Что мешает в 2007 работать с файлом формата 2003 непонятно. Ну и какой ответ Вы ждёте, задавая вопрос типа: " У меня есть макрос, как его переписать?"Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Поясню. Есть две книги. 1 книга версии 2003 наз-ся ВВод.XLS. Вторая книга версии 2007 наз-ся Начало.XLSM. Макрос написан во втором файле. Когда пытаюсь взять данные из файла ВВод.XLS макрос не видит его и соответственно не может сделать его активным Workbooks("C:\ВВод.xls").Worksheets("Вход").Activate на этой строке выдает ошибку "9". Что я не так делаю?
Поясню. Есть две книги. 1 книга версии 2003 наз-ся ВВод.XLS. Вторая книга версии 2007 наз-ся Начало.XLSM. Макрос написан во втором файле. Когда пытаюсь взять данные из файла ВВод.XLS макрос не видит его и соответственно не может сделать его активным Workbooks("C:\ВВод.xls").Worksheets("Вход").Activate на этой строке выдает ошибку "9". Что я не так делаю?Guslykov
E = 3 A1: E = E + 1 Q = 7 A = Worksheets("Вход").Cells(E, 1) If A = "" Then GoTo A2 B = Worksheets("Вход").Cells(E, 2) C = Worksheets("Вход").Cells(E, 3) D = Worksheets("Вход").Cells(E, 4) A3: Q = Q + 4 If Worksheets("Ввод").Cells(Q, 1) = A Then Worksheets("Ввод").Cells(Q, 1) = A Worksheets("Ввод").Cells(Q, 2) = B Worksheets("Ввод").Cells(Q, 3) = C Worksheets("Ввод").Cells(Q, 4) = D Else If Worksheets("Ввод").Cells(Q, 1) = "" Then Q = Worksheets("Сектор").Cells(1, 1) Worksheets("Сектор").Cells(Q, 1) = A Worksheets("Сектор").Cells(Q, 2) = B Worksheets("Сектор").Cells(Q, 3) = C Worksheets("Сектор").Cells(Q, 4) = D Worksheets("Сектор").Cells(Q, 5) = Now Worksheets("Сектор").Cells(1, 1) = Worksheets("Сектор").Cells(1, 1) + 1 GoTo A1 Else End If GoTo A3 End If GoTo A1
[/vba] Т.Е. Данные из листа "вход" переносились в лист "Ввод". Как теперь в версии 2007 сделать чтобы данные из листа "Вход" книги "ВВод" версии Excel 2003 переносились в лист "Рус" книги "Начало" версии Excel 2007. Напомню что оба файла уже открыты каждый в своей версии Excel.
В старой версии я сделал так. [vba]
Код
E = 3 A1: E = E + 1 Q = 7 A = Worksheets("Вход").Cells(E, 1) If A = "" Then GoTo A2 B = Worksheets("Вход").Cells(E, 2) C = Worksheets("Вход").Cells(E, 3) D = Worksheets("Вход").Cells(E, 4) A3: Q = Q + 4 If Worksheets("Ввод").Cells(Q, 1) = A Then Worksheets("Ввод").Cells(Q, 1) = A Worksheets("Ввод").Cells(Q, 2) = B Worksheets("Ввод").Cells(Q, 3) = C Worksheets("Ввод").Cells(Q, 4) = D Else If Worksheets("Ввод").Cells(Q, 1) = "" Then Q = Worksheets("Сектор").Cells(1, 1) Worksheets("Сектор").Cells(Q, 1) = A Worksheets("Сектор").Cells(Q, 2) = B Worksheets("Сектор").Cells(Q, 3) = C Worksheets("Сектор").Cells(Q, 4) = D Worksheets("Сектор").Cells(Q, 5) = Now Worksheets("Сектор").Cells(1, 1) = Worksheets("Сектор").Cells(1, 1) + 1 GoTo A1 Else End If GoTo A3 End If GoTo A1
[/vba] Т.Е. Данные из листа "вход" переносились в лист "Ввод". Как теперь в версии 2007 сделать чтобы данные из листа "Вход" книги "ВВод" версии Excel 2003 переносились в лист "Рус" книги "Начало" версии Excel 2007. Напомню что оба файла уже открыты каждый в своей версии Excel.Guslykov
Сообщение отредактировал Pelena - Суббота, 01.10.2016, 20:07
Код надо в тег соответствующий помещать, и тут не видно как вы открываете вторую книгу. По коду получается, что данные в одной книге из листа в лист копируются.
Код надо в тег соответствующий помещать, и тут не видно как вы открываете вторую книгу. По коду получается, что данные в одной книге из листа в лист копируются.Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Udik, Код надо в тег соответствующий помещать простите не умею. Если подскажете как то я исправлюсь. Книги уже открыты каждая в своей версии. А код этот со старого файла. Я его привел чтоб показать как было. Сейчас попробую поместить в тег код который сейчас пытаюсь победить. [vba]
Код
Dim E 'Ñ÷åò÷èê Dim F 'Ñâîáîäåí 'Workbooks.Activate "C:\Äîïîëíåíèÿ\ÂÂîä.xls" Dim G 'Ñâîáîäåí 'Dim H 'Ñâîáîäåí 'Dim Q 'Ñ÷åò÷èê 'Dim W 'Ñâîáîäåí 'Dim R 'Ñâîáîäåí 'Dim T 'Ñâîáîäåí F = "Ðóñ" 'If Workbooks("Íà÷àëî").Worksheets(F).Cells(1, 1) = 0 Then GoTo Arm E = 3 A1: E = E + 1 'Q = 7 Workbooks("C:\Äîïîëíåíèÿ\ÂÂîä.xls").Worksheets("Âõîä").Activate A = Workbooks("ÂÂîä.xls").Sheets("Âõîä").Cells(E, 1) 'If A = "" Then GoTo A2 'B = Worksheets("Âõîä").Cells(E, 2) 'C = Worksheets("Âõîä").Cells(E, 3) 'D = Worksheets("Âõîä").Cells(E, 4) 'A3: 'Q = Q + 4 'If Worksheets("Ââîä").Cells(Q, 1) = A Then ' Worksheets("Ââîä").Cells(Q, 1) = A ' Worksheets("Ââîä").Cells(Q, 2) = B ' Worksheets("Ââîä").Cells(Q, 3) = C ' Worksheets("Ââîä").Cells(Q, 4) = D ' Else ' If Worksheets("Ââîä").Cells(Q, 1) = "" Then ' Q = Worksheets("Ñåêòîð").Cells(1, 1) ' Worksheets("Ñåêòîð").Cells(Q, 1) = A ' Worksheets("Ñåêòîð").Cells(Q, 2) = B ' Worksheets("Ñåêòîð").Cells(Q, 3) = C ' Worksheets("Ñåêòîð").Cells(Q, 4) = D ' Worksheets("Ñåêòîð").Cells(Q, 5) = Now ' Worksheets("Ñåêòîð").Cells(1, 1) = Worksheets("Ñåêòîð").Cells(1, 1) + 1 ' GoTo A1 ' Else ' End If ' GoTo A3 'End If 'GoTo A1
[/vba]
Udik, Код надо в тег соответствующий помещать простите не умею. Если подскажете как то я исправлюсь. Книги уже открыты каждая в своей версии. А код этот со старого файла. Я его привел чтоб показать как было. Сейчас попробую поместить в тег код который сейчас пытаюсь победить. [vba]
Код
Dim E 'Ñ÷åò÷èê Dim F 'Ñâîáîäåí 'Workbooks.Activate "C:\Äîïîëíåíèÿ\ÂÂîä.xls" Dim G 'Ñâîáîäåí 'Dim H 'Ñâîáîäåí 'Dim Q 'Ñ÷åò÷èê 'Dim W 'Ñâîáîäåí 'Dim R 'Ñâîáîäåí 'Dim T 'Ñâîáîäåí F = "Ðóñ" 'If Workbooks("Íà÷àëî").Worksheets(F).Cells(1, 1) = 0 Then GoTo Arm E = 3 A1: E = E + 1 'Q = 7 Workbooks("C:\Äîïîëíåíèÿ\ÂÂîä.xls").Worksheets("Âõîä").Activate A = Workbooks("ÂÂîä.xls").Sheets("Âõîä").Cells(E, 1) 'If A = "" Then GoTo A2 'B = Worksheets("Âõîä").Cells(E, 2) 'C = Worksheets("Âõîä").Cells(E, 3) 'D = Worksheets("Âõîä").Cells(E, 4) 'A3: 'Q = Q + 4 'If Worksheets("Ââîä").Cells(Q, 1) = A Then ' Worksheets("Ââîä").Cells(Q, 1) = A ' Worksheets("Ââîä").Cells(Q, 2) = B ' Worksheets("Ââîä").Cells(Q, 3) = C ' Worksheets("Ââîä").Cells(Q, 4) = D ' Else ' If Worksheets("Ââîä").Cells(Q, 1) = "" Then ' Q = Worksheets("Ñåêòîð").Cells(1, 1) ' Worksheets("Ñåêòîð").Cells(Q, 1) = A ' Worksheets("Ñåêòîð").Cells(Q, 2) = B ' Worksheets("Ñåêòîð").Cells(Q, 3) = C ' Worksheets("Ñåêòîð").Cells(Q, 4) = D ' Worksheets("Ñåêòîð").Cells(Q, 5) = Now ' Worksheets("Ñåêòîð").Cells(1, 1) = Worksheets("Ñåêòîð").Cells(1, 1) + 1 ' GoTo A1 ' Else ' End If ' GoTo A3 'End If 'GoTo A1
Dim E 'Ñ÷åò÷èê Dim F 'Ñâîáîäåí 'Workbooks.Activate "C:\Äîïîëíåíèÿ\ÂÂîä.xls" Dim G 'Ñâîáîäåí 'Dim H 'Ñâîáîäåí 'Dim Q 'Ñ÷åò÷èê 'Dim W 'Ñâîáîäåí 'Dim R 'Ñâîáîäåí 'Dim T 'Ñâîáîäåí F = "Ðóñ" 'If Workbooks("Íà÷àëî").Worksheets(F).Cells(1, 1) = 0 Then GoTo Arm E = 3 A1: E = E + 1 'Q = 7 Workbooks("C:\Äîïîëíåíèÿ\ÂÂîä.xls").Worksheets("Âõîä").Activate A = Workbooks("ÂÂîä.xls").Sheets("Âõîä").Cells(E, 1) 'If A = "" Then GoTo A2 'B = Worksheets("Âõîä").Cells(E, 2) 'C = Worksheets("Âõîä").Cells(E, 3) 'D = Worksheets("Âõîä").Cells(E, 4) 'A3: 'Q = Q + 4 'If Worksheets("Ââîä").Cells(Q, 1) = A Then ' Worksheets("Ââîä").Cells(Q, 1) = A ' Worksheets("Ââîä").Cells(Q, 2) = B ' Worksheets("Ââîä").Cells(Q, 3) = C ' Worksheets("Ââîä").Cells(Q, 4) = D ' Else ' If Worksheets("Ââîä").Cells(Q, 1) = "" Then ' Q = Worksheets("Ñåêòîð").Cells(1, 1) ' Worksheets("Ñåêòîð").Cells(Q, 1) = A ' Worksheets("Ñåêòîð").Cells(Q, 2) = B ' Worksheets("Ñåêòîð").Cells(Q, 3) = C ' Worksheets("Ñåêòîð").Cells(Q, 4) = D ' Worksheets("Ñåêòîð").Cells(Q, 5) = Now ' Worksheets("Ñåêòîð").Cells(1, 1) = Worksheets("Ñåêòîð").Cells(1, 1) + 1 ' GoTo A1 ' Else ' End If ' GoTo A3 'End If 'GoTo A1
[/vba]
[vba]
Код
Dim E 'Ñ÷åò÷èê Dim F 'Ñâîáîäåí 'Workbooks.Activate "C:\Äîïîëíåíèÿ\ÂÂîä.xls" Dim G 'Ñâîáîäåí 'Dim H 'Ñâîáîäåí 'Dim Q 'Ñ÷åò÷èê 'Dim W 'Ñâîáîäåí 'Dim R 'Ñâîáîäåí 'Dim T 'Ñâîáîäåí F = "Ðóñ" 'If Workbooks("Íà÷àëî").Worksheets(F).Cells(1, 1) = 0 Then GoTo Arm E = 3 A1: E = E + 1 'Q = 7 Workbooks("C:\Äîïîëíåíèÿ\ÂÂîä.xls").Worksheets("Âõîä").Activate A = Workbooks("ÂÂîä.xls").Sheets("Âõîä").Cells(E, 1) 'If A = "" Then GoTo A2 'B = Worksheets("Âõîä").Cells(E, 2) 'C = Worksheets("Âõîä").Cells(E, 3) 'D = Worksheets("Âõîä").Cells(E, 4) 'A3: 'Q = Q + 4 'If Worksheets("Ââîä").Cells(Q, 1) = A Then ' Worksheets("Ââîä").Cells(Q, 1) = A ' Worksheets("Ââîä").Cells(Q, 2) = B ' Worksheets("Ââîä").Cells(Q, 3) = C ' Worksheets("Ââîä").Cells(Q, 4) = D ' Else ' If Worksheets("Ââîä").Cells(Q, 1) = "" Then ' Q = Worksheets("Ñåêòîð").Cells(1, 1) ' Worksheets("Ñåêòîð").Cells(Q, 1) = A ' Worksheets("Ñåêòîð").Cells(Q, 2) = B ' Worksheets("Ñåêòîð").Cells(Q, 3) = C ' Worksheets("Ñåêòîð").Cells(Q, 4) = D ' Worksheets("Ñåêòîð").Cells(Q, 5) = Now ' Worksheets("Ñåêòîð").Cells(1, 1) = Worksheets("Ñåêòîð").Cells(1, 1) + 1 ' GoTo A1 ' Else ' End If ' GoTo A3 'End If 'GoTo A1
Так похоже меня скоро забанят с этими тегами. Блин тут с кодом бьешься, так еще и с этими тегами на сайте, круто, еще и сайт распадается ну воопще ништяк. Простите за такоую неразбериху пойду в другое место спасибо кто не молчал
Так похоже меня скоро забанят с этими тегами. Блин тут с кодом бьешься, так еще и с этими тегами на сайте, круто, еще и сайт распадается ну воопще ништяк. Простите за такоую неразбериху пойду в другое место спасибо кто не молчалGuslykov
макрос не видит его и соответственно не может сделать его активным Workbooks("C:\ВВод.xls").Worksheets("Вход").Activate на этой строке выдает ошибку "9". Что я не так делаю?
Я так понимаю, что книгу открытую в 2003, Вы пытаетесь активировать в 2007? Так не выйдет. Если же обе открыты в 2007, то уберите путь из названия: Workbooks("ВВод.xls").Worksheets("Вход").Activate
макрос не видит его и соответственно не может сделать его активным Workbooks("C:\ВВод.xls").Worksheets("Вход").Activate на этой строке выдает ошибку "9". Что я не так делаю?
Я так понимаю, что книгу открытую в 2003, Вы пытаетесь активировать в 2007? Так не выйдет. Если же обе открыты в 2007, то уберите путь из названия: Workbooks("ВВод.xls").Worksheets("Вход").ActivateKuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728