Как сделать перенос текста в access?

Опубликовано в Ввод данных teacher Октябрь 6, 2015

При создании таблиц с большим количеством текстов в программе Excel перенос строки в ячейке бывает просто необходим, чтобы данные в таблице выглядели аккуратно и компактно. В данной статье мы рассмотрим основные способы, которые позволят это сделать.

Настройка автоматического переноса строк

Перенос строки в Excel с помощью кнопки на панели инструментов

Чтобы настроить перенос строки в Excel автоматически, необходимо: Вначале выделите все ячейки, для которых это нужно сделать

1. На панели инструментов программы перейдите во вкладку «Главная», и нажмите кнопку «Перенос текста»
2. Либо нажмите правую кнопку мыши на выделенных ячейках, появится контекстное меню, выберите команду из списка «Формат ячеек» — перейдите во вкладку «Выравнивание» — и установите флажок напротив пункта «Переносить по словам» — ОК.

От автора

teacher

Рубрика Word

Также статьи о работе с текстом в Ворде:

• Как убрать перенос слов в Ворде?
• Как убрать пробелы в Ворде?
• Как найти слово в Word?
• Как заменить слово в Ворде на другое?

• Во время набора текста при настройках по умолчанию расстановка переносов не осуществляется, но если она все же нужна, рассмотрим, как сделать перенос слов в Ворде ручным и автоматическим способом.
• При расстановке переносов стоит иметь в виду, что применить ручную расстановку переносов можно только к уже набранному тексту, а при установке автоматического переноса слов в Ворде, расстановка переносов будет также применяться по ходу набора текста.
• Для изменения режима расстановки переносов слов в Ворде необходимо перейти на вкладку «Разметка страницы», в секторе «Параметры страницы» выбрать меню «Расстановка переносов» и выбрать необходимый пункт.
• Как уже упоминалось выше, сделать перенос слов в Ворде вручную можно только после набора текста, при этом при выборе данного пункта меню Word предлагает различные варианты переноса в отдельном окошке для каждого, в котором необходимо указать подходящий вариант и применить.
• Перенос слов при расстановке переносов может встречаться в конце каждой строки.
• Если Вас это не устраивает можно в меню «Расстановка переносов» выбрать пункт «Параметры расстановки переносов…» и указать «Максимальное число последовательных переносов».

Если по тексту имеются слова, написанные через дефис, то они будут переносится на другую строку и разбиваться на части в месте установки дефиса. При необходимости можно установить неразрывный дефис комбинацией клавиш «CTRL+SHIFT+ДЕФИС», который не позволит разбить слово на части.

Обучение работе в Word

Если Вас заинтересовал данный вопрос, давайте начнем с ним разбираться. Расстановка переносов в Ворде 2007 и Ворде 2010 – несложная тема, поэтому сделаем мы это быстро.

В настройках MS Word по умолчанию, если слово не помещается в данной строке, оно автоматически переносится на следующую. В результате, в конце строки остается много пустого места, а если настроено выравнивание текста по ширине, то могут появиться большие пробелы в тексте. Перейдя по ссылке, можете прочитать статью о том, как их убрать.

Расставить переносы вручную можно только к ранее набранному тексту.

Давайте сначала расставим переносы ручным способом по тексту. Для этого откройте нужный документ, затем перейдите на вкладку «Разметка страницы» и кликните по кнопочке «Расстановка переносов». Выберите из меню «Ручная».

Откроется диалоговое окно. В нем, слово в тексте, которое нужно перенести, будет разбито по слогам. Устанавливайте курсор в нужном для переноса месте и нажимайте «Да».

Сделать автоматические переносы по тексту еще проще. При этом Ворд сам решает, как их расставить в документе. Для этого из меню «Расстановка переносов» выбираем «Авто».

Если у Вас строгие требования к оформлению документа, то, возможно, потребуется убрать перенос слов в Ворде. Для этого из меню «Расстановка переносов» выберите «Нет».

Предположим, у Вас получилось, что в каждой строке одного абзаца есть перенесенные слова. По тексту это может смотреться не совсем красиво, ну или Вас это не устраивает.

В этом случае, в меню «Расстановка переносов» выбираем «Параметры расстановки переносов». Появится следующее окно. В поле «Макс. число последовательных переносов» установите нужное значение и нажмите «ОК».

Иногда бывает так, что на конец строки припадает слово, которое пишется через дефис. В этом случае Word автоматически переносит ту часть слова, которая после дефиса, на другую строку. Чтобы этого избежать поставьте неразрывный дефис, используя комбинацию клавиш Ctrl+Shift+Дефис.

На этом мы закончим. Теперь Вы знаете, как сделать ручной и автоматический перенос слов в Ворде.

Поделитесь статьёй с друзьями:

Источник: http://word-office.ru/kak-sdelat-perenos-teksta-v-access.html

Как сделать перенос в Экселе в ячейке

Довольно часто возникает вопрос, как сделать перенос на другую строку внутри ячейки в Экселе? Этот вопрос возникает когда текст в ячейке слишком длинный, либо перенос необходим для структуризации данных.

В таком случае бывает не удобно работать с таблицами. Обычно перенос текста осуществляется с помощью клавиши Enter. Например, в программе Microsoft Office Word.

Но в Microsoft Office Excel при нажатии на Enter мы попадаем на соседнюю нижнюю ячейку.

Итак нам требуется осуществить перенос текста на другую строку. Для переноса нужно нажать сочетание клавиш Alt+Enter. После чего слово, находящееся с правой стороны от курсора перенесется на следующую строку.

Автоматический перенос текста в Excel

В Экселе на вкладке Главная в группе Выравнивание есть кнопка «Перенос текста». Если выделить ячейку и нажать эту кнопку, то текст в ячейке будет переноситься на новую строку автоматически в зависимости от ширины ячейки. Для автоматического переноса требуется выполнить простое нажатие кнопки.

Убрать перенос с помощью функции и символа переноса

Для того, что бы убрать перенос мы можем использовать функцию ПОДСТАВИТЬ.

Функция заменяет один текст на другой в указанной ячейке. В нашем случае мы будем заменять символ пробел на символ переноса.

Синтаксис формулы:

=ПОДСТАВИТЬ (текст;стар_текст;нов_текст;[номер вхождения])

Итоговый вид формулы:

=ПОДСТАВИТЬ(A1;СИМВОЛ(10); » «)

Где:

• А1 – ячейка содержащая текст с переносами,
• СИМВОЛ(10) – символ переноса строки,
• » » – пробел.

Если же нам наоборот требуется вставить символ переноса на другую строку, вместо пробела проделаем данную операцию наоборот.

Формула:

=ПОДСТАВИТЬ(A1; » «;СИМВОЛ(10))

Что бы функция работало корректно во вкладке Выравнивание (Формат ячеек) должен быть установлен флажок «Переносить по словам».

Перенос с использование формулы СЦЕПИТЬ

Для решения нашей проблемы можно использовать формулу СЦЕПИТЬ.

Синтаксис формулы:

=СЦЕПИТЬ (текст1,[текст2]…)

У нас имеется текст в ячейках A1 и B1. Введем в B3 следующую формулу:

=СЦЕПИТЬ(A1;СИМВОЛ(10);B1)

Как в примере, который я приводил выше, для корректной работы функции в свойствах требуется установить флажок «переносить по словам».

Источник: https://abuzov.ru/perenos-teksta-v-yacheike-excel/

Как сделать перенос строки в тексте в HTML?

Сегодня мы с вами немного коснемся темы оформления текстов на вашем сайте. Создавая сайт и ведя уже существующий, нужно грамотно подходить к каждой его мелочи. Я – активный пользователь Интернета, очень часто ищу различную информацию абсолютно по разным темам. Зачастую встречаю сайты, на которых информация представлена примерно в таком виде:

Не говоря уже о том, что здесь нет никаких выделений (главного в тексте), так и отсутствуют какие-либо параграфы, или попросту – переносы строк. Текст может быть и корректным с точки зрения орфографии и его темы, но визуально – он некомфортен для восприятия. Согласитесь, такой вид куда более читабельный и не «отпугивает» наших пользователей:

Неважно, коммерческий ваш сайт или это обычный блог – всем этим нюансам должно быть уделено отдельное внимание. Именно поэтому сегодня я покажу вам целых три варианта переноса строк в вашем тексте.

Для наглядности за основу мы возьмем популярный в кругах дизайнеров и верстальщиков текст «Lorem Ipsum», а если быть точнее – то несколько его параграфов:

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Phasellus imperdiet imperdiet urna vehicula elementum. Sed scelerisque luctus nisi, quis lacinia augue rutrum sit amet. Nullam vel erat quis urna tristique eleifend. Donec finibus eros in dui ornare, ut efficitur ante elementum.

Mauris est lorem, blandit nec turpis et, elementum imperdiet diam. Quisque eu pulvinar ipsum. Vivamus sit amet tortor a orci commodo convallis eget ac arcu.

Nulla lacinia augue orci, nec consequat eros viverra sit amet. Phasellus scelerisque, arcu eget hendrerit fringilla, elit urna commodo ante, a semper elit diam ut felis.

и рассмотрим популярные способы переноса строк в HTML.

Первый вариант переноса строк в HTML

Первый и, наверное, самый популярный и в то же время специально созданный тег для переноса строк – это:

Вы могли видеть этот тег и без слэша (косой черты) на конце, разницы в этом особо нет, просто приведенный выше вариант является более валидным (правильным).

Пример использования:

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Phasellus imperdiet imperdiet urna vehicula elementum. Sed scelerisque luctus nisi, quis lacinia augue rutrum sit amet. Nullam vel erat quis urna tristique eleifend. Donec finibus eros in dui ornare, ut efficitur ante elementum.

Mauris est lorem, blandit nec turpis et, elementum imperdiet diam. Quisque eu pulvinar ipsum. Vivamus sit amet tortor a orci commodo convallis eget ac arcu.

Nulla lacinia augue orci, nec consequat eros viverra sit amet. Phasellus scelerisque, arcu eget hendrerit fringilla, elit urna commodo ante, a semper elit diam ut felis.

Использовать его вы можете сколько угодно раз. Одно использование – один перенос строки, соответственно, два этих тега, поставленные подряд, дают двойной перенос.

Второй вариант переноса строк в HTML

В HTML существует такое понятие, как параграфы. Для них отведен специальный тег типа:

Весь текст, заключенный в него, переносится на новую строку. По умолчанию (если нет глобальных стилей) он имеет свой отступ. Использование следующее:

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Phasellus imperdiet imperdiet urna vehicula elementum. Sed scelerisque luctus nisi, quis lacinia augue rutrum sit amet. Nullam vel erat quis urna tristique eleifend. Donec finibus eros in dui ornare, ut efficitur ante elementum.

Nulla lacinia augue orci, nec consequat eros viverra sit amet. Phasellus scelerisque, arcu eget hendrerit fringilla, elit urna commodo ante, a semper elit diam ut felis.

Здесь стоит отметить то, что использование пустого тега типа:

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Phasellus imperdiet imperdiet urna vehicula elementum. Sed scelerisque luctus nisi, quis lacinia augue rutrum sit amet. Nullam vel erat quis urna tristique eleifend. Donec finibus eros in dui ornare, ut efficitur ante elementum.

не даст вам дополнительной пустой строки, как это можно сделать в первом варианте. Для того чтобы отредактировать желаемый отступ между параграфами, воспользуйтесь глобальными стилями:

p {
margin: 0;
padding: 0 0 10px 0; // Отступ 10px снизу
}

Или же присвойте параграфу свой идентификатор, за счет которого примените свой персональный стиль:

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Phasellus imperdiet imperdiet urna vehicula elementum. Sed scelerisque luctus nisi, quis lacinia augue rutrum sit amet. Nullam vel erat quis urna tristique eleifend. Donec finibus eros in dui ornare, ut efficitur ante elementum.

Этот вариант оформления текстов я люблю больше всего, так как можно настроить желаемое расстояние между параграфами. Тег из первого же варианта я использую редко.

Третий вариант переноса строк в HTML

Этот вариант похож на вид параграфов, только вместо тега «p» используется тег «div»:

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Phasellus imperdiet imperdiet urna vehicula elementum. Sed scelerisque luctus nisi, quis lacinia augue rutrum sit amet. Nullam vel erat quis urna tristique eleifend. Donec finibus eros in dui ornare, ut efficitur ante elementum.
Mauris est lorem, blandit nec turpis et, elementum imperdiet diam. Quisque eu pulvinar ipsum. Vivamus sit amet tortor a orci commodo convallis eget ac arcu.
Nulla lacinia augue orci, nec consequat eros viverra sit amet. Phasellus scelerisque, arcu eget hendrerit fringilla, elit urna commodo ante, a semper elit diam ut felis.

Принцип работы тот же самый – каждый блок текста, обернутого в эту конструкцию, начинается с новой строки. Пустой тег не дает дополнительной новой строки. Что касается отступов, в отличие от параграфов, то здесь они отсутствуют. Но вы можете настроить их и сами, через глобальные стили:

div {
padding: 0 0 10px 0; // Отступ 10px снизу
}

или же через отдельный идентификатор блока:

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Phasellus imperdiet imperdiet urna vehicula elementum. Sed scelerisque luctus nisi, quis lacinia augue rutrum sit amet. Nullam vel erat quis urna tristique eleifend. Donec finibus eros in dui ornare, ut efficitur ante elementum.

Все описанное выше, на мой взгляд, – это самые популярные способы переноса строк в вашем тексте. Все расписано максимально подробно, так что вопросов возникнуть не должно.

Источник: https://www.pandoge.com/stati-i-sovety/kak-sdelat-perenos-stroki-v-tekste-v-html

VBA Excel. Перенос кода процедуры и текста на новую строку

Перенос части кода одного выражения VBA Excel на другую строку. Объединение нескольких операторов в одной строке. Программный перенос текста на новую строку.

Обратите внимание, что в этой статье слова «оператор» и «выражение» употребляются в одном значении. Они обозначают минимальный исполняющийся код VBA, расположенный в одной строке.

'Каждая строка — один
'оператор/выражение
Dim a As Long, b As Long
a = 12
b = a + 25

Перенос части выражения на новую строку

Деление длинного оператора на части улучшит его читаемость, сделает код процедуры более наглядным и компактным, не позволит ему уходить за пределы видимого экрана справа.

Переносимые на новые строки части кода одного выражения разделяются символом нижнего подчеркивания (_), который ставится обязательно после пробела. Этот символ указывает компилятору VBA Excel, что ниже идет продолжение текущей строки.

Пример 1
Процедуры без переноса и с переносом части кода операторов:

'Процедура без переноса
'кода операторов
Sub Primer_1_1()
Dim a As Long, b As Long
a = 12 * 7 — 15 / 5 + 36
b = a + 25 + 36 * 15 — 5
MsgBox b
End Sub
'Процедура с переносом
'кода операторов
Sub Primer_1_2()
Dim a As Long, _
b As Long
a = 12 * 7 — 15 _
/ 5 + 36
b = a + 25 + 36 _
* 15 — 5
MsgBox b
End Sub

Иногда пишут, что для переноса кода добавляется пробел с символом подчеркивания. Так легче запомнить и не забыть, что перед знаком подчеркивания обязательно должен быть пробел. Но на самом деле, как видите из примера выше, пробелы уже есть в исходном коде, и мы добавили только символы подчеркивания.

Объединение операторов в одной строке

Множество коротких выражений в коде VBA Excel можно объединить в одной строке. Для этого используется символ двоеточия с пробелом «: », который указывает компилятору, что за ним идет следующий оператор.

Пример 2
Процедуры без объединения и с объединением операторов:

'Процедура без объединения
'операторов
Sub Primer_2_1()
Dim a As Long, b As Long, c As Long
a = 12
b = a + 25
c = a * b
MsgBox c
End Sub
'Процедура с объединением
'операторов
Sub Primer_2_2()
Dim a As Long, b As Long, c As Long
a = 12: b = a + 25: c = a * b: MsgBox c
End Sub

Во втором примере, как и в первом, информационное окно MsgBox покажет одинаковый результат.

Программный перенос текста на другую строку

Для программного переноса произвольного текста на новую строку в VBA Excel используются следующие ключевые слова:

• vbCr – возврат каретки;
• vbLf – перевод строки;
• vbCrLf – возврат каретки и перевод строки, аналог нажатия клавиши «Enter»;
• vbNewLine – новая строка.

Выражения «возврат каретки» и «перевод строки» идут от механических пишущих машин (печатных машинок).

Пример 3
Проверяем работоспособность перечисленных выше ключевых слов по программному переносу текста на новые строки в ячейке и информационном окне MsgBox:

Sub Primer_3()
'Перенос текста в ячейке
Range(«B2») = «Первая строка + vbCr» & vbCr & _
«Вторая строка + vbLf» & vbLf & _
«Третья строка + vbCrLf» & vbCrLf & _
«Четвертая строка + vbNewLine» & vbNewLine & _
«Пятая строка»
'Перенос текста в информационном окне
MsgBox «Первая строка + vbCr» & vbCr & _
«Вторая строка + vbLf» & vbLf & _
«Третья строка + vbCrLf» & vbCrLf & _
«Четвертая строка + vbNewLine» & vbNewLine & _
«Пятая строка»
End Sub

Получился следующий результат:

Результат четырех переносов текста на новую строку

Как видно на изображении, ключевое слово «vbCr» не сработало в ячейке для переноса текста на другую строку, хотя сработало в информационном окне MsgBox.

Ключевые слова «vbCr» и «vbLf» я использовал исключительно для ознакомления, а на практике следует применять для переноса текста на новую строку – «vbCrLf» и «vbNewLine».

Источник: https://vremya-ne-zhdet.ru/vba-excel/perenos-koda-i-teksta/

Выгрузка данных из Access в шаблон Word и Excel | Info-Comp.ru — IT-блог для начинающих

Всем привет, сегодня мы поговорим о том, как можно выгрузить данные из Access в такие приложения как Word и Excel. Но не о стандартном способе, который есть в  Access (связь с Office), а о способе, который позволяет выгружать данные в заданный шаблон как в Word, так и в Excel.

Другими словами, это нужно тогда, когда создать отчет в Access по шаблону, который уже существует, например, в Word, невозможно или слишком трудоемко.

Как Вы знаете, отчет в Access может выводиться просто коряво или, самый распространенный вариант, это когда много текста, который в отчете Access не так хорошо форматируется как в Word, а данных не так много, но отчет необходимо автоматизировать, например это какие-то договора, заявления и так далее.

Использование слияния из самого Word-а не очень удобно, поэтому сегодня я расскажу, как можно заполнять такие шаблоны напрямую из Access, путем нажатия на одну кнопку.

Кроме выгрузки в шаблон Word, иногда возникает и необходимость выгрузки в шаблон Excel, и этот способ мы тоже сегодня рассмотрим.

Экспорт данных из Access в шаблон Word

Вся разработка делится на две части, это:

• Настройка шаблона Word;
• Настройка выгрузки данных в шаблон.

Суть настройки шаблона заключается в том, чтобы проставить необходимые поля в тех местах шаблона, где нужно выводить те или иные данные. Это делается с помощью полей формы.

Примечание! Я использую Microsoft Word 2003.

Открываем шаблон Word, для начала добавим необходимую панель инструментов, для этого нажимаем «Вид -> Панель инструментов» и ставим галочку «Формы». Теперь у Вас отобразилась панель инструментом «Формы». Все, что осталось сделать — это вставить в местах, в которых необходимо выводить данные, элементы «Текстовое поле», которые доступны на только что добавленной панели инструментов.

После добавления поля, у Вас появится серая область, которая свидетельствует о том, что поле добавлено.

Для этого щелкните правой кнопкой мыши по полю и нажмите «Свойства». В поле закладка напишите желаемое имя этого поля, я в примере назвал его MyTestPole.

• Создайте столько полей, сколько Вам нужно.
• На этом настройка шаблона закончена, рекомендую сделать этот шаблон только для чтения, а то пользователь возьмет, сформирует документ и сохранит его, и шаблон тем самым потеряется, а если сделать его только для чтения, то у него такой возможности не будет, только сохранять через «Сохранить как».
• Переходим к более интересной задачи, это к реализации самой выгрузки из Access в этот шаблон на VBA.

Примечание! Я использую Access в связке с MS SQL 2008, поэтому и данные буду брать от туда.

Код VBA для выгрузки данных в шаблон Word

Допустим, у Вас есть форма, сделайте на ней кнопку (я назвал ее testbutton) и в событие нажатие кнопки вставьте следующий код VBA:

Private Sub testbutton_Click()

'Объявляем переменные
Dim FileDialog As FileDialog
Dim rsd As ADODB.Recordset
Dim strSQL As String
Dim WordApOb As Object
Dim WordOb As Object
Dim path As String
Set rsd = New ADODB.Recordset

'запрос к базе данных для получения необходимых данных
strSQL = «select * from dbo.table where KOD = » & Me.kod & «»
rsd.open strSQL, CurrentProject.Connection

'Выбираем шаблон
Set FileDialog = Application.FileDialog(msoFileDialogOpen)

'убираем множественный выбор, он нам не нужен
FileDialog.AllowMultiSelect = False

'очистим и установим фильтры
FileDialog.Filters.Clear
FileDialog.Filters.add «Word», «*.doc»

'установим фильтр по умолчанию
FileDialog.FilterIndex = 1

'проверяем, что сделал user, если выбрал шаблон, то начинаем работу
If FileDialog.Show = False Then
'Если нет, то выходим
Set dlgFile = Nothing
Exit Sub
End If

'получаем путь к файлу
path = Trim(FileDialog.SelectedItems(1))

'Очистим переменную
Set FileDialog = Nothing
If path «» Then

'Будем отслеживать ошибки
On Error GoTo Err_testbutton_Click

'Создаем объект Word
Set WordOb = CreateObject(«Word.document»)

'Задаем нашему документу значение из шаблона
Set WordOb = GetObject(path)

'Задаем значение объекту word.Application
Set WordApOb = WordOb.Parent

'делаем приложение word видимым
WordApOb.Visible = True

'ищем наше поле в шаблоне
WordOb.Bookmarks(«mytestpole»).Select

'задаем ему новое значение из нашего Recordset
WordApOb.Selection.TypeText Text:=Nz(rsd.Fields(«field»).Value, » «)
'и так далее по всем полям

'в конце перейдем на начало нашего документа
WordApOb.Selection.Goto wdGoToFirst
'и активируем его
WordApOb.Activate

'Очистим переменные
Set WordOb = Nothing
Set WordApOb = Nothing

Exit_testbutton_Click:
Exit Sub

Err_testbutton_Click:
MsgBox Err.Description
'в случае ошибки будем делать следующие
'закроем word без сохранения
WordOb.Close (wddonotsavechanges)
WordApOb.Quit
'и также очистим переменные
Set WordOb = Nothing
Set WordApOb = Nothing
Resume Exit_testbutton_Click
End If

End Sub

Код прокомментирован, поэтому сложностей возникнуть не должно. Здесь весь смысл сводится к созданию объекта word.document и word.application. А после мы уже работаем с нашими объектами, т.е. заполняем их.

Экспорт данных из Access в шаблон Excel

В шаблоне Excel уже не нужно создавать поля как в Word, так как здесь мы уже будем ориентироваться по адресам ячеек.

Существует несколько способов, как заполнять Excel шаблон, я опишу два, первый — это тогда, когда Вам просто необходимо проставить несколько полей, т.е. в источнике данных будет всего одна строка с несколькими столбцами. Второй — это когда строк будет уже несколько, причем Вы не знаете, сколько именно (в зависимости от каких то условий).

В шаблоне по умолчанию отведено для этого все пару строк, поэтому мы будем нужные нам строки добавлять, для того чтобы наши данные не накладывалась на строки ниже (допустим там примечание, подпись руководителя и т.д.). И совет, я здесь, для примера, использую всего один источник данных, а Вы, если Вам необходимо заполнить шапку, примечание и некое количество строк (т.е.

область данных), можете использовать несколько источников (Recordset).

Код VBA для выгрузки данных в шаблон Excel

Сначала добавьте кнопку на форму (я ее назвал testexcel) и вставьте следующий код в событие «Нажатие кнопки».

Private Sub testexcel_Click()

'Объявляем переменные
Dim XL As Object
Dim XLT As Object
Dim newrow As Object
Dim rsd As ADODB.Recordset
Dim strSQL As String
Set rsd = New ADODB.Recordset

'Запрос к базе данных
strSQL = «select * from dbo.table where kod = » & Me.kod & «»
rsd.open strSQL, CurrentProject.Connection

'Создаем необходимые объекты
Set XL = CreateObject(«Excel.Application»)
'для примера показываю, как можно сразу загружать шаблон без выбора
Set XLT = XL.Workbooks.open(«C: estfile.xls»)

'1 способ — если в источнике данных всего одна строка
With XLT.Worksheets(«Лист1»)
.[a1] = rsd.Fields(«field1»)
.[b1] = rsd.Fields(«field2»)
.[c1] = rsd.Fields(«field3»)
.[d1] = rsd.Fields(«field4»)
End With

'2 способ — если строк в источнике несколько
'причем мы учтем то, что у нас есть шапка и примечание в Excel
'и мы не знаем, сколько строк у нас вставится
'и поэтому строки будем добавлять в случае необходимости
'зададим, с какой строки будем начинать вставлять данные
Rowss = 10
'для нумерации
numrow = 1
'запускаем цикл, он будет работать до тех пор, пока не закончатся строки в нашем источнике
While Not (rsd.EOF)
'смотрим, если строк больше чем мы задали в шаблоне
If Rowss >= 12 Then
'то добавляем строку
XLT.Worksheets(«Лист1»).Rows(Rowss).Insert
'Запомним нашу строку
Set newrow = XLT.Worksheets(«Лист1»).Rows(Rowss)
'и вставим туда копию предыдущей строки
'для того если вдруг у вас там есть объединенные ячейки или какие-то нужные данные
'так как новая строка создастся без всяких объединений и значений
XLT.Worksheets(«Лист1»).Rows(Rowss — 1).Copy newrow
'это просто для примера как можно очистить некий диапазон внутри документа
'XLT.Worksheets(«Лист1»).Range(«A10:F10»).ClearContents
'динамически формируем адрес нужной ячейки
cell = «a» & Rowss
'и задаем ей значение
XLT.Worksheets(«Лист1»).Range(cell) = numrow
cell = «b» & Rowss
XLT.Worksheets(«Лист1»).Range(cell) = rsd.Fields(«field5»).Value
'переходим на следующую строку
Rowss = Rowss + 1
'переходим на следующую строку в источнике данных
rsd.MoveNext
Else
'а это выполняется до тех пор, пока не закончатся заданные строки в шаблоне
'т.е. если строк в источнике всего 1, то в код, который выше мы даже не попадем
cell = «a» & Rowss
XLT.Worksheets(«Лист1»).Range(cell) = numrow
cell = «b» & Rowss
XLT.Worksheets(«Лист1»).Range(cell) = rsd.Fields(«field5»).Value
Rowss = Rowss + 1
rsd.MoveNext
End If

'для нумерации
numrow = numrow + 1
'конец цикла
Wend

'это просто пример как можно удалить строку целиком
'XLT.Worksheets(«Лист1»).Rows(20).Delete

'делаем Excel видимым
XL.Visible = True

'Очищаем переменные
Set XL = Nothing
Set XLT = Nothing
Set newrow = Nothing

End Sub

Здесь я также все подробно прокомментировал, но если есть вопросы, то задавайте их в х к данной статье.

Для сведения, я здесь при создании объекта и Word.Application и Excel.Application использовал позднее связывание, для того чтобы не добавлять необходимые библиотеки и обеспечить совместимость.

Надеюсь, мои примеры Вам помогут!

Источник: https://info-comp.ru/obucheniest/299—access-export-v-word-excel.html

Экспорт/импорт данных в приложениях Microsoft Office 2000

• Андрей Завьялов, Инна Завьялова
• Использование буфера обмена
• Импорт текстового файла с разделителями
• Связь Excel с Access
• Импорт и связывание данных в Access
• Экспорт данных из Access в Word и Excel
• Экспорт документов в HTML-формат
• Резюме

Пользователям офисных приложений часто приходится обрабатывать информацию из различных источников, а значит, постоянно сталкиваться с необходимостью импорта и экспорта данных. При этом необходимо заботиться, чтобы перенос данных из одного формата в другой выполнялся без ошибок и потерь важной информации.

В статье рассматривается взаимный обмен данными между основными приложениями Microsoft Office: Word, Excel и Access, а также операции экспорта/импорта в формат HTML.

При работе с данными информацию удобнее всего хранить и обрабатывать в табличном виде. Работать с таблицами позволяют практически все основные приложения Microsoft Office 2000:

• в текстовом редакторе Word наилучшим образом можно оформить таблицы для печати;
• в электронных таблицах Excel удобно проводить анализ данных и результатов расчетов как в табличной форме, так и с помощью диаграмм;
• наконец, в базах данных Access можно максимально эффективно обрабатывать большие объемы табличных данных.

Каждое офисное приложение имеет свои «фирменные» возможности, поэтому для эффективной работы с документами и информацией в одной программе лучше перепоручить выполнение отдельных задач другому приложению. Например, табличные расчеты легко и удобно произвести в Excel, однако создать красиво отформатированную таблицу для печати лучше в Word. А значит, нам потребуется импортировать данные из Excel в Word.

Использование буфера обмена

Самый простой способ переноса данных из одной офисной программы в другую — воспользоваться буфером обмена.

Чтобы поместить информацию в буфер обмена, нужно выделить данные и выбрать в меню команду Правка а Копировать (или Правка а Вырезать).

Все приложения Microsoft Office 2000 работают с общим буфером обмена, в который можно поместить до 12 различных фрагментов.

Для просмотра содержимого буфера обмена нужно вызвать специальную панель «Буфер обмена» (меню Вид а Панели инструментов а Буфер обмена).

Для вставки произвольного фрагмента из буфера обмена нужно установить курсор в позицию вставки, а затем в панели «Буфер обмена» выбрать вставляемый фрагмент. Если же нужно вставить последний скопированный (или вырезанный) фрагмент, то можно использовать привычную команду меню Правка а Вставить или кнопку Вставить панели инструментов «Стандартная».

При вставке фрагмента из буфера обмена данные обычно помещаются в формате, позволяющем их редактировать.

Так, ячейки рабочих листов Microsoft Excel и записи баз данных Microsoft Access вставляются в Word как таблицы Word, с сохранением ширины столбцов и параметров форматирования шрифта.

Однако если программа не позволяет редактировать данные, то их нужно вставить в виде внедренного объекта, который можно редактировать в исходной программе, открыв объект двойным щелчком мыши.

Например, таким образом ведет себя диаграмма, созданная в Excel, если вставить ее в документ Word.

Наконец, если данные не могут быть вставлены в виде внедренного объекта (например, при копировании данных из программы, не поддерживающей механизм ОLE1), то они должны быть помещены в виде неизменяемого рисунка.

Для самостоятельного управления форматом данных, вставляемых из буфера обмена, следует вместо команды меню Правка а Вставить использовать команду Правка а Специальная вставка… В этом случае в открывшемся окне «Специальная вставка» (рис. 2) можно выбрать из списка вариант конечного результата вставки.

Например, с помощью Специальной вставки таблицу, скопированную из Excel, можно вставить в Word не только в виде отформатированной таблицы Word, но и как внедренный лист Microsoft Excel, неформатированный текст, а также в виде точечного или векторного рисунка.

Импорт текстового файла с разделителями

Если у вас все еще сохранились данные, созданные в «древних» текстовых редакторах под MS-DOS, то давно пора перенести их в Word, Excel или Access.

Файлы DOS’овских текстовых редакторов хранят только текстовую информацию, а в таблицах таких документов обычно для разделения используются символы пробелов, табуляции, символов «!», «:», «;» и др.

Чтобы произвести перенос данных, в Excel выбираем команду Файл а Открыть…, тип файла «Текстовые файлы» и нажимаем кнопку «Открыть». Запускается мастер импорта текстов (рис. 3).

Примерно так же работает мастер импорта текстовых файлов с разделителями в MS Access, только при его работе дополнительно можно указывать язык и кодировку исходного текста.

Кстати, для более корректного импорта текстового файла желательно заранее немного подкорректировать его содержимое, чтобы количество и местоположение разделителей в каждой строке совпадало.

Связь Excel c Access

В приложениях MS Office для обмена данными предусмотрены три типа действий: экспорт, импорт и связывание. При операциях экспорта и импорта полученный результат не связан с исходными данными, а является их копией.

В свою очередь, при операции связывания данные продолжают храниться в исходном документе, а обращаться к ним можно из других связанных документов.

Таким образом, связывание позволяет при работе с одним источником данных использовать возможности разных приложений.

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

4) (возможно, для ее установки требуется дистрибутив MS Office 2000). Надстройка AccessLinks позволяет использовать формы и отчеты MS Access при работе с данными MS Excel.

В меню Данные в Excel будут добавлены три команды:

• Форма MS Access…;
• Отчет MS Access…;
• Перенести в MS Access… .

При выборе команды Данные а Форма MS Access произойдет следующее:

• по выбору будет создана новая или открыта существующая БД;
• в этой БД автоматически будет установлена связь с исходной таблицей Excel и запущен мастер форм Access, предлагающий создать новую форму;
• выполнив все шаги мастера форм, вы получите экранную форму Access для работы с данными Excel.

Аналогично работает команда Данные а Отчет MS Access, только в результате будет создан стандартный отчет Access.

Команда Данные а Перенести в MS Access… запустит Access и выполнит экспорт данных из Excel в таблицу новой или существующей БД Access.

Можно достичь подобного результата, работая в MS Access с данными из электронных таблиц Excel.

Импорт и связывание данных в Access

Среди всех офисных приложений фирмы Microsoft система управления базами данных Access 2000 специально предназначена для работы с табличными данными.

В Access имеются возможности:

• сохранять большие объемы данных во взаимосвязанных таблицах;
• создавать сложные запросы для отбора записей (табличных строк) и выполнения вычислений по данным из нескольких таблиц;
• автоматически изменять множество записей с помощью запросов действия;
• и наконец, создавать собственные формы и отчеты для удобного ввода, редактирования и анализа данных.

Чтобы использовать все эти преимущества, необходимо будет перенести в Access данные из других офисных приложений.

Передать информацию в Access можно с помощью импорта или путем установки связи с источником данных.

Операция Импорт подразумевает получение извне и сохранение копии данных «приемлемого» формата. При этом связь с источником исходных данных поддерживаться не будет (то есть данные становятся «родными» для Access и «забывают» о своем предыдущем местонахождении).

Попробуем перенести данные из рабочей книги Excel в Access. Для этого в меню Файл выберем команду Внешние данные а Импорт.

В открывшемся диалоговом окне «Импорт» выберем тип файлов «Microsoft Excel», укажем исходный файл Excel и нажмем кнопку Импорт. После этого начнет работу мастер, который позволяет импортировать в Access содержимое выбранного рабочего листа или именованного диапазона ячеек (рис. 6).

Импорт именованного диапазона может потребоваться в случае, если на одном рабочем листе размещено несколько таблиц или наряду с табличными данными есть и другие объекты (надписи, рисунки или диаграммы).

Каждому из таких диапазонов можно присвоить имя.

Для это необходимо выделить диапазон ячеек, в котором размещены данные табличного вида, а затем в окошке «Имя» (в самом начале строки формул) ввести название диапазона и нажать Enter (рис. 7).

Из книги Excel можно импортировать в таблицу Access отобранные столбцы из указанного диапазона или рабочего листа. Тип данных, хранящихся в полях (столбцах) значений, распознается по содержимому нескольких первых записей (строк), поэтому после импорта часто требуется его корректировка.

Иногда бывает удобно работать с одними и теми же данными одновременно то из Excel, то из Access (то есть редактировать и добавлять данные в таблицу как при работе в Excel, так и при обработке информации в базе данных MS Access). В этом случае нужно в базе данных Access создать Связи с таблицами Excel.

В результате будет установлена динамическая связь с данными из Excel, а в списке таблиц в окне базы данных Access появится новая таблица, помеченная специальной пиктограммой в виде стрелочки, которая обозначает, что данная таблица является связанной (рис. 8).

После установки связи данные, хранящиеся в связанной таблице, можно обрабатывать как в Excel, так и в базе данных Access.

Если в дальнейшем файл — источник данных будет переименован или перемещен в другую папку, то связь будет нарушена. Для восстановления связи нужно будет указать новое местоположение исходного файла с помощью команды меню Сервис а Служебные программы а Диспетчер связанных таблиц.

Аналогичным образом производится импорт и связывание данных из одной базы данных MS Access в другую.

Экспорт данных из Access в Word и Excel

Как бы ни была удобна и производительна обработка данных в базах данных Access, все-таки его «выразительные» средства подчас беднее, чем у Excel или Word (Access сложнее и в нем меньше возможностей оформления). Например, в Excel можно более наглядно (главное — в привычной для пользователя форме) представить информацию в табличном виде и намного проще создавать и изменять диаграммы.

В меню Сервис а Связи с Office находятся три команды экспорта данных из Access в Word и Excel:

• Анализ в MS Excel;
• Публикации в MS Word;
• Слияние с MS Word.

Чтобы отправить данные из Access в Excel, в окне базы данных Microsoft Access необходимо выбрать таблицу, запрос, форму или отчет, а затем выполнить команду меню Сервис а Связи с Office а Анализ в MS Excel (рис. 9).

Microsoft Access сохранит таблицу, запрос, форму или отчет в виде книги Microsoft Excel (.xls) и откроет этот файл в Microsoft Excel.

Файл с именем таблицы, запроса или другого объекта базы данных сохраняется в текущем рабочем каталоге (по умолчанию «C:Мои документы»).

Экспорт документов в HTML-формат

Сегодня для многих стало необходимым размещать данные в сети Internet.

Чтобы быстро подготовить информацию из офисных программ для публикации в Web, не нужно знать тэги языка HTML — достаточно просто сохранить ее в формате гипертекстового документа. Для этой цели в Word и Excel добавлена специальная команда меню Файл а Сохранить как Web-страницу.

После выполнения этой команды откроется окно «Сохранение документа», в котором можно изменить заголовок документа (кнопка «Изменить»), а также параметры HTML-документа (кнопка «Сервис» а Параметры Web-документа) (рис.10). Затем нажмите кнопку «Сохранить», и вы получите готовую Web-страничку.

При сохранении документа в формате HTML неизбежно утрачиваются некоторые элементы форматирования, поэтому, прежде чем выполнять экспорт, воспользуйтесь командой Файл а Предварительный просмотр Web-документа для оценки результата.

Полученный в результате Web-документ можно будет разместить в сети Internet и просматривать с помощью программ-браузеров. Результат, конечно, далек от совершенства (особенно громоздкий HTML-код), однако простота и скорость создания такой Web-странички налицо.

Резюме

Перенос информации из одного офисного приложения в другое позволяет наиболее эффективно работать с данными.

Обмен данными можно организовать, используя буфер обмена, а также операции импорта и экспорта. А для работы с общими данными из разных приложений удобно организовать связь с источником данных.

Надеемся, что необходимость переноса данных в MS Office 2000 не станет для вас большой проблемой.

КомпьютерПресс 7'2001

Источник: https://compress.ru/article.aspx?id=11225

Вставить перевод строки в Ms Access Query

Привет, я разрабатываю приложение PHP, которое, к сожалению, должно использовать MS Access в качестве бэкэнда, и я не на 100% в курсе доступа по сравнению с MySQL.

Я пытаюсь создать поле метки адреса в таблице клиентов. Идея состоит в том, чтобы иметь адресную строку (максимум 7), чтобы включить строку, если она не равна нулю, и затем разрыв строки для следующей строки, чтобы вы получили стиль почтовой метки без пустых строк.

Пока у меня есть это в моем запросе …

SELECT
tblCompany.CompanyId,
tblCompany.CompanyTypeId,
tblCompany.CompanyName,
IIF(Len(PafAddress.line1)>0,PafAddress.line1,»») & » » &
IIF(Len(PafAddress.line2)>0,PafAddress.line2,»») & » » &
IIF(Len(PafAddress.line3)>0,PafAddress.line3,»») & » » &
IIF(Len(PafAddress.line4)>0,PafAddress.line4,»») & » » &
IIF(Len(PafAddress.Line5)>0,PafAddress.line5,»») & » » &
IIF(Len(PafAddress.post_town)>0,PafAddress.post_town,»») & » » &
IIF(Len(PafAddress.county)>0,PafAddress.county,»») & » » &
IIF(Len(PafAddress.postcode)>0,PafAddress.postcode,»»)
AS AddressLabel,
FROM tblCompany
LEFT OUTER JOIN PafAddress ON tblCompany.PafAddressId = PafAddress.id

Однако это просто помещает пару пробелов рядом с каждой записью, а не разрыв строки, я пытался

& CHAR(13)+CHAR(10) &

Но просто продолжай получать

НЕОПРЕДЕЛЕННАЯ ФУНКЦИЯ ЧАР

Кто-нибудь может помочь?

1

SELECT
tblCompany.CompanyId,
tblCompany.CompanyTypeId,
tblCompany.CompanyName,
PafAddress.line1 &
(Chr(13) + Chr(10) + PafAddress.line2) &
(Chr(13) + Chr(10) + PafAddress.line3) &
(Chr(13) + Chr(10) + PafAddress.line4) &
(Chr(13) + Chr(10) + PafAddress.line5) &
(Chr(13) + Chr(10) + PafAddress.post_town) &
(Chr(13) + Chr(10) + PafAddress.county) &
(Chr(13) + Chr(10) + PafAddress.postcode)
AS AddressLabel,
FROM tblCompany
LEFT OUTER JOIN PafAddress
ON tblCompany.PafAddressId = PafAddress.id

Это вставляет новую строку перед полями, которые не являются пустыми.

1

Ужасно чертовски, но это должно работать для поля AddressLabel:

Left(IIF(Not(IsNull(PafAddress.line1)),PafAddress.line1 & Chr(13) & Chr(10),»») & IIF(Not(IsNull(PafAddress.line2)),PafAddress.line2 & Chr(13) & Chr(10),»») & IIF(Not(IsNull(PafAddress.line3)),PafAddress.line3 & Chr(13) & Chr(10),»») & IIF(Not(IsNull(PafAddress.line4)),PafAddress.line4 & Chr(13) & Chr(10),»») & IIF(Not(IsNull(PafAddress.Line5)),PafAddress.line5 & Chr(13) & Chr(10),»») & IIF(Not(IsNull(PafAddress.post_town)),PafAddress.post_town & Chr(13) & Chr(10),»») & IIF(Not(IsNull(PafAddress.county)),PafAddress.county & Chr(13) & Chr(10),»») & IIF(Not(IsNull(PafAddress.postcode)),PafAddress.postcode & Chr(13) & Chr(10),»»), Len(IIF(Not(IsNull(PafAddress.line1)),PafAddress.line1 & Chr(13) & Chr(10),»») & IIF(Not(IsNull(PafAddress.line2)),PafAddress.line2 & Chr(13) & Chr(10),»») & IIF(Not(IsNull(PafAddress.line3)),PafAddress.line3 & Chr(13) & Chr(10),»») & IIF(Not(IsNull(PafAddress.line4)),PafAddress.line4 & Chr(13) & Chr(10),»») & IIF(Not(IsNull(PafAddress.Line5)),PafAddress.line5 & Chr(13) & Chr(10),»») & IIF(Not(IsNull(PafAddress.post_town)),PafAddress.post_town & Chr(13) & Chr(10),»») & IIF(Not(IsNull(PafAddress.county)),PafAddress.county & Chr(13) & Chr(10),»») & IIF(Not(IsNull(PafAddress.postcode)),PafAddress.postcode & Chr(13) & Chr(10),»»)-2)) AS AddressLabel,

Источник: https://web-answers.ru/php/vstavit-perevod-stroki-v-ms-access-query.html