Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / CSV / 16 сообщений из 16, страница 1 из 1
15.10.2007, 09:15:03
    #34867897
Настенька
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSV
есть файлик в формате 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:49:39
    #34867965
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSV
Код: 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:54:49
    #34867976
Настенька
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSV
первый вариант отработал, но результат такой же.
второй вариант вообще из бэйсика не работает.

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

Код: 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, 10:25:26
    #34868047
Настенька
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSV
ну прошу вас, помогите. работа из-за этого стоит.
ну как открыть его правильно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.10.2007, 10:28:25
    #34868057
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSV
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, 11:06:57
    #34868211
Настенька
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSV
да. я так и писала. не помогает, все равно открывает в одной строке игнорируя разделители.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.10.2007, 11:15:28
    #34868253
Настенька
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSV
вот нашла такой же вопрос, и там тоже не ответили.

http://am.rusimport.ru/MsAccess/f2.aspx?id=31229
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.10.2007, 11:16:49
    #34868261
Настенька
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSV
Народ, ну помогите же. не оставляйте в беде. ну очень нужно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.10.2007, 11:43:09
    #34868360
LeonM
LeonM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSV
Код: 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:58:51
    #34868431
Настенька
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSV
а как ее правильно вызвать? что-то не получается.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.10.2007, 12:31:22
    #34868585
LeonM
LeonM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSV
1 Считать файл в таблицу (в одну колону)
2 В модуле этой таблицы создать процедуру
sub smth
debug.print CorrectCVS(me)
end sub
3 Вставитьфункцию в модуль таблицы
4 запустить smth
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.10.2007, 12:52:31
    #34868688
Настенька
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSV
Это хороший вариант, но мне бы хотелось из бэйсика. чтобы не лезть в файл.
а другие способы есть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.10.2007, 13:14:18
    #34868782
LeonM
LeonM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSV
все то же самое из модуля, вместо me - имя таблицы
PS очень помогает запись макроса
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.10.2007, 13:24:21
    #34868823
Настенька
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSV
в бэйсике пишу так

Код: 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:29:17
    #34868846
LeonM
LeonM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSV
Не CommonDialog1.FileName а таблица с прочитанными данными.

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

можете свой пример привести.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / CSV / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 306ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2182101]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 37ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 190ms
total:  306ms
x
x
Закрыть


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