ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / перенос данных в Excel
25 сообщений из 49, страница 1 из 2
  1  все
перенос данных в Excel
    #37275078
afrobiba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Через импорт csv, указать, что разделитель - пробел
...
Рейтинг: 0 / 0
23.05.2011, 18:02
| Ответить | Цитировать | Написать  
перенос данных в Excel
    #37275091
afrobiba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
afrobiba
Гость
я можно чуточку поподробней. я профан еще в Vb и мало что знаю
...
Рейтинг: 0 / 0
23.05.2011, 18:05
| Ответить | Цитировать | Написать  
перенос данных в Excel
    #37275099
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
воспользуйтесь тогда визардом импорта
...
Рейтинг: 0 / 0
23.05.2011, 18:07
| Ответить | Цитировать | Написать  
перенос данных в Excel
    #37275178
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
afrobiba
Гость
Shocker.Pro,

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

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

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

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


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