Копирование модуля макроса в другую книгу
Если книга содержит макрос Visual Basic для приложений(VBA),который вы хотите использовать в другом месте, вы можете скопировать модуль, содержащий этот макрос, в другую открытую книгу с помощью редактора Visual Basic(VBE).
Макросы и средства VBA находятся на вкладке Разработчик, которая по умолчанию скрыта, поэтому сначала нужно включить ее.
- Чтобы Windows, перейдите в меню Параметры >>Настроить ленту.
- Для Macперейдите на Excel >параметры. >ленты & панели инструментов.
- Затем в разделе Настройка ленты в разделе Основные вкладкиубедитесь в том, что в разделе Разработчик.
Общие сведения о макросах и VBA
Если вы не знакомы с макросами и VBA в целом, вам могут пригодиться следующие сведения:
- Макрос — это действие или набор действий, которые можно использовать для автоматизации задач.
- Макрос можно записать с помощью команды Запись макроса на вкладке Разработчик.
- Макрос записуется на языке программирования VBA.
- Вы можете проверить и изменить макрос в редакторе Visual Basic, которое открывается Excel. Вот пример окна VBE для Windows:
Макрос с именами MakeCellGreen и SetRowHeight находится в модуле Module1,который хранится в книге Book1.
Копирование модуля из одной книги в другую
- Откройте книгу, содержаную макрос, который вы хотите скопировать, и книгу, в которую вы хотите его скопировать.
- На вкладке Разработчик щелкните Visual Basic, чтобы открыть редактор Visual Basic редактора.
- В редакторе Visual Basic меню Вид выберите Project проводник или нажмите CTRL+R .
- В области Project проводника перетащите модуль, содержащий макрос, который нужно скопировать в 9-ю книгу. В этом случае мы копируете Module1 из Book2.xlsm в Book1.xlsm.
- Модуль1, скопирован из Book2.xlsm
- Копия модуля1, скопированная в Book1.xlsm
Дополнительные сведения
Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.
О передаче макросов другим пользователям
Если ваши коллеги или знакомые пользуются какими-либо макросами, автоматизирующими часто повторяемые действия или решающими специфические задачи в документах Word, то имеет смысл взять на вооружение такой макрос и использовать его на своем компьютере для своих нужд. Но здесь возникает вопрос: как перенести этот макрос в свои документы (шаблоны)?
Первый способ – воспользоваться диалоговым окном Организатор и скопировать модуль с макросами из одного документа (шаблона) в другой документ, который затем будет передан пользователю.
Здесь следует отметить, что автоматически создаваемые макросы в редакторе Word записываются в стандартный модуль NewMacros глобального (общего) шаблона Normal.dot. Этот модуль может содержать большое количество макросов для самых различных манипуляций с текстом.
Чтобы воспользоваться этим способом выполните следующие действия.
Если вы не хотите передавать все макросы, содержащиеся в модуле NewMacros, а только некоторые из них, то имеет смысл создать отдельный модуль и уже в него включить необходимые для передачи макросы.
Чтобы воспользоваться этим способом, сначала следует открыть редактор Word с документом, содержащим ваши макросы, а затем открыть редактор Visual Basic с помощью сочетания клавиш «Alt»+«F11».
В открывшемся окне редактора кода макрокоманд будут отображаться несколько окон: Окно проектов (Project Explorer), Окно свойств (Properties Window) и, если доступно, то и окно кода:
В окне проектов вы можете видеть различные модули, объединенные в группу Modules. Именно в этой группе в шаблоне Normal.dot и создается стандартный модуль NewMacros.
В окне свойств отображаются доступные для редактирования свойства модулей. Выделив в окне проектов нужный модуль и перейдя в окно свойств можно переименовать этот модуль, дважды щелкнув мышью на поле Name.
Чтобы создать новый модуль, в меню Insert выберите команду Module . В группе Modules будет создан новый модуль с типовым названием Module1, и откроется окно кода с мигающим курсором ввода.
Перейдите на окно свойств и дважды щелкните мышью по полю Name. Типовое наименование модуля выделиться и вы можете переименовать модуль.
Чтобы скопировать во вновь созданный модуль нужные макросы, просто скопируйте коды нужных макросов в буфер обмена и вставьте их в ваш модуль.
После этого можно закрыть окно редактора VB и повторить действия по переносу нужного модуля с макросами из одного документа в другой.
И третий способ переноса макросов в другие документы – экспорт и импорт модулей.
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 250 бесплатных шаблонов для MS Office
- 3 способа очистки списка недавно открытых документов
- Microsoft Office: популярные команды на одной вкладке
- Ribbon XML Editor — программа редактирования интерфейса Word 2007, 2010
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 — решение проблемы с отображением символов на линейке
- Автоматизация текстового набора в Word
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое сохранение всех открытых документов
- Автоматическое сохранение документа при его закрытии
- Автотекст и Word 2007
- Автотекст с последовательной нумерацией
- Белый текст на синем фоне в Word 2007
- Белый текст на синем фоне: ностальгия по DOS
- Быстрая смена ориентации страниц документа
- Быстрая смена регистра букв (слов) или их размеров
- Быстрое изменение стиля форматирования текста
- Быстрое создание нового документа на основе шаблона
- Быстрый доступ к диалоговому окну Параметры страницы
- Быстрый доступ к папке с шаблонами Word
- Ввод повторяющихся фрагментов текста в Word 2007
Как перенести макрос из одного файла в другой excel
Помогите пожалуйста.
Очень нужен макрос, но нет опыта в написании. Автоматическим макросом не получается выполнить все требования.
Суть в чем: есть два файла – форма 1 и форма 2 (общий список) Необходимо данные из файла №1 перенести в общий список (Форма 2). Файл 1 всегда стандартный, меняется только данные.
Алгоритм такой: Сначала копируется в форму 2 номер исполнительного листа, если он уже есть в списке, то находит эту строку и меняет ее, если нет в списке – с новой строки создает запись. Далее в эту строку подтягивает все остальные данные с формы 1 (ФИО, основной долг, удержания….все по таблице). В конце строки вставляет текущую дату.
Не могу понять как это все сотворить, помогите у кого есть возможность и знания
Помогите пожалуйста.
Очень нужен макрос, но нет опыта в написании. Автоматическим макросом не получается выполнить все требования.
Суть в чем: есть два файла – форма 1 и форма 2 (общий список) Необходимо данные из файла №1 перенести в общий список (Форма 2). Файл 1 всегда стандартный, меняется только данные.
Алгоритм такой: Сначала копируется в форму 2 номер исполнительного листа, если он уже есть в списке, то находит эту строку и меняет ее, если нет в списке – с новой строки создает запись. Далее в эту строку подтягивает все остальные данные с формы 1 (ФИО, основной долг, удержания….все по таблице). В конце строки вставляет текущую дату.
Не могу понять как это все сотворить, помогите у кого есть возможность и знания Omeg
К сообщению приложен файл: _1.xlsx (10.7 Kb) · _2—.xlsx (35.6 Kb)
Сообщение отредактировал Pelena — Четверг, 17.01.2013, 16:51
Сообщение Помогите пожалуйста.
Очень нужен макрос, но нет опыта в написании. Автоматическим макросом не получается выполнить все требования.
Суть в чем: есть два файла – форма 1 и форма 2 (общий список) Необходимо данные из файла №1 перенести в общий список (Форма 2). Файл 1 всегда стандартный, меняется только данные.
Алгоритм такой: Сначала копируется в форму 2 номер исполнительного листа, если он уже есть в списке, то находит эту строку и меняет ее, если нет в списке – с новой строки создает запись. Далее в эту строку подтягивает все остальные данные с формы 1 (ФИО, основной долг, удержания….все по таблице). В конце строки вставляет текущую дату.
Не могу понять как это все сотворить, помогите у кого есть возможность и знания Автор — Omeg
Дата добавления — 17.01.2013 в 16:37
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Добрый вечер, уважаемый Omeg!
Пометте цветом, пожалуйста, блоки формы, количество строк в которых может изменятся. Или же форма неизменна ни по строкам ни по столбцам?
Добрый вечер, уважаемый Omeg!
Пометте цветом, пожалуйста, блоки формы, количество строк в которых может изменятся. Или же форма неизменна ни по строкам ни по столбцам? GWolf
Сообщение Добрый вечер, уважаемый Omeg!
Пометте цветом, пожалуйста, блоки формы, количество строк в которых может изменятся. Или же форма неизменна ни по строкам ни по столбцам? Автор — GWolf
Дата добавления — 17.01.2013 в 18:03
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Добрый вечер, уважаемый GWolf!
Пометил строки, количество которых может изменяться. Если это сильно осложняет положение, можно количество полей оставить в таком виде)
Спасибо что откликнулись, два дня сижу с книгой по VBA, но опыта нет, до этого не приходилась делать такие задачи. Очень трудно сразу сообразить что к чему((
Добрый вечер, уважаемый GWolf!
Пометил строки, количество которых может изменяться. Если это сильно осложняет положение, можно количество полей оставить в таком виде)
Спасибо что откликнулись, два дня сижу с книгой по VBA, но опыта нет, до этого не приходилась делать такие задачи. Очень трудно сразу сообразить что к чему(( Omeg
К сообщению приложен файл: 0058050.xlsx (10.8 Kb)
Сообщение Добрый вечер, уважаемый GWolf!
Пометил строки, количество которых может изменяться. Если это сильно осложняет положение, можно количество полей оставить в таком виде)
Спасибо что откликнулись, два дня сижу с книгой по VBA, но опыта нет, до этого не приходилась делать такие задачи. Очень трудно сразу сообразить что к чему(( Автор — Omeg
Дата добавления — 17.01.2013 в 19:14
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Доброй ночи, уважаемый Omeg!
Пока ждал от Вас ответа, набросал макрос для неизменного количества строк в файле-источнике:
Sub AddToBase_Щелкнуть()
‘
Dim tPath As String
Dim wbOp As Object
Dim stroka As String
Dim flag As Boolean
Dim P_familija As String, P_imja As String, P_otcestwo As String
Dim P_NomIspList As String
Dim P_SumOsnDolg As String, P_SumUderj As String, P_SumPerecisl As String
P_familija = «» ‘- Фамилия
P_imja = «» ‘- Имя
P_otcestwo = «» ‘- Отчество
P_NomIspList = «» ‘- Номер исполнительного листа
P_SumOsnDolg = «» ‘- Сумма основного долга —> Начальный баланс
P_SumUderj = «» ‘- Сумма удержанная
P_SumPerecisl = «» ‘- Сумма начисленная
‘заполним переменные значениями
With ThisWorkbook.ActiveSheet
P_familija = .Cells(5, 1).Text
P_imja = .Cells(6, 1).Text
P_otcestwo = .Cells(7, 1).Text
P_NomIspList = .Cells(10, 1).Text
P_SumOsnDolg = .Cells(12, 3).Text
P_SumUderj = .Cells(31, 2).Text
P_SumPerecisl = .Cells(31, 4).Text
End With
‘откроем файл-приемник
‘— определим путь к файлу-приемнику и, если он лежит в той же папке, что и _
файл-источник, то путь определяем при помощи .Path
tPath = «»
tPath = ThisWorkbook.Path
‘открываем файл-приемник с занесением его в объектную переменную
Set wbOp = Workbooks.Open(Filename:=tPath & «\_2—.xlsm»)
With wbOp ‘- в файле-приемнике
With .Worksheets(«Лист1») ‘- на листе «Лист1»
flag = False ‘- значение флага для результата поиска
nR = 5 ‘- стартовое значение счетчика (№ строки начала поиска)
Do ‘- «бежать по кругу пока не .
stroka = .Cells(nR, 5).Value ‘- в переменную stroka значение из текущей строки
If stroka = P_NomIspList Then ‘- если значение переменной = значение P_NomIspList (эталона), то
flag = True ‘- флаг в ИСТИНА
Exit Do ‘- прервать цикл
End If
nR = nR + 1 ‘- изменение значения счетчика строк
Loop While .Cells(nR, 1).Text <> «» ‘. будет ячейка пуста
‘после того как цикл прерван или завершился, анализируем флаг
If flag = True Then ‘- нашли совпадающий
With .Cells(nR, 6) ‘- Начальный баланс
.NumberFormat = «#,##0.00_ ;[Red]-#,##0.00 »
.Value = P_SumOsnDolg
End With
With .Cells(nR, 7) ‘- Сумма удержанная
.NumberFormat = «#,##0.00_ ;[Red]-#,##0.00 »
.Value = P_SumUderj
End With
With .Cells(nR, 8) ‘- Сумма перечисленная
.NumberFormat = «#,##0.00_ ;[Red]-#,##0.00 »
.Value = P_SumPerecisl
End With
With .Cells(nR, 9) ‘- Остаток долга
.NumberFormat = «#,##0.00_ ;[Red]-#,##0.00 »
.Value = CStr(CDbl(P_SumOsnDolg) + CDbl(P_SumUderj) — CDbl(P_SumPerecisl)) ‘- Остаток долга
End With
.Cells(nR, 10) = Date ‘- Дата
Else ‘- не нашли совпадающий
.Cells(nR, 1) = .Cells(nR — 1, 1).Value + 1 ‘- № п.п.
.Cells(nR, 2) = P_familija ‘- Фамилия
.Cells(nR, 3) = P_imja ‘- Имя
.Cells(nR, 4) = P_otcestwo ‘- Отчество
.Cells(nR, 5) = P_NomIspList ‘- Номер исполнительного листа
With .Cells(nR, 6) ‘- Начальный баланс
.NumberFormat = «#,##0.00_ ;[Red]-#,##0.00 »
.Value = P_SumOsnDolg
End With
With .Cells(nR, 7) ‘- Сумма удержанная
.NumberFormat = «#,##0.00_ ;[Red]-#,##0.00 »
.Value = P_SumUderj
End With
With .Cells(nR, 8) ‘- Сумма перечисленная
.NumberFormat = «#,##0.00_ ;[Red]-#,##0.00 »
.Value = P_SumPerecisl
End With
With .Cells(nR, 9) ‘- Остаток долга
.NumberFormat = «#,##0.00_ ;[Red]-#,##0.00 »
.Value = CStr(CDbl(P_SumOsnDolg) + CDbl(P_SumUderj) — CDbl(P_SumPerecisl)) ‘- Остаток долга
End With
.Cells(nR, 10) = Date ‘- Дата
End If
End With
nR = 0 ‘- обнуляем счетчик
‘закроем файл-приемник с сохранением
.Close SaveChanges:=True
End With
Set wbOp = Nothing ‘- чистим объектную переменную
‘очистим значения переменных
P_familija = «»
P_imja = «»
P_otcestwo = «»
P_NomIspList = «»
P_SumOsnDolg = «»
P_SumUderj = «»
P_SumPerecisl = «»
End Sub
полагаю, что в виду того, что Вы
Цитата ( Omeg )
два дня сижу с книгой по VBA, но опыта нет, до этого не приходилась делать такие задачи. Очень трудно сразу сообразить что к чему
мой труд не будет бесполезен. Для случая с изменяющимися координатами «Итого начислено» и «Итого удержано» код будет несколько другим. Если будете иметь немного терпения то я таки и его Вам напишу!
С уважением GWolf.
Доброй ночи, уважаемый Omeg!
Пока ждал от Вас ответа, набросал макрос для неизменного количества строк в файле-источнике:
Sub AddToBase_Щелкнуть()
‘
Dim tPath As String
Dim wbOp As Object
Dim stroka As String
Dim flag As Boolean
Dim P_familija As String, P_imja As String, P_otcestwo As String
Dim P_NomIspList As String
Dim P_SumOsnDolg As String, P_SumUderj As String, P_SumPerecisl As String
P_familija = «» ‘- Фамилия
P_imja = «» ‘- Имя
P_otcestwo = «» ‘- Отчество
P_NomIspList = «» ‘- Номер исполнительного листа
P_SumOsnDolg = «» ‘- Сумма основного долга —> Начальный баланс
P_SumUderj = «» ‘- Сумма удержанная
P_SumPerecisl = «» ‘- Сумма начисленная
‘заполним переменные значениями
With ThisWorkbook.ActiveSheet
P_familija = .Cells(5, 1).Text
P_imja = .Cells(6, 1).Text
P_otcestwo = .Cells(7, 1).Text
P_NomIspList = .Cells(10, 1).Text
P_SumOsnDolg = .Cells(12, 3).Text
P_SumUderj = .Cells(31, 2).Text
P_SumPerecisl = .Cells(31, 4).Text
End With
‘откроем файл-приемник
‘— определим путь к файлу-приемнику и, если он лежит в той же папке, что и _
файл-источник, то путь определяем при помощи .Path
tPath = «»
tPath = ThisWorkbook.Path
‘открываем файл-приемник с занесением его в объектную переменную
Set wbOp = Workbooks.Open(Filename:=tPath & «\_2—.xlsm»)
With wbOp ‘- в файле-приемнике
With .Worksheets(«Лист1») ‘- на листе «Лист1»
flag = False ‘- значение флага для результата поиска
nR = 5 ‘- стартовое значение счетчика (№ строки начала поиска)
Do ‘- «бежать по кругу пока не .
stroka = .Cells(nR, 5).Value ‘- в переменную stroka значение из текущей строки
If stroka = P_NomIspList Then ‘- если значение переменной = значение P_NomIspList (эталона), то
flag = True ‘- флаг в ИСТИНА
Exit Do ‘- прервать цикл
End If
nR = nR + 1 ‘- изменение значения счетчика строк
Loop While .Cells(nR, 1).Text <> «» ‘. будет ячейка пуста
‘после того как цикл прерван или завершился, анализируем флаг
If flag = True Then ‘- нашли совпадающий
With .Cells(nR, 6) ‘- Начальный баланс
.NumberFormat = «#,##0.00_ ;[Red]-#,##0.00 »
.Value = P_SumOsnDolg
End With
With .Cells(nR, 7) ‘- Сумма удержанная
.NumberFormat = «#,##0.00_ ;[Red]-#,##0.00 »
.Value = P_SumUderj
End With
With .Cells(nR, 8) ‘- Сумма перечисленная
.NumberFormat = «#,##0.00_ ;[Red]-#,##0.00 »
.Value = P_SumPerecisl
End With
With .Cells(nR, 9) ‘- Остаток долга
.NumberFormat = «#,##0.00_ ;[Red]-#,##0.00 »
.Value = CStr(CDbl(P_SumOsnDolg) + CDbl(P_SumUderj) — CDbl(P_SumPerecisl)) ‘- Остаток долга
End With
.Cells(nR, 10) = Date ‘- Дата
Else ‘- не нашли совпадающий
.Cells(nR, 1) = .Cells(nR — 1, 1).Value + 1 ‘- № п.п.
.Cells(nR, 2) = P_familija ‘- Фамилия
.Cells(nR, 3) = P_imja ‘- Имя
.Cells(nR, 4) = P_otcestwo ‘- Отчество
.Cells(nR, 5) = P_NomIspList ‘- Номер исполнительного листа
With .Cells(nR, 6) ‘- Начальный баланс
.NumberFormat = «#,##0.00_ ;[Red]-#,##0.00 »
.Value = P_SumOsnDolg
End With
With .Cells(nR, 7) ‘- Сумма удержанная
.NumberFormat = «#,##0.00_ ;[Red]-#,##0.00 »
.Value = P_SumUderj
End With
With .Cells(nR, 8) ‘- Сумма перечисленная
.NumberFormat = «#,##0.00_ ;[Red]-#,##0.00 »
.Value = P_SumPerecisl
End With
With .Cells(nR, 9) ‘- Остаток долга
.NumberFormat = «#,##0.00_ ;[Red]-#,##0.00 »
.Value = CStr(CDbl(P_SumOsnDolg) + CDbl(P_SumUderj) — CDbl(P_SumPerecisl)) ‘- Остаток долга
End With
.Cells(nR, 10) = Date ‘- Дата
End If
End With
nR = 0 ‘- обнуляем счетчик
‘закроем файл-приемник с сохранением
.Close SaveChanges:=True
End With
Set wbOp = Nothing ‘- чистим объектную переменную
‘очистим значения переменных
P_familija = «»
P_imja = «»
P_otcestwo = «»
P_NomIspList = «»
P_SumOsnDolg = «»
P_SumUderj = «»
P_SumPerecisl = «»
End Sub
полагаю, что в виду того, что Вы
Цитата ( Omeg )
два дня сижу с книгой по VBA, но опыта нет, до этого не приходилась делать такие задачи. Очень трудно сразу сообразить что к чему
мой труд не будет бесполезен. Для случая с изменяющимися координатами «Итого начислено» и «Итого удержано» код будет несколько другим. Если будете иметь немного терпения то я таки и его Вам напишу!
С уважением GWolf. GWolf
К сообщению приложен файл: _1.xlsm (32.1 Kb) · _2-.xlsm (33.4 Kb)
Путей к вершине множество. Этот один из многих.
Импорт и экспорт текстовых файлов (в формате TXT или CSV)
Импортировать данные из текстового файла в Excel можно двумя способами: открыть их в Excel или импортировать как диапазон внешних данных. Чтобы экспортировать данные из Excel в текстовый файл, воспользуйтесь командой Сохранить как и измените тип файла в меню.
Чаще всего используются два формата текстовых файлов:
- текстовые файлы с разделителями (TXT), в которых для разделения полей текста обычно используется знак табуляции (знак ASCII с кодом 009);
- текстовые файлы с разделителями-запятыми (CSV), в которых в качестве разделителя полей текста обычно используется запятая (,).
Вы можете изменить знак разделения, используемый в TXT- и CSV-файлах. Это может потребоваться для обеспечения успешного выполнения импорта и экспорта.
Примечание: Можно импортировать и экспортировать до 1 048 576 строк и 16 384 столбцов.
Импорт текстового файла путем его открытия в Excel
Текстовый файл, созданный в другой программе, можно открыть как книгу Excel с помощью команды Открыть. При открытии текстового файла в Excel его формат не изменяется — это можно заметить по заголовку окна Excel, где имя указывается с расширением текстового файла (например, TXT или CSV).
- Перейдите в >открыть и перейдите в папку с текстовым файлом.
- В диалоговом окне Открытие выберите текстовые файлы в списке тип файла.
- Найдите нужный файл и дважды щелкните его.
- Если это текстовый файл (с расширением ТХТ), запустится мастер импорта текста. Окончив работу с мастером, нажмите кнопку Готово, чтобы завершить импорт. Дополнительные сведения о разных вариантах и дополнительных параметрах см. в мастере импорта текста.
- Если файл имеет расширение CSV, Excel автоматически откроет его и отобразит данные в новой книге.
Примечание: При открытии CSV-файлов для определения способа импорта каждого столбца используются заданные по умолчанию параметры форматирования данных. Если вы хотите применить другие параметры, используйте мастер импорта текста. Например, мастер потребуется, если столбец данных в CSV-файле имеет формат МДГ, а в Excel по умолчанию используется формат ГМД или необходимо преобразовать в текст столбец чисел, содержащих начальные нули, чтобы сохранить их. Чтобы принудительно запустить мастер импорта текста, можно изменить расширение имени файла с CSV на TXT или импортировать текстовый файл путем подключения к нем (дополнительные сведения см. в следующем разделе).
Импорт текстового файла путем подключения к нем (Power Query)
Вы можете импортировать данные из текстового файла в существующий.
- На вкладке Данные в группе & преобразование данных выберите из текстового/CSV-документа.
- В диалоговом окне Импорт данных найдите и дважды щелкните текстовый файл, который нужно импортировать,и нажмите кнопку Импорт.
- В диалоговом окне предварительного просмотра есть несколько вариантов:
- Выберите Загрузить, если вы хотите загрузить данные непосредственно на новый.
- Кроме того, выберите загрузить в, если вы хотите загрузить данные в таблицу, в смету или на существующий или новый листа Excel, или просто создать подключение. Вы также можете добавить данные в модель данных.
- Выберите Преобразовать данные, если вы хотите загрузить данные в Power Query и отредактировать их перед их преобразованием в Excel.
Если Excel не преобразует определенный столбец данных в нужный формат, их можно преобразовать после импорта. Дополнительные сведения см. в статьях Преобразование чисел из текстового формата в числовой и Преобразование дат из текстового формата в формат даты.
Экспорт данных в текстовый файл путем его сохранения
Лист Excel можно преобразовать в текстовый файл, используя команду Сохранить как.
- Выберите Файл >Сохранить как.
- Нажмите кнопку Обзор.
- В диалоговом окне Сохранить как в поле Тип файла выберите формат текстового файла для этого документа. Например, щелкните Текст (с табу женой) или CSV (сзапятой).
Примечание: Различные форматы текстовых файлов поддерживают разные возможности. Дополнительные сведения см. в статье Поддерживаемые Excel форматы файлов.
Дополнительные сведения о сохранении файлов в других форматах см. в статье Сохранение книги в другом формате файла.
Импорт текстового файла путем подключения к нему
Вы можете импортировать данные из текстового файла в существующий.
- Щелкните ячейку, в которую вы хотите поместить данные из текстового файла.
- На вкладке Данные в группе Получение внешних данных нажмите Из текста.
- В диалоговом окне Импорт данных найдите и дважды щелкните текстовый файл, который нужно импортировать,и нажмите кнопку Импорт. Следуйте инструкциям мастера импорта текста. Щелкните на любой странице мастера импорта текста, чтобы получить дополнительные сведения об использовании мастера. Окончив работу с мастером, нажмите кнопку Готово, чтобы завершить импорт.
- В диалоговом окне Импорт данных:
- В группе Куда следует поместить данные? выполните одно из следующих действий:
- Чтобы поместить данные в выбранные ячейки, щелкните На существующий лист.
- Чтобы поместить данные в верхний левый угол нового листа, выберите вариант На новый лист.
- При необходимости нажмите кнопку Свойства, чтобы задать параметры обновления, форматирования и макета импортируемых данных.
- Нажмите кнопку ОК. Excel добавит диапазон внешних данных в указанное место.
Если Excel не преобразует столбец в необходимый формат, это можно сделать после импорта. Дополнительные сведения см. в статьях Преобразование чисел из текстового формата в числовой и Преобразование дат из текстового формата в формат даты.
Экспорт данных в текстовый файл путем его сохранения
Лист Excel можно преобразовать в текстовый файл, используя команду Сохранить как.
- Выберите Файл >Сохранить как.
- Откроется диалоговое окно Сохранение документа.
- В поле Тип файла выберите формат текстового файла для листа.
- Например, выберите Текстовые файлы (с разделителями табуляции) или CSV (разделители — запятые).
Примечание: Различные форматы текстовых файлов поддерживают разные возможности. Дополнительные сведения см. в статье Поддерживаемые Excel форматы файлов.
Дополнительные сведения о сохранении файлов в других форматах см. в статье Сохранение книги в другом формате файла.
Изменение деления, используемого при импорте текстового файла
Способ изменения деления при импорте зависит от того, как вы импортируете текст.
- Если вы используете get & Transform Data > From Text/CSV, после выбора текстового файла и нажатия кнопки Импорт выберитесимвол, который нужно использовать в списке . Новый вариант можно сразу же увидеть в окне предварительного просмотра данных, чтобы убедиться в том, что вы сделаете нужный вариант, прежде чем продолжить.
- Если вы импортируете текстовый файл с помощью мастера импорта текста, вы можете изменить его на шаге 2 мастера импорта текста. На этом шаге также можно изменить способ обработки последовательных разделителей (например, идущих подряд кавычек). Дополнительные сведения о разных вариантах и дополнительных параметрах см. в мастере импорта текста.
Изменение стандартного разных списков для сохранения файлов в виде текста (CSV- или CSV-файла) в Excel
Если при сохранение в CSV-окне вы хотите использовать в качестве по умолчанию полу двоеточие, но для этого нужно ограничиться Excel, измените десятичной запятой. В этом случае Excel будет использовать для этого двоеточие. Очевидно, что это также изменит способ отображения десятичных чисел, поэтому также рассмотрите возможность изменения разграничения чисел в тысячах, чтобы сузить путаницу.
- Очистка параметров Excel>Дополнительные>параметры редактирования>Использование системных междугов.
- Для десятичной запятой установите для десятичной запятой (запятую).
- Установите для 1000-го построитель . (точка).
Изменение стандартного списка для новых текстовых файлов (влияет на все программы)
Когда вы сохраняете книгу в CSV-файле, по умолчанию в качестве разных списков запятой является запятая. Вы можете изменить этот знак на другой знак с помощью параметров региона Windows.
Внимание: Изменение параметров Windows приведет к глобальным изменениям на компьютере и повлияет на все приложения. Чтобы изменить только делитель для Excel, см. изменение стандартного деления в списке для сохранения файлов в виде текста (CSV- или CSV-файла) в Excel.
- В Microsoft Windows 10 щелкните правой кнопкой мыши кнопку Начните и выберите параметры.
- Нажмите кнопку & языки выберите регион в левой области.
- На главной панели в группе Региональные параметрыщелкните Дополнительные параметры даты,времени и региона.
- В областивыберите изменить форматы даты, времени или числа.
- В диалоговом окке Регион на вкладке Формат нажмите кнопку Дополнительные параметры.
- В диалоговом окне Настройка формата на вкладке Числа введите символ, который будет использовать в качестве нового в поле «Сепаратор списков».
- Дважды нажмите кнопку ОК.
- Нажмите кнопку Пуск и выберите пункт Панель управления.
- В разделе Часы, язык и регион щелкните элемент Изменение форматов даты, времени и чисел.
- В диалоговом окке Регион на вкладке Формат нажмите кнопку Дополнительные параметры.
- В диалоговом окне Настройка формата на вкладке Числа введите символ, который будет использовать в качестве нового в поле «Список».
- Дважды нажмите кнопку ОК.
Примечание: После изменения разделителя элементов списка все программы на компьютере будут использовать новый символ. Вы можете вернуть стандартный символ, выполнив эти же действия.
Дополнительные сведения
Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.
- В группе Куда следует поместить данные? выполните одно из следующих действий: