ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / CSV
16 сообщений из 16, страница 1 из 1
CSV
    #34867897
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
есть файлик в формате csv, открываю его из vb с помощью excel.

Код: plaintext
xl.Workbooks.Open CommonDialog1.FileName

далее мне надо с ним работь как с excelem. делаю так:

Код: plaintext
msgbox xl.cells( 1 , 1 )

выдает:
Код: plaintext
привет;;;;;;

т.е. еще разделители пихает.

пытаюсь выполнить макрос по выделению столбца и присвоению формата - выдает ошибку.
т.е. он хоть и открыл его в excel, продолжает работать как с csv.

а мне надо открыть csv и работать с ним как с полноценным excel-файлом. помогите это сделать.
...
Рейтинг: 0 / 0
15.10.2007, 09:15:03
| Ответить | Цитировать | Написать  
CSV
    #34867965
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Код: plaintext
xl.Workbooks.Workbooks.Open CommonDialog1.FileName, , ,  4
или
Код: plaintext
1.
2.
3.
xl.Workbooks.Workbooks.OpenText CommonDialog1.FileName, Origin:= _
        xlWindows, StartRow:= 1 , DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False
...
Рейтинг: 0 / 0
15.10.2007, 09:49:39
| Ответить | Цитировать | Написать  
CSV
    #34867976
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
первый вариант отработал, но результат такой же.
второй вариант вообще из бэйсика не работает.

все равно если по первому варианту, то после открытия вот этот код не работает:

Код: plaintext
1.
2.
3.
4.
 xl.Columns("E:F").Select
    xl.Selection.NumberFormat = "0.00"
    xl.Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
...
Рейтинг: 0 / 0
15.10.2007, 09:54:49
| Ответить | Цитировать | Написать  
CSV
    #34868047
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
ну прошу вас, помогите. работа из-за этого стоит.
ну как открыть его правильно.
...
Рейтинг: 0 / 0
15.10.2007, 10:25:26
| Ответить | Цитировать | Написать  
CSV
    #34868057
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
vkodor
Код: plaintext
xl.Workbooks.Workbooks.Open CommonDialog1.FileName, , ,  4
или
Код: plaintext
1.
2.
3.
xl.Workbooks.Workbooks.OpenText CommonDialog1.FileName, Origin:= _
        xlWindows, StartRow:= 1 , DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False

читать так
Код: plaintext
xl.Workbooks.Open CommonDialog1.FileName, , ,  4
или
Код: plaintext
1.
2.
3.
xl.Workbooks.OpenText CommonDialog1.FileName, Origin:= _
        xlWindows, StartRow:= 1 , DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False
...
Рейтинг: 0 / 0
15.10.2007, 10:28:25
| Ответить | Цитировать | Написать  
CSV
    #34868211
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
да. я так и писала. не помогает, все равно открывает в одной строке игнорируя разделители.
...
Рейтинг: 0 / 0
15.10.2007, 11:06:57
| Ответить | Цитировать | Написать  
CSV
    #34868253
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
вот нашла такой же вопрос, и там тоже не ответили.

http://am.rusimport.ru/MsAccess/f2.aspx?id=31229
...
Рейтинг: 0 / 0
15.10.2007, 11:15:28
| Ответить | Цитировать | Написать  
CSV
    #34868261
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
Народ, ну помогите же. не оставляйте в беде. ну очень нужно.
...
Рейтинг: 0 / 0
15.10.2007, 11:16:49
| Ответить | Цитировать | Написать  
CSV
    #34868360
LeonM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LeonM
Участник
Код: plaintext
1.
2.
3.
4.
5.
Private Function CorrectCVS(ws As Worksheet) As Long
    For CorrectCVS =  1  To ws.Columns("A").End(xlDown).Row
        ws.Range("A" & CorrectCVS).TextToColumns ws.Range("A" & CorrectCVS), xlDelimited, xlTextQualifierDoubleQuote, False, True
    Next
End Function
...
Рейтинг: 0 / 0
15.10.2007, 11:43:09
| Ответить | Цитировать | Написать  
CSV
    #34868431
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
а как ее правильно вызвать? что-то не получается.
...
Рейтинг: 0 / 0
15.10.2007, 11:58:51
| Ответить | Цитировать | Написать  
CSV
    #34868585
LeonM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LeonM
Участник
1 Считать файл в таблицу (в одну колону)
2 В модуле этой таблицы создать процедуру
sub smth
debug.print CorrectCVS(me)
end sub
3 Вставитьфункцию в модуль таблицы
4 запустить smth
...
Рейтинг: 0 / 0
15.10.2007, 12:31:22
| Ответить | Цитировать | Написать  
CSV
    #34868688
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
Это хороший вариант, но мне бы хотелось из бэйсика. чтобы не лезть в файл.
а другие способы есть?
...
Рейтинг: 0 / 0
15.10.2007, 12:52:31
| Ответить | Цитировать | Написать  
CSV
    #34868782
LeonM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LeonM
Участник
все то же самое из модуля, вместо me - имя таблицы
PS очень помогает запись макроса
...
Рейтинг: 0 / 0
15.10.2007, 13:14:18
| Ответить | Цитировать | Написать  
CSV
    #34868823
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
в бэйсике пишу так

Код: plaintext
1.
2.
3.
4.
Private Function CorrectCVS(ws As Worksheet) As Long
    For CorrectCVS =  1  To ws.Columns("A").End(xlDown).Row
        ws.Range("A" & CorrectCVS).TextToColumns ws.Range("A" & CorrectCVS), xlDelimited, xlTextQualifierDoubleQuote, False, True
    Next
End Function

Код: plaintext
1.
2.
Sub smth()
Debug.Print CorrectCVS(CommonDialog1.FileName)
End Sub

ругается на эту строчку: Debug.Print CorrectCVS(CommonDialog1.FileName)
...
Рейтинг: 0 / 0
15.10.2007, 13:24:21
| Ответить | Цитировать | Написать  
CSV
    #34868846
LeonM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LeonM
Участник
Не CommonDialog1.FileName а таблица с прочитанными данными.

Correct <> Read
...
Рейтинг: 0 / 0
15.10.2007, 13:29:17
| Ответить | Цитировать | Написать  
CSV
    #34870457
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
я извиняюсь, но мне непонятна эта фраза: таблица с прочитанными данными.

можете свой пример привести.
...
Рейтинг: 0 / 0
16.10.2007, 05:07:01
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / CSV
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34868431&tid=2182101]:
 0ms
get settings:
 4ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 30ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 191ms
total:  286ms
созд. / загр.: 286ms
x
x
Закрыть


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