макросы Excel - Помощь студентам

Ravil-022 · 28.07.2008, 17:15

Помогите перевести данные из Excel в текстовый файл (к примеру: .zak).Кто сталкивался, помогите пожалуйста. Заранее всем спасибо!

Igoressicus · 28.07.2008, 18:21

1 способ - Тупо смени расширение файла

2 способ - Это интереснее:

Dim iFile As Interger
Dim TempStr As String
Dim strFileName As string

iFile = FreeFile
Open strFileName For Output As #iFile
with ActiveWorkbook.Sheets(1) //кажись так доступ к ячейкам ( не помню)
for i=1 to 65535
for j=1 to 65535
TempString=.Range(i & j).Value //вроде так
Print #iFile, "Cell="+cstr(i)+"; Row="+cstr(j)+":"TempString+vbCrLf
next j
next i

Close #iFile

считывание и заполнение книги в том же духе ( читаешь и определяешь ячейку по Сеll= Row= и заливаешь данные).
Это насколько я понял текстовый файл тебе надо данные залить

Насчёт Range я не помню как правильно получать доступ к ячейке, но как то так.

Greblin · 28.07.2008, 21:12

А не проще сохранить в формате csv?

28.07.2008, 17:15	#1
Ravil-022 Регистрация: 28.07.2008 Сообщений: 3	макросы Excel Помогите перевести данные из Excel в текстовый файл (к примеру: .zak).Кто сталкивался, помогите пожалуйста. Заранее всем спасибо!

28.07.2008, 21:12	#3
Greblin Меркантильный кю Участник клуба Регистрация: 02.02.2008 Сообщений: 1,001	А не проще сохранить в формате csv? Росли вроде умными, выросли дурнями... (c)А.Васильев

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
макросы в Excel	Ravil-022	Софт	0	28.07.2008 17:56
макросы в Excel	Ravil-022	Софт	0	28.07.2008 17:46
макросы Excel 2007	mirawoo	Microsoft Office Excel	3	19.06.2008 17:04
макросы	Informer	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	1	23.11.2007 19:42

28.07.2008, 18:21	#2
Igoressicus Пользователь Регистрация: 13.07.2008 Сообщений: 23	1 способ - Тупо смени расширение файла 2 способ - Это интереснее: Dim iFile As Interger Dim TempStr As String Dim strFileName As string iFile = FreeFile Open strFileName For Output As #iFile with ActiveWorkbook.Sheets(1) //кажись так доступ к ячейкам ( не помню) for i=1 to 65535 for j=1 to 65535 TempString=.Range(i & j).Value //вроде так Print #iFile, "Cell="+cstr(i)+"; Row="+cstr(j)+":"TempString+vbCrLf next j next i Close #iFile считывание и заполнение книги в том же духе ( читаешь и определяешь ячейку по Сеll= Row= и заливаешь данные). Это насколько я понял текстовый файл тебе надо данные залить Насчёт Range я не помню как правильно получать доступ к ячейке, но как то так.