Excel - экспорт данных в другую электронную таблицу
Экспорт данных из одной электронной таблицы Excel в другую электронную таблицу всегда является проблемой, если вы хотите иметь такой же вид во второй. Довольно часто при экспорте файла из Интернета он сохраняется в новом файле, а не в существующем. Требуется так много времени, чтобы перенастроить его. Чтобы решить эту проблему, нужно использовать параметр данных - импорт внешних данных в Excel с новым веб-запросом, куда нужно вставить адрес веб-страницы . Затем, используя опцию импорта, можно выбрать правильный пункт назначения.![](//img.brin-designs.com/img/games/435/excel-exporting-data-another-spreadsheet.png)
![](http://img.brin-designs.com/img/games/435/excel-exporting-data-another-spreadsheet.png)
- вопрос
- Решение
- Обратите внимание, что
вопрос
- У меня есть запрос. Всякий раз, когда я экспортирую файл из Интернета, данные сохраняются в новый файл Excel вместо листа Excel, в котором я работаю. В результате мне приходится копировать данные из этого файла в файл Excel, в котором я работаю. Это очень много времени. Есть ли более короткий способ прямого экспорта данных в рабочий файл Excel?
- У меня есть другая отдельная проблема. Я записал макрос для определенного листа. Этот макрос делает две вещи. 1. Есть два цвета. Столбец A и столбец B. В столбце C он вычитает столбец A из B. 2. Он находит средневзвешенное значение между столбцами A и C.
Теперь я хочу запустить этот макрос во всех листах, кроме первого. Какой код для этого?
Решение
Для решения этой проблемы:
- Скопируйте адрес веб-страницы в буфер обмена Excel.
- Перейти на свой лист.
- Выберите любую ячейку, из которой вы хотите скопировать файл. например, А1.
- Нажмите data-import external data (или что-то подобное в зависимости от версии) - новый веб-запрос.
- В новом окне веб-запроса вставьте адрес веб-страницы вверху напротив «адреса».
- Нажмите на Go
- Вы получите всю веб-страницу. Какую бы таблицу вы ни выбрали, нажмите на галочку, и вся таблица будет помечена
- Нажмите «Импорт» в правом нижнем углу
- Он спросит, где вы хотите оставить его. Если это уже А1, нажмите ОК
Чтобы решить второй вопрос:
Sub test1 () Dim j As Integer, k As Integer j = Worksheets.Count 'MsgBox j For k = 1 To j' MsgBox Sheets (k). Имя если Sheets (k). k). Активируйте ИМЯ МАКРО.
Обратите внимание, что
Спасибо venkat1926 за этот совет на форуме.