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

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

49 сообщений из 49, показаны все 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

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

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

#37279316

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

Виноват

Код: plaintext

WB.Worksheets( 1 ).Cells( 1 , 1 )= 5  'на первом листе

...

Рейтинг:

0 / 0

25.05.2011, 20:27

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

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

#37279333

afrobiba

Гость

Shocker.ProТогда лучше сделать так:
В Референсах подключить библиотеку Microsoft Excel....
не могли бы пояснить как это сделать...
(на первую строку жалуется)

...

Рейтинг:

0 / 0

25.05.2011, 20:40

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

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

#37279338

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

afrobibaShocker.ProТогда лучше сделать так:
В Референсах подключить библиотеку Microsoft Excel....
не могли бы пояснить как это сделать...
(на первую строку жалуется)Меню - Project - References - найти эксель и поставить напротив него галочку - ОК

...

Рейтинг:

0 / 0

25.05.2011, 20:44

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

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

#37288108

afrobiba

Гость

почему Excel стал писать " 'on.txt' изменяет другой пользаватель. открыть только для чтения?"
вроде не чего не менял со вчера

...

Рейтинг:

0 / 0

31.05.2011, 19:41

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

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

#37288232

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

afrobibaпочему Excel стал писать " 'on.txt' изменяет другой пользаватель. открыть только для чтения?"
вроде не чего не менял со вчеравидимо имело место аварийное закрытие проги, когда эксель остался невидимым в памяти

зайди в диспетчер задач и убей все EXCEL.EXE

...

Рейтинг:

0 / 0

31.05.2011, 21:20

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

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

#37290265

afrobiba

Гость

что за фигня? с каждым днем работает все меньше и меньше. теперь не хочет сохранять и выделяет ".OpenText" желтым

...

Рейтинг:

0 / 0

01.06.2011, 22:14

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

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

#37290283

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

afrobibaчто за фигня? с каждым днем работает все меньше и меньше. теперь не хочет сохранять и выделяет ".OpenText" желтымТекст ошибки надо угадать? (хрустальный шар запотел, ничего не вижу)

...

Рейтинг:

0 / 0

01.06.2011, 22:28

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

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

#37290638

afrobiba

Гость

Compile error:
Expected function or variable

...

Рейтинг:

0 / 0

02.06.2011, 10:01

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

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

#37290649

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

afrobibaCompile error:
Expected function or variable
ошибка синтаксиса, скорее всего
что-то подредактировала

...

Рейтинг:

0 / 0

02.06.2011, 10:05

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

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

#37290662

afrobiba

Гость

вообще ни чего не менял.
как вы написали

Код: plaintext

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

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 ссылку на нашу книгу, с которой можем делать что угодно
'Сохранить
.SaveAs "F:\on123.xls"
'Закрыть
WB.Close
Set WB=Nothing
Set EA = Nothing

так и скопировал

...

Рейтинг:

0 / 0

02.06.2011, 10:10

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

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

#37290820

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

afrobiba,

Что интересно, оно и не могло работать, поэтому и не могло сломаться.
Там должно быть WB.SaveAs...

Так, давай-ка начнем вот с этого:
http://www.sql.ru/faq/faq_topic.aspx?fid=2539

...

Рейтинг:

0 / 0

02.06.2011, 11:13

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

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

#37290855

afrobiba

Гость

это все понятно. я подставлял WB да только дело не в этом. Он OpenText не понимает.

...

Рейтинг:

0 / 0

02.06.2011, 11:24

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

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

#37290900

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

afrobibaэто все понятно. я подставлял WB да только дело не в этом. Он OpenText не понимает.Option Explicit поставил?

...

Рейтинг:

0 / 0

02.06.2011, 11:45

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

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

#37291163

afrobiba

Гость

в самом начале еще

...

Рейтинг:

0 / 0

02.06.2011, 13:10

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

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

#37291193

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

если набрать внутри процедуры
EA.WorkBooks.

после точки возникает выпадающий список?

...

Рейтинг:

0 / 0

02.06.2011, 13:21

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

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

#37291250

afrobiba

Гость

нет

...

Рейтинг:

0 / 0

02.06.2011, 13:39

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

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

#37291255

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

В референцах стоит галочка напротив экселя?

...

Рейтинг:

0 / 0

02.06.2011, 13:40

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

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

#37291276

afrobiba

Гость

да

...

Рейтинг:

0 / 0

02.06.2011, 13:45

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

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

#37291310

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

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

...

Рейтинг:

0 / 0

02.06.2011, 13:57

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

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

#37291327

afrobiba

Гость

...

Рейтинг:

0 / 0

02.06.2011, 14:01

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

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

#37291334

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

afrobiba,

Зачем мне это?
Тестовый mdb-файл, в котором не работает opentext

...

Рейтинг:

0 / 0

02.06.2011, 14:04

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

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

#37291353

afrobiba

Гость

это?

...

Рейтинг:

0 / 0

02.06.2011, 14:09

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

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

#37291376

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

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

...

Рейтинг:

0 / 0

02.06.2011, 14:16

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

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

#37291386

afrobiba

Гость

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

...

Рейтинг:

0 / 0

02.06.2011, 14:19

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

49 сообщений из 49, показаны все 2 страниц

все

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

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

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

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

start [/forum/topic.php?all=1&fid=60&tid=2158662]:	0ms
get settings:	9ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	37ms
get topic data:	10ms
get forum data:	2ms
get page messages:	63ms
get tp. blocked users:	1ms
others:	12ms

total:	151ms