Импорт и экспорт на VB

@CTEnAH · Регистрация: 18.05.2010

Студворк — интернет-сервис помощи студентам

Люди помогите плз с импортом и экспортом. Проблема такая необходимо программно с помощью VB экспортировать таблицы из одной базы Access в другую. Далее экспортировать таблицы Access в Excel и наконец импортировать excel файлы в access. Нет никаких мыслей по этому вопросу поэтому прошу по возможности подробных объяснений. Хотелось бы все это сделать с использованием DAO. Заранее благодарен.

@<> · 04.01.2011, 12:32

У меня база даных C:1.mdb
в ней RecordSource 1
и DataField 1
Я пишу такую строку
Set objRst = CurrentDb.OpenRecordset('1')
И он все равно пишет ту же ошибку ...
Как сделать шоб это все работало, помогите плз ...

04.01.2011, 13:34

Код в студию!

@Дмитри5 · 04.01.2011, 14:33

Извините, я влез по близкой теме.
[Lenivec] А подробнее по теме: но если что нужно по ходу дела форматировать - я понял программно Лист1 Ексель!!??
Где найти коды форматирования из VB ячейки Ексел: формат шрифта, перенос, длина ячейка и т.д.
У меня проблема такая: Копирую в Clipbouard переменную, например Cf & Text1.Text. В окне Text1.Text - колонки цифр. Переменная Cf - заголовок будущей таблицы в Екселе. Вызываю (не програмно) Exel и, клинув 'Вставить' или ctrl+V - содержание буффера вставляется мгновенно.... Но переменная Cf - нечитабельна. Win XP не понимает шрифт из VB!
Как здесь выпутаться!? ::

)
Спасибо.

04.01.2011, 16:14

Правая кнопа -> Специальная вставка -> Текст

@Дмитри5 · 04.01.2011, 16:25

[Lenivec] СПАСИБО !!!!!!!!!!!!!
Я как лиса....:

)
А программно, можно устанавливать такой режим для Exel???
Уж больно мне понравился эффект, а ж дух перехватило, когда все вышло как надо!
И вoпрос наоборот: А что, в Clipbouard'e текстовая информация в Unicode ???? Это уже интересно...
Пожалуйсто, если можно ответить на оба вопроса:
- программное переключение
- хранение текста в коде ???
Спасибо!

05.01.2011, 10:52

А программно, можно устанавливать такой режим для Exel???

Code
1
 ActiveSheet.PasteSpecial Format:='Текст', Link:=False, DisplayAsIcon:= False

И вoпрос наоборот: А что, в Clipbouard'e текстовая информация в Unicode ???? Это уже интересно...
Нет. Как раз все наоборот, это офис ХР работает в уникоде, и соответственно по умолчанию считает что в буфере тоже уникод.

@Дмитри5 · 06.01.2011, 10:25

Для [Lenivec] еще раз огромное СПАСИБО!
... ну а где же читать, что они могут эти параметры
Например открыть программно Лист1 (писать много, ну предположим я это сделал). Далее пишу, например:
ActiveSheet. - у меня выскакивает естественно меню (список их)
А что они значат, где прочитать да еще на русском !!!

Если можно, вопрос для всех !!!
Спасибо.

06.01.2011, 12:18

Прочитать, да еще и на русском, ну вы батенько совсем уже

))
Хелп читай, на ангельском естесно...

@<> · 10.01.2011, 11:41

Set objRst = CurrentDb.OpenRecordset('1')
не пашет ...

@Дмитри5 · 10.01.2011, 13:50

[Lenivec] - извини, с опозданием, но спасибо!
А насчет рус. Help - я не согласен: - OC продукт покупной, а почему перевода нет, а все работатет с русским текстом: - меню, сообщения и т.д. Если обидел, прости, не отвечай! Вот уж ХР - лицензионный у меня в фирме, гарантирую. А Help для VBA - 'вооще' ни на что не похож!!!
Пока...

@<> · 10.01.2011, 14:06

Экспорт из DataBase в Excel ...
H E L P

10.01.2011, 14:06

да никто меня не обижал, просто больно много писать, там же дофига свойств и методов, поэтому и отослал к хэлпу

а насчет поганого хэлпа в ХР так это согласен, я бы выразился еще круче да воспитание не позволяет

удачи в борьбе с микрософтом

))

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

10.01.2011, 14:07

<<Dimon>> чё ты хэлпаешь, ты конкретные вопросы задавай, код свой в студию давай, а так тебе никто нифига не ответит

@<> · 10.01.2011, 14:52

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
32
33
Private Sub Command1_Click()
Dim ExcelApp As Object, ExcelWB As Object, ExcelWS As Object
Dim i As Long
Dim j As Long
Dim objRst As Recordset
Dim vData As Variant
Dim strFName As String
 
Set ExcelApp = GetExcelObject()
ExcelApp.Visible = True
Set ExcelWB = NewWorkbook(ExcelApp)
Set objRst = CurrentDb.OpenRecordset('1') ' тут мне пишут ошибку, 
'может там дополнительные 
'параметры нужны или ченить еще
If objRst.RecordCount <> 0 Then
objRst.MoveLast
objRst.MoveFirst
vData = objRst.GetRows(objRst.RecordCount)
If IsArray(vData) Then
For i = 0 To UBound(vData, 2)
For j = 0 To UBound(vData, 1)
strFName = ExcelApp.Columns(j + 1).Address
strFName = _
Right(strFName, Len(strFName) - _
(InStr(1, strFName, ':') + 1))
ExcelApp.Sheets(1).Range(strFName & i) = _
vData(j, i)
Next j
Next i
End If
End If
 
End Sub

@<> · 10.01.2011, 14:56

-> Lenivec; Код такой же как ты писал выше ...
Запускается Exсel, а потом сообщение об ощибке, ссылается на ту строчку. Может у меня руки кривые ?

10.01.2011, 15:05

ошибку озвуч, а то я такую ошибку как 'не пашет...' у микрософта не знаю

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@CTEnAH 0 / 0 / 0 Регистрация: 18.05.2010 Сообщений: 29

	Импорт и экспорт на VB 18.05.2010, 18:38. Показов 5643. Ответов 35 Метки нет (Все метки) Люди помогите плз с импортом и экспортом. Проблема такая необходимо программно с помощью VB экспортировать таблицы из одной базы Access в другую. Далее экспортировать таблицы Access в Excel и наконец импортировать excel файлы в access. Нет никаких мыслей по этому вопросу поэтому прошу по возможности подробных объяснений. Хотелось бы все это сделать с использованием DAO. Заранее благодарен. 0

@<> 0 / 0 / 0 Регистрация: 03.01.2011 Сообщений: 7
	04.01.2011, 12:32
	У меня база даных C:1.mdb в ней RecordSource 1 и DataField 1 Я пишу такую строку Set objRst = CurrentDb.OpenRecordset('1') И он все равно пишет ту же ошибку ... Как сделать шоб это все работало, помогите плз ... 0

@Дмитри5 0 / 0 / 0 Регистрация: 28.09.2010 Сообщений: 139
	04.01.2011, 14:33
	Извините, я влез по близкой теме. [Lenivec] А подробнее по теме: но если что нужно по ходу дела форматировать - я понял программно Лист1 Ексель!!?? Где найти коды форматирования из VB ячейки Ексел: формат шрифта, перенос, длина ячейка и т.д. У меня проблема такая: Копирую в Clipbouard переменную, например Cf & Text1.Text. В окне Text1.Text - колонки цифр. Переменная Cf - заголовок будущей таблицы в Екселе. Вызываю (не програмно) Exel и, клинув 'Вставить' или ctrl+V - содержание буффера вставляется мгновенно.... Но переменная Cf - нечитабельна. Win XP не понимает шрифт из VB! Как здесь выпутаться!? ::) Спасибо. 0

Lenivec
	04.01.2011, 16:14
	Правая кнопа -> Специальная вставка -> Текст

@Дмитри5 0 / 0 / 0 Регистрация: 28.09.2010 Сообщений: 139
	04.01.2011, 16:25
	[Lenivec] СПАСИБО !!!!!!!!!!!!! Я как лиса....:) А программно, можно устанавливать такой режим для Exel??? Уж больно мне понравился эффект, а ж дух перехватило, когда все вышло как надо! И вoпрос наоборот: А что, в Clipbouard'e текстовая информация в Unicode ???? Это уже интересно... Пожалуйсто, если можно ответить на оба вопроса: - программное переключение - хранение текста в коде ??? Спасибо! 0

@Дмитри5 0 / 0 / 0 Регистрация: 28.09.2010 Сообщений: 139
	06.01.2011, 10:25
	Для [Lenivec] еще раз огромное СПАСИБО! ... ну а где же читать, что они могут эти параметры Например открыть программно Лист1 (писать много, ну предположим я это сделал). Далее пишу, например: ActiveSheet. - у меня выскакивает естественно меню (список их) А что они значат, где прочитать да еще на русском !!! Если можно, вопрос для всех !!! Спасибо. 0

Lenivec
	06.01.2011, 12:18
	Прочитать, да еще и на русском, ну вы батенько совсем уже )) Хелп читай, на ангельском естесно...

@<> 0 / 0 / 0 Регистрация: 03.01.2011 Сообщений: 7
	10.01.2011, 11:41
	Set objRst = CurrentDb.OpenRecordset('1') не пашет ... 0

@Дмитри5 0 / 0 / 0 Регистрация: 28.09.2010 Сообщений: 139
	10.01.2011, 13:50
	[Lenivec] - извини, с опозданием, но спасибо! А насчет рус. Help - я не согласен: - OC продукт покупной, а почему перевода нет, а все работатет с русским текстом: - меню, сообщения и т.д. Если обидел, прости, не отвечай! Вот уж ХР - лицензионный у меня в фирме, гарантирую. А Help для VBA - 'вооще' ни на что не похож!!! Пока... 0

@<> 0 / 0 / 0 Регистрация: 03.01.2011 Сообщений: 7
	10.01.2011, 14:06
	Экспорт из DataBase в Excel ... H E L P 0

Lenivec
	10.01.2011, 14:07
	<<Dimon>> чё ты хэлпаешь, ты конкретные вопросы задавай, код свой в студию давай, а так тебе никто нифига не ответит

@<> 0 / 0 / 0 Регистрация: 03.01.2011 Сообщений: 7
	10.01.2011, 14:56
	-> Lenivec; Код такой же как ты писал выше ... Запускается Exсel, а потом сообщение об ощибке, ссылается на ту строчку. Может у меня руки кривые ? 0

Lenivec
	10.01.2011, 15:05
	ошибку озвуч, а то я такую ошибку как 'не пашет...' у микрософта не знаю