Форум программистов, компьютерный форум, киберфорум
Наши страницы

MS Office Excel

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 37, средняя оценка - 4.84
xunderwaterx
0 / 0 / 0
Регистрация: 30.01.2013
Сообщений: 11
#1

Перенос информации из одного файла в другой файл - MS Excel

30.01.2013, 17:17. Просмотров 5331. Ответов 11
Метки нет (Все метки)

У меня есть два файла ексель(прайсы), в одном файле я вставлял в ячейку гиперссылку на сайт (сообственно на товар), а второй файл(прайс) созданый с нуля(новый) без гиперссылок (с некоторыми изминениями), мне нужно перекинуть текст с гиперсылками с первого прайса во второй, как это сделать? Garazh opt.xls - файл с ссылками, Monte-Carlo.opt.xls - новый прайс без ссылок.
0
Вложения
Тип файла: zip Downloads.zip (781.3 Кб, 82 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2013, 17:17
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перенос информации из одного файла в другой файл (MS Excel):

Перенос актуальной информации из одного файла в другой - MS Excel
Есть два файла Excel, в первом база магазина со старыми ценами, во втором база поставщика с актуальными ценами. Нужно исправить первый...

Перенос данных из одного файла Exel в другой файл Exel - MS Excel
Добрый день всем! Копался сам, но так и не нашел ответа. Вопрос следующий. Есть временный файл эксель(после работы с ним удаляется)....

Автоматический перенос данных с одного листа в другой (при появлении дополнительной информации) - MS Excel
Помогите пожалуйста! Необходимо чтобы все данные по каждому ученику из листа «Обучаются», при заполнении столбцов «№ протокола» и «дата...

Excel. Перенос значений с одного файла на другой - MS Excel
Доброго дня! С похожей темой уже сталкивались, но это не совсем тот случай. Есть файл А, с данными,заполненными ячейками. Файл...

Перенос с одного листа в другой - MS Excel
Доброго времени суток. Вопрос состоит в том как формулой перетянуть с листа 2 в лист 1 по категории, так чтобы совпадало клиент и адрес,...

Перенос из одного Листа в другой - MS Excel
Доброе время суток. Нужна Ваша помощь в решении задачи!! Нужно из Литса "Images Data" перенести картинки в колонку "Images" на Лист...

11
Все имена заняты
1243 / 402 / 46
Регистрация: 14.06.2009
Сообщений: 628
30.01.2013, 21:39 #2
Такой вариант. Обе книги должны быть открыты. Запуск макроса по Ctrl+q.
1
Вложения
Тип файла: zip Monte-Carlo.opt.zip (241.5 Кб, 222 просмотров)
xunderwaterx
0 / 0 / 0
Регистрация: 30.01.2013
Сообщений: 11
30.01.2013, 21:53  [ТС] #3
Как вы это сделали? Можно узнать?
0
Все имена заняты
1243 / 402 / 46
Регистрация: 14.06.2009
Сообщений: 628
30.01.2013, 21:56 #4
Через макрос. Код макроса можно в файле посмотреть.
0
xunderwaterx
0 / 0 / 0
Регистрация: 30.01.2013
Сообщений: 11
30.01.2013, 21:57  [ТС] #5
А где его смотреть?
0
Все имена заняты
1243 / 402 / 46
Регистрация: 14.06.2009
Сообщений: 628
30.01.2013, 22:02 #6
Alt+F11. Там слева увидите Module1.
0
xunderwaterx
0 / 0 / 0
Регистрация: 30.01.2013
Сообщений: 11
30.01.2013, 22:02  [ТС] #7
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Option Explicit
Sub test()
Dim wsh As Worksheet, cll As Range, dc, j As Long, hp As Hyperlink
Set dc = CreateObject("Scripting.Dictionary")
 
For Each wsh In Workbooks("Garazh opt").Worksheets
    For Each hp In wsh.Hyperlinks
        If hp.Range.Count = 1 Then
            If Not dc.exists(hp.Range.Value) Then
                dc.Add hp.Range.Value, hp.Address
            End If
        End If
    Next
Next wsh
 
 
For Each wsh In Workbooks("Monte-Carlo.opt").Worksheets
    Select Case wsh.Name
        Case "Автошины"
        j = 9
        Case "Автодиски"
        j = 2
    End Select
    For Each cll In wsh.UsedRange.Columns(j).Cells
        If dc.exists(cll.Value) Then
            cll.Hyperlinks.Add anchor:=cll, Address:=dc.Item(cll.Value)
        End If
    Next cll
Next wsh
 
End Sub

Это оно?
0
Все имена заняты
1243 / 402 / 46
Регистрация: 14.06.2009
Сообщений: 628
30.01.2013, 22:03 #8
Да.
0
xunderwaterx
0 / 0 / 0
Регистрация: 30.01.2013
Сообщений: 11
30.01.2013, 22:07  [ТС] #9
А если мне нужно будет постоянно такое делать, что мне нужно будет изменять в макросе? или можно просто нужно макрос в новый файл вставить?
0
Все имена заняты
1243 / 402 / 46
Регистрация: 14.06.2009
Сообщений: 628
30.01.2013, 22:14 #10
Если не будут меняться имена книг, имена листов и расположение столбцов, то, возможно, ничего менять не придется.
Другой вариант - немножко разобраться в макросе и менять его по необходимости.
0
xunderwaterx
0 / 0 / 0
Регистрация: 30.01.2013
Сообщений: 11
30.01.2013, 22:21  [ТС] #11
Ну я немного уже попрактиковался с макросом, вроде все норм! Спасибо вам огромное, а можно я если что буду к вам за помощью обращаться?
0
Все имена заняты
1243 / 402 / 46
Регистрация: 14.06.2009
Сообщений: 628
31.01.2013, 00:44 #12
Ну, не обязательно ко мне. Задавайте вопросы на форуме - здесь много разбирающихся людей.
Раздел по VBA (макросам) тут.

Добавлено через 2 часа 16 минут
Хотя я не учел, что на разных листах могут быть модели с одинаковыми названиями. И хоть там только одна такая позиция, но тем не менее.
Этот вариант следует запускать на каждом листе, обе книги должны быть открыты.
Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit
Sub test()
Dim wsh As Worksheet, cll As Range, dc, j As Long, hp As Hyperlink
Set dc = CreateObject("Scripting.Dictionary")
 
Set wsh = Workbooks("Garazh opt").Worksheets(ActiveSheet.Name)
 
For Each hp In wsh.Hyperlinks
    If hp.Range.Count = 1 Then
        If Not dc.exists(hp.Range.Value) Then
            dc.Add hp.Range.Value, hp.Address
        End If
    End If
Next
 
Set wsh = Workbooks("Monte-Carlo.opt").Worksheets(ActiveSheet.Name)
 
Select Case wsh.Name
    Case "ÀâòîøèГ*Г»"
    j = 9
    Case "Àâòîäèñêè"
    j = 2
End Select
For Each cll In wsh.UsedRange.Columns(j).Cells
    If dc.exists(cll.Value) Then
        cll.Hyperlinks.Add anchor:=cll, Address:=dc.Item(cll.Value)
    End If
Next cll
 
End Sub
1
31.01.2013, 00:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.01.2013, 00:44
Привет! Вот еще темы с ответами:

Перенос данных с одного листа на другой - MS Excel
Форум привет. Подскажите, как это загуглить или сделать. Дано: таблица с данными, пополняется вручную Требуется переносить эти данные...

Перенос данных с одного листа на другой - MS Excel
привет предыдущий созданный топик дал ответ только на один вопрос, поэтому создаю новый :) есть: лист есе с набором данных (поле...

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

Перенос данных с одного листа на другой! - MS Excel
Переношу данные с одного листа на другой.Hадо что бы не переносилось согласно колличества строк, а бралось по порядку.Kриплю пример что бы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru