перенос данных в Excel / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

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

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / перенос данных в Excel

25 сообщений из 49, страница 1 из 2

все

перенос данных в Excel

#37275078

afrobiba

Гость

информация в текстовом файле "файл.тхт" имеет форму:
" ...
3513535895 30000 1
3513555435 30000 1
3513524435 30000 1
..."
как эту информацию вставить в Excel чтобы "3513535895" было в ячейке А1, "30000" в А2 и "1" в А3. и так все строки.

...

Рейтинг:

0 / 0

23.05.2011, 18:00

| Ответить | Цитировать | Написать

перенос данных в Excel

#37275083

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Через импорт csv, указать, что разделитель - пробел

...

Рейтинг:

0 / 0

23.05.2011, 18:02

| Ответить | Цитировать | Написать

перенос данных в Excel

#37275091

afrobiba

Гость

я можно чуточку поподробней. я профан еще в Vb и мало что знаю

...

Рейтинг:

0 / 0

23.05.2011, 18:05

| Ответить | Цитировать | Написать

перенос данных в Excel

#37275099

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

воспользуйтесь тогда визардом импорта

...

Рейтинг:

0 / 0

23.05.2011, 18:07

| Ответить | Цитировать | Написать

перенос данных в Excel

#37275178

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

afrobibaя можно чуточку поподробней. я профан еще в Vb и мало что знаю
А, так это на VB надо сделать?

Меню - Сервис - Макросы - Начать запись
Меню - Файл - Открыть - CSV - Разделитель - Пробел
Остановить запись

Результат:

Код: plaintext

1.
2.
3.
4.

    Workbooks.OpenText Filename:="V:\o123n.txt", Origin:=xlWindows, StartRow _
        := 1 , DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False _
        , Space:=True, Other:=False, FieldInfo:=Array(Array( 1 ,  1 ), Array( 2 ,  1 ), Array _
        ( 3 ,  1 ))

допиливаешь под собственные нужды

...

Рейтинг:

0 / 0

23.05.2011, 18:41

| Ответить | Цитировать | Написать

перенос данных в Excel

#37275315

afrobiba

Гость

Shocker.Pro,

благодарю

...

Рейтинг:

0 / 0

23.05.2011, 20:09

| Ответить | Цитировать | Написать

перенос данных в Excel

#37278928

afrobiba

Гость

как открыть excel-документ?
сидя в Access, используя VBA.

...

Рейтинг:

0 / 0

25.05.2011, 17:00

| Ответить | Цитировать | Написать

перенос данных в Excel

#37278941

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

afrobibaкак открыть excel-документ?
сидя в Access, используя VBA.

Код: plaintext

1.
2.
3.
4.
5.

Dim EA As Object
Set EA = CreateObject("Excel.Application")
EA.WorkBooks.Open ("V:\Счет 00000461 от 19.05.11.xls")
EA.Visible = True
Set EA = Nothing

...

Рейтинг:

0 / 0

25.05.2011, 17:03

| Ответить | Цитировать | Написать

перенос данных в Excel

#37278957

afrobiba

Гость

Shocker.Pro,

извините если вас уже достал. а как открыть еще не существуюущий файл. то есть создать новый и открыть

...

Рейтинг:

0 / 0

25.05.2011, 17:10

| Ответить | Цитировать | Написать

перенос данных в Excel

#37278961

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.

Dim EA As Object
Set EA = CreateObject("Excel.Application")
EA.WorkBooks.Add
EA.Visible = True
Set EA = Nothing

...

Рейтинг:

0 / 0

25.05.2011, 17:13

| Ответить | Цитировать | Написать

перенос данных в Excel

#37278976

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

если речь идет о слиянии с предыдущим кодом, тогда так:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

Dim EA As Object
Set EA = CreateObject("Excel.Application")
EA.WorkBooks.OpenText Filename:="V:\o123n.txt", Origin:=xlWindows, StartRow _
        := 1 , DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False _
        , Space:=True, Other:=False, FieldInfo:=Array(Array( 1 ,  1 ), Array( 2 ,  1 ), Array _
        ( 3 ,  1 ))
EA.Visible = True
Set EA = Nothing

...

Рейтинг:

0 / 0

25.05.2011, 17:24

| Ответить | Цитировать | Написать

перенос данных в Excel

#37278977

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Shocker.Proесли речь идет о слиянии с предыдущим кодом, тогда так:
только константы надо определить или заменить на конкретные значения

...

Рейтинг:

0 / 0

25.05.2011, 17:25

| Ответить | Цитировать | Написать

перенос данных в Excel

#37279018

afrobiba

Гость

Shocker.Pro,

а как сохранить созданную книгу?

...

Рейтинг:

0 / 0

25.05.2011, 17:45

| Ответить | Цитировать | Написать

перенос данных в Excel

#37279081

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.

Dim EA As Object
Set EA = CreateObject("Excel.Application")
EA.WorkBooks.Add.SaveAs "v:\1.xls"
EA.Visible = True
Set EA = Nothing

...

Рейтинг:

0 / 0

25.05.2011, 18:22

| Ответить | Цитировать | Написать

перенос данных в Excel

#37279100

afrobiba

Гость

Shocker.Pro,

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

...

Рейтинг:

0 / 0

25.05.2011, 18:31

| Ответить | Цитировать | Написать

перенос данных в Excel

#37279107

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

afrobibaни где найти не мог найти как сохранить новый файл. везде только примеры сохранения уже существующих объектов.
не вижу разницы. Когда файл создан (после Add) - это уже существующий объект.

...

Рейтинг:

0 / 0

25.05.2011, 18:35

| Ответить | Цитировать | Написать

перенос данных в Excel

#37279152

afrobiba

Гость

EA.WorkBooks.SaveAs "C:test2.xls"
не сработало

...

Рейтинг:

0 / 0

25.05.2011, 18:53

| Ответить | Цитировать | Написать

перенос данных в Excel

#37279167

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

afrobibaEA.WorkBooks.SaveAs "C:test2.xls"
не сработало
и не должно было
нужно указать конкретную книгу, которую нужно сохранять.

...

Рейтинг:

0 / 0

25.05.2011, 18:57

| Ответить | Цитировать | Написать

перенос данных в Excel

#37279194

afrobiba

Гость

в следующий раз учту. спасибо за помощь

...

Рейтинг:

0 / 0

25.05.2011, 19:06

| Ответить | Цитировать | Написать

перенос данных в Excel

#37279285

afrobiba

Гость

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

...

Рейтинг:

0 / 0

25.05.2011, 20:05

| Ответить | Цитировать | Написать

перенос данных в Excel

#37279287

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

afrobibaпривидите пример пожайлуста.
А что надо-то сохранить? Как именно ты открываешь книгу?

...

Рейтинг:

0 / 0

25.05.2011, 20:08

| Ответить | Цитировать | Написать

перенос данных в Excel

#37279292

afrobiba

Гость

Shocker.Pro,

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Private Sub Êíîïêà12_Click()
Dim EA As Object
Set EA = CreateObject("Excel.Application")
EA.WorkBooks.Add.SaveAs "F:\on123.xls"
EA.WorkBooks.OpenText FileName:="F:\on123.txt", Origin:= 1 , StartRow _
        := 1 , DataType:= 1 , TextQualifier:= 1 , _
        ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False _
        , Space:=True, Other:=False, FieldInfo:=Array(Array( 1 ,  1 ), Array( 2 ,  1 ), Array _
        ( 3 ,  1 ))
EA.Visible = True
Set EA = Nothing
End Sub

и получается что у меня открываются две книги с именем "on123". одна с заполненой таблицей, другая пустая. пустая сохраняется с таблицей просто закрывается и все.

...

Рейтинг:

0 / 0

25.05.2011, 20:14

| Ответить | Цитировать | Написать

перенос данных в Excel

#37279299

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Если не предполагается дальнейшая работа с этой книгой с помощью ВБА, то так:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

Dim EA As Object
Set EA = CreateObject("Excel.Application")
EA.WorkBooks.OpenText(FileName:="F:\on123.txt", Origin:= 1 , StartRow _
        := 1 , DataType:= 1 , TextQualifier:= 1 , _
        ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False _
        , Space:=True, Other:=False, FieldInfo:=Array(Array( 1 ,  1 ), Array( 2 ,  1 ), Array _
        ( 3 ,  1 ))).SaveAs "F:\on123.xls"
EA.Visible = True
Set EA = Nothing

...

Рейтинг:

0 / 0

25.05.2011, 20:18

| Ответить | Цитировать | Написать

перенос данных в Excel

#37279306

afrobiba

Гость

Нет, перед сохранением надо будет еще с этим файлом работать через vba

...

Рейтинг:

0 / 0

25.05.2011, 20:22

| Ответить | Цитировать | Написать

перенос данных в Excel

#37279314

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

afrobibaНет, перед сохранением надо будет еще с этим файлом работать через vba
Тогда лучше сделать так:
В Референсах подключить библиотеку Microsoft Excel....

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

Dim EA As Excel.Application, WB As Excel.WorkBook
Set EA = CreateObject("Excel.Application")
EA.Visible = True
Set WB = EA.WorkBooks.OpenText(FileName:="F:\on123.txt", Origin:= 1 , StartRow _
        := 1 , DataType:= 1 , TextQualifier:= 1 , _
        ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False _
        , Space:=True, Other:=False, FieldInfo:=Array(Array( 1 ,  1 ), Array( 2 ,  1 ), Array _
        ( 3 ,  1 )))
'тут мы имеем в переменной WB ссылку на нашу книгу, с которой можем делать что угодно
'например вписать 5 в ячейку A1 
WB.Cells( 1 , 1 )= 5 
'Сохранить
.SaveAs "F:\on123.xls"
'Закрыть
WB.Close
Set WB=Nothing
Set EA = Nothing

...

Рейтинг:

0 / 0

25.05.2011, 20:26

| Ответить | Цитировать | Написать

25 сообщений из 49, страница 1 из 2

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / перенос данных в Excel

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&startmsg=37275078&tid=2158662]:	0ms
get settings:	11ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	40ms
get topic data:	11ms
get forum data:	2ms
get page messages:	55ms
get tp. blocked users:	2ms
others:	14ms

total:	157ms