Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / перенос данных в Excel / 25 сообщений из 49, страница 1 из 2
  1  все
23.05.2011, 18:00
    #37275078
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
информация в текстовом файле "файл.тхт" имеет форму:
" ...
3513535895 30000 1
3513555435 30000 1
3513524435 30000 1
..."
как эту информацию вставить в Excel чтобы "3513535895" было в ячейке А1, "30000" в А2 и "1" в А3. и так все строки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 18:02
    #37275083
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
Через импорт csv, указать, что разделитель - пробел
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 18:05
    #37275091
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
я можно чуточку поподробней. я профан еще в Vb и мало что знаю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 18:07
    #37275099
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
воспользуйтесь тогда визардом импорта
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 18:41
    #37275178
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
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, 20:09
    #37275315
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
Shocker.Pro,

благодарю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2011, 17:00
    #37278928
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
как открыть excel-документ?
сидя в Access, используя VBA.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2011, 17:03
    #37278941
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
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:10
    #37278957
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
Shocker.Pro,

извините если вас уже достал. а как открыть еще не существуюущий файл. то есть создать новый и открыть
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2011, 17:13
    #37278961
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
Код: 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:24
    #37278976
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
если речь идет о слиянии с предыдущим кодом, тогда так:
Код: 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:25
    #37278977
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
Shocker.Proесли речь идет о слиянии с предыдущим кодом, тогда так:
только константы надо определить или заменить на конкретные значения
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2011, 17:45
    #37279018
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
Shocker.Pro,

а как сохранить созданную книгу?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2011, 18:22
    #37279081
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
Код: 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:31
    #37279100
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
Shocker.Pro,

спасибо огромное. ни где найти не мог найти как сохранить новый файл. везде только примеры сохранения уже существующих объектов.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2011, 18:35
    #37279107
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
afrobibaни где найти не мог найти как сохранить новый файл. везде только примеры сохранения уже существующих объектов.
не вижу разницы. Когда файл создан (после Add) - это уже существующий объект.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2011, 18:53
    #37279152
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
EA.WorkBooks.SaveAs "C:test2.xls"
не сработало
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2011, 18:57
    #37279167
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
afrobibaEA.WorkBooks.SaveAs "C:test2.xls"
не сработало
и не должно было
нужно указать конкретную книгу, которую нужно сохранять.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2011, 19:06
    #37279194
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
в следующий раз учту. спасибо за помощь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2011, 20:05
    #37279285
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
получается что я откырваю файл в одной книге а сохраняю сосвсем другую пустую книгу.
Shocker.Proнужно указать конкретную книгу, которую нужно сохранять.
привидите пример пожайлуста.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2011, 20:08
    #37279287
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
afrobibaпривидите пример пожайлуста.
А что надо-то сохранить? Как именно ты открываешь книгу?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2011, 20:14
    #37279292
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
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:18
    #37279299
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
Если не предполагается дальнейшая работа с этой книгой с помощью ВБА, то так:
Код: 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:22
    #37279306
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
Нет, перед сохранением надо будет еще с этим файлом работать через vba
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2011, 20:26
    #37279314
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос данных в Excel
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
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / перенос данных в Excel / 25 сообщений из 49, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 288ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158662]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 175ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 13ms
total:  288ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]